VB整人小程序

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB整人小程序》，欢迎阅读！

VB整人小程序代码

Private Sub Command1_Click()

MsgBox "进行测试前，请一定要照着提示上说的回答，可不要乱写，不然的话会让测试不准的！切记！现在放松一下，记住，写的时候应该完全是你的第一直觉！！！"

MsgBox "这个测试源于印度的一个神秘的密教经典，当时发现它的人按照它说的做了，结果他的愿望在10分钟内就实现了！"

MsgBox "这是一个非常奇妙的测试，不知道你做过没有，最好没有旁观者！我做了，非常准确，想不信邪都难！" t1 = "1.请输入你一个异性朋友的名字" t2 = "2.请再输入你一个异性朋友的名字" t3 = "3.输入你一个同性朋友的名字" t4 = "4.输入你第二个同性朋友的名字" t5 = "5.再输入你一个同性朋友的名字" t6 = "6.输入一首你喜欢的歌的名字" t7 = "7.输入另外一首歌的名字"

t8 = "8.再输入一首歌的名字，请不要急噪，保持轻松的心态" t9 = "9.最后输入一首喜欢的歌名字" t10 = "10.输入一个你喜欢的幸运数字" t11 = "11.许下一个你的愿望" a1 = InputBox(t1) a2 = InputBox(t2)


a3 = InputBox(t3) a4 = InputBox(t4) a5 = InputBox(t5) a6 = InputBox(t6) a7 = InputBox(t7) a8 = InputBox(t8) a9 = InputBox(t9) a10 = InputBox(t10) a11 = InputBox(t11)

Form1.Print "在你心中"; a1; "占据着最重要的位置，你对"; a1; "的感觉用"; a6; "这首歌来形容再好不过了。" Print ""

Print "你相信这是上天安排的缘分，因为你深深的爱着"; a1; "。对于"; a2; "，也许是宿命吧，" Print ""

Print "虽然你也喜欢"; a2; "，但是你们注定不可能在一起，就像"; a7; "中唱的一样。"; a3; "是最关心你的人，" Print ""

Print "而"; a4; "是最了解你的人，你们两个在一起会彼此有知己的感觉。"; a5; "是你的幸运星，" Print ""

Print "也许会给你带来好运气的哦~！~！~！"; a8; "这首歌最能代表


你现在的想法。"; a9 Print ""

Print "这首歌代表你对生活的感受。把本程序推荐给你的"; a10; "个朋友，你的愿望——"; a11 Print ""

Print "就会实现，Print "" End Sub

信不信由你！"

本文来源：https://www.wddqxz.cn/c5da17277e21af45b307a8e9.html