Question

所以这是我的代码，它是针对计算机的游戏。？起始编号和游戏当前的编号显示在文本框中。用户可以从下拉列表中选择1-3中的数字，从当前数字中选择减号。首先获得零的人是失败者。我对循环很新，所以我不确定在这种情况下使用哪一个。目前，代码只是继续循环，因为我不知道如何在循环开始时输入新数字...任何帮助将不胜感激：）

    Randomize()
    StartingNumber = Int((30 - 20 + 1) * Rnd()) + 20
    TextBox1.Text = StartingNumber


     'Start loop

        UserNumber = ComboBox1.Text
        CurrentNumber = StartingNumber - UserNumber
        TextBox2.Text = CurrentNumber
        If UserNumber = "" Then
            MsgBox("Starting Number: " + StartingNumber)
        Else
            MsgBox("You chose: " + UserNumber + vbCrLf + "The new number is: " + CurrentNumber)
        End If


        Randomize()
        ComputerNumber = Int((Rnd() * 3) + 1)
        CurrentNumber = CurrentNumber - ComputerNumber
        MsgBox("The computer chose: " + ComputerNumber + vbCrLf + "The new number is: " + CurrentNumber)
        TextBox2.Text = CurrentNumber

     'Loop until current number = 0

    If CurrentNumber - UserNumber = "0" Then
        MsgBox("You lost, the computer won!")
    ElseIf CurrentNumber - ComputerNumber = "0" Then
        MsgBox("You won!")

    End If

End Sub

Answer 1

你的代码中不需要循环。

您需要做的步骤是：

初始化

设置起始编号

当用户从组合框中选择数字时

从总数
测试结果是否为0：user won，reinit
计算计算机选择
从总计中扣除计算机编号
测试结果是：computer won，reinit

在循环开始时使用户输入新数字。 VB6

1 个答案: