M = inputbox("7.当你们得选择搭乘交通工具闪避时，你会选择那种交通工具？                      1. 公共汽车 2. 搭计程车", "心理测试")
    If M = 1 Then
        Call K
    ElseIf M = 2 Then
        Call B
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call G
    End If
End Sub
//8
Sub H
    Dim S
    S = inputbox("8.当你们被影迷档住去路时，此时的影迷大概多少人？                              1. 5人左右 2. 10人左右", "心理测试")
    If S = 1 Then
        Call E
    ElseIf S = 2 Then
        Call L
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call H
    End If
End Sub
//9
Sub I
    Dim Z
    Z = inputbox("9.当你们躲过了他们的追逐，此时他说：“今天我们一起去逛逛吧？”你们会到那？      1. 电影院 2. 餐饮店", "心理测试")
    If Z = 1 Then
        Call C
    ElseIf Z = 2 Then
        Call J
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call I
    End If
End Sub
//10
Sub J
    Dim X
    X = inputbox("10.到了互相告别的时刻，你会对他说？   1. 今天很高兴能帮助你 2. 能有机会再见面吗", "心理测试")
    If X = 1 Then
        Call 性格A()
    ElseIf X = 2 Then
        Call 性格C()
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call J
    End If
End Sub
//11
Sub K
    Dim U
    U = inputbox("11.当你们被计者追到，计者问到诽闻时，你认为他的对象可能是？                    1. 圈内人士 2. 圈外人士", "心理测试")
    If U = 1 Then
        Call I
    ElseIf U = 2 Then
        Call L
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call K
    End If
End Sub
//12
Sub L
    Dim Y
    Y = inputbox("12.当他准备了谢礼给你时，你想可能是那种物品？                                 1. 他新买的手表 2. 他用过的饰品", "心理测试")
    If Y = 1 Then
        Call F
    ElseIf Y = 2 Then
        Call J
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call L
    End If
End Sub
//13
Sub M
    Dim T
    T = inputbox("13.他为了答谢你请你吃东西，可是却是你不喜欢的食物，此时你会？                   1. 免强吃下 2. 拒绝吃下", "心理测试")
    If T = 1 Then
        Call 性格C()
    ElseIf T = 2 Then
        Call 性格D()
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call M
    End If
End Sub
Sub 性格A()
    MessageBox "性格A．唯命是从型：你是一个附合度高的人，但缺乏自我的主张跟个性；你最好多考虑一下自己的观点。"
End Sub
Sub 性格B()
    MessageBox "性格B．容易软化型：在爱情方面，你是一个依从者，会跟随对方的意见去做，欠缺自我肯定的意志力。"