今日の答え

Option Explicit
Dim xseikaku(8) ' 配列 xseikaku を事前に用意

    

    xseikaku(1) = "信頼がおける方ですね"

    xseikaku(2) = "やさしい人ですね"

    xseikaku(3) = "おしゃれな方ですね"

    xseikaku(4) = "活発な方ですね"

    xseikaku(5) = "msg5"

    xseikaku(6) = "msg6"

    xseikaku(7) = "msg7"

    xseikaku(8) = "msg8"
Dim xans
xans = MsgBox("ペットにするなら，猫と小鳥，どちら？　猫？", 4)
If xans = 6 Then

        xans = MsgBox("甘える猫、自己中猫、好きな方は甘える猫？", 4)

        If xans = 6 Then

                xans = MsgBox("小さい猫、大きな猫、好きなのはおきな猫？", 4)

                if xans = 6 Then

                        WScript.Echo xseikaku(1)

                Else

                        WScript.Echo xseikaku(2)

                End If

        Else

                xans = MsgBox("質問３", 4)

                if xans = 6 Then

                        WScript.Echo xseikaku(3)

                Else

                        WScript.Echo xseikaku(4)

                End If

        End If

Else

        xans = MsgBox("質問４", 4)

        If xans = 6 Then

                xans = MsgBox("質問５", 4)

                if xans = 6 Then

                        WScript.Echo xseikaku(5)

                Else

                        WScript.Echo xseikaku(6)

                End If

        Else

                xans = MsgBox("質問６", 4)

                if xans = 6 Then

                        WScript.Echo xseikaku(7)

                Else

                        WScript.Echo xseikaku(8)

                End If

        End If

End If