VB编程问题

编程，窗体标题为“猜数游戏”
基本要求：单击“出题”按钮则生成一个1~100见的随机整数；然后在文本框中输入若干数（以回车键结束），大于或小于随机数则给出提示信息，猜1个数超过10次不可再猜该数。
其他要求：根据猜数的猜数给出评语；出题、猜数可重复进行；随机数产生后锁定“出题”按钮、激活文本框控件，猜数结束后锁定文本框控件、激活“出题”按钮

答案：新建窗体，添加command1，text1控件，复制代码运行即可！
Public num, x, co
Private Sub Command1_Click()
    Randomize
    num = Int(Rnd * 99 + 1)
    co = 0
    Text1.Enabled = True
    Text1.SetFocus
End Sub
Private Sub Form_Load()
    Form1.Caption = "猜数游戏"
    Command1.Caption = "出题"
    Text1.Text = ""
    Text1.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        co = co + 1
        If co > 10 Then
            MsgBox "正确答案是：" & num
        Else
            x = Val(Text1.Text)
            If x > num Then
                MsgBox "没有你想象的那么大！"
            ElseIf x < num Then
                MsgBox "怎么可能那么小！"
            Else
                MsgBox "恭喜你，猜对了！"
                Text1.Enabled = False
            End If
        End If
    End If
End Sub

上一个：VB编程问题
下一个：一道VB编程问题