这一次写了很久,增加了问题数,简直覆写代码。
Dim answer(5) As String'这段代码属于通用区域
Private Sub Form_Load()
Command13.Visible = False
Text1.Text = "你好!"
End Sub
Private Sub Command1_Click()
Dim questions(49) As String
questions(0) = "最近怎么样?"
questions(1) = "你在干什么?"
questions(2) = "你的工作是什么?"
questions(3) = "你喜欢什么样的音乐?"
questions(4) = "你喜欢看什么类型的电影?"
questions(5) = "你的爱好是什么?"
questions(6) = "你觉得人生的意义是什么?"
questions(7) = "你最喜欢的食物是什么?"
questions(8) = "你最喜欢的运动是什么?"
questions(9) = "你喜欢旅行吗?"
questions(10) = "你去过哪些地方?"
questions(11) = "你喜欢哪个城市?"
questions(12) = "你的生日是什么时候?"
questions(13) = "你正在做什么?"
questions(14) = "你有什么计划?"
questions(15) = "你想学习什么技能?"
questions(16) = "你喜欢阅读什么类型的书籍?"
questions(17) = "你有兴趣参加哪些活动?"
questions(18) = "你喜欢什么样的朋友?"
questions(19) = "你认为什么是真正的幸福?"
questions(20) = "你最近看过什么好书吗?"
questions(21) = "你觉得自己有什么优点?"
questions(22) = "你觉得自己有什么缺点?"
questions(23) = "你喜欢和朋友一起做什么?"
questions(24) = "你的家庭怎么样?"
questions(25) = "你最喜欢的季节是什么?"
questions(26) = "你喜欢什么样的天气?"
questions(27) = "你喜欢喝什么饮料?"
questions(28) = "你喜欢和别人分享吗?"
questions(29) = "你最喜欢的颜色是什么?"
questions(30) = "你觉得自己是一个幸运的人吗?"
questions(31) = "你喜欢什么样的动物?"
questions(32) = "你喜欢什么样的花?"
questions(33) = "你喜欢什么样的节日?"
questions(34) = "你最喜欢的电视节目是什么?"
questions(35)