想编个“心理测试.vbe”的小脚本 请大侠指教

发布网友 发布时间：2022-04-20 12:15

我来回答

共2个回答

热心网友 时间：2023-05-10 01:39

Problem0 = "你最喜欢什么山：" & chr(13) & "1.喜马拉雅山" & chr(13) & "2.阿尔卑斯山"
Dim Problem(10)
Dim Result(4)
Problem(1) = "你最喜欢的花是：1.玫瑰 2.茉莉 3.紫罗兰 4.郁金香"
Problem(2) = "你最喜欢的车是：1.宝马 2.奔驰 3.布加迪威龙 4.宾利"
Problem(3) = "你最喜欢的人是：1.爸爸 2.妈妈 3.张三 4.李四"
Result(1) = "A"
Result(2) = "B"
Result(3) = "C"
Result(4) = "D"
Dim Answer
Dim Index
Index = 0
Do Until Index > 5
Answer = InputBox(Problem0)
Select Case Answer
Case "1"
Answer = InputBox(Problem(1))
Case "2"
Answer = InputBox(Problem(2))
Case "3"
Answer = InputBox(Problem(3))
Case "4"
MsgBox("给我重新好好答!")
End Select
Index = Index + 1
Loop
MsgBox(Result(CInt(Answer)))

自己改改吧，
0分，不太厚道！

热心网友 时间：2023-05-10 01:39

我不会，只会简单的易语言，所以就不卖弄了。拿两分走人。