求做一个心理测试程序,使用VB编写

导读：本文描述了一个VB心理测试程序Form1，它包括Option Explicit、Private Sub Command1_Click和Private Sub Form_Load等部分。这个测试程序可以对用户的四个选项进行心理测试，并根据用户的回答结果给出相应的提示。在测试过程中，用户需要根据每个问题选择一个选项，并在完成后显示得分和反馈。程序根据用户的回答结果，会给出相应的提示，以帮助用户更好地了解自己的心理状态。如下为有关求做一个vb心理测试程序的文章内容，供大家参考。

1、求做一个vb心理测试程序

form1：

Option Explicit

Private Sub Command1_Click（）

Form2。Show

End Sub

Private Sub Form_Load（）

Command1。Caption = “开始“

End Sub

form2：

Option Explicit

Dim n As Integer， m As Integer

Private Sub Command1_Click（）

If Option2。Value = True Then m = m + 5

If Option3。Value = True Then m = m + 2

If n = 8 Then

Form3。Label1 = “你的分数是“ & m & “分“

Form3。Show

End If

If n < 8 Then

n = n + 1

Select Case n

Case 1

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 2

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 3

Label1。Caption = “3．你在餐馆刚用过餐，服务员来结账，你忽然发现身上带的钱不够，此刻，你会“

Option1。Caption = “a．感到很窘迫，脸发红“

Option2。Caption = “b．自嘲一下，马上对服务员实话实说“

Option3。Caption = “c．在身上东摸西摸，拖延时间了“

Case 4

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 5

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 6

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 7

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

Case 8

Label1。Caption = “2．在朋友的婚礼上，你未料到会被邀请发言，在毫无准备的情况下，你“

Option1。Caption = “a．双手发抖，结结巴巴说不出话来“

Option2。Caption = “b．感到很荣幸，简短地讲几句“

Option3。Caption = “c．很平淡地谢绝了“

End Select

End If

End Sub

Private Sub Form_Load（）

n = 1

m = 0

End Sub

form3：

Option Explicit

Private Sub Form_Load（）

Label2。Caption = “1。（0~25分）你承受压力的心理素质比较差，很容易失去心理平衡，变得窘促不安，甚至惊慌失措。

2。（25分~32分）你的心理素质比较强，性情还算比较稳定，遇事一般不会十分惊慌，但有时往往采取消极应付的态度。 3。（32~40分）你的心理素质很好，几乎没有令你感到尴尬的事，尽管偶尔会失去控制，但惫自来说，你的应变能力很强，是一个能经常保持镇静，从容不迫的人。“

End Sub

题目内容你自己改下吧

。