ox "请依照下列指示诊断你的性格吧! "
Delay 500
//1
Dim Q
Q = inputbox("1.有一天在路上，有人突然对你大叫：“有人在追着我．请帮帮我吧。”仔细一看，说话的那个人竟然是你的偶像，这时候你认为追着他的人是谁？                        1. 影迷 2. 记者", "心理测试")
If Q = 1 Then
    Call D
ElseIf Q = 2 Then
    Call G
Else
    MessageBox "请别乱输入！"
    Delay 500
    Call A
End If
Sub A
    Dim Q
    Q = inputbox("1.有一天在路上，有人突然对你大叫：“有人在追着我．请帮帮我吧。”仔细一看，说话的那个人竟然是你的偶像，这时候你认为追着他的人是谁？                      1. 影迷 2. 记者", "心理测试")
    If Q = 1 Then
        Call D
    ElseIf Q = 2 Then
        Call G
    Else
        MessageBox "请别乱输入！"
        Delay 500
        Call A
    End If
End Sub
//2
Sub B
    Dim W
    W = inputbox("2.终於帮他把追逐者摆脱了，而他也向你微笑示意，此时你认为他的意思是？         1. 单纯的微笑着 2. 衷心的感谢你", "心理测试")
    If W = 1 Then 
        Call E
    ElseIf W = 2 Then
        Call I
    Else
        MessageBox "请别乱输入！"
        Delay 500
        Call B
    End If
End Sub
//3
Sub C
    Dim R
    R = inputbox("3.当这段际遇结束后，而他正欲离去，你希望他对你说什麽？                      1. 对你握手说再见 2. 对你吻别", "心理测试")
    If R = 1 Then
        Call 性格A()
    ElseIf R = 2 Then
        Call 性格B()
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call C
    End If
End Sub
//4
Sub D
    Dim O
    O = inputbox("4.为了闪避影迷的追逐，你会将他带到那里躲避？                                1. 人多的大型商场 2. 人少的小巷子里", "心理测试")
    If O = 1 Then
        Call H
    ElseIf O = 2 Then
        Call B
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call D
    End If
End Sub
//5
Sub E
    Dim P
    P = inputbox("5.为了闪躲穷追不舍的影迷，你会帮他选择那种伪装道具？                         1. 帽子 2. 眼镜", "心理测试")
    If P = 1 Then
        Call M
    ElseIf P = 2 Then
        Call F
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call E
    End If
End Sub
//6
Sub F
    Dim N
    N = inputbox("6.当你们渡过了这惊险的一天后，在离别时他留下了电话号码给你，你会如何？        1. 等过几天后再打给他 2. 电话可能是假的算了", "心理测试")
    If N = 1 Then
        Call 性格D()
    ElseIf N = 2 Then
        Call 性格B()
    Else 
        MessageBox "请别乱输入！"
        Delay 500
        Call F
    End If
End Sub
//7
Sub G
    Dim M