求助！关于用vb写猜数字游戏的代码！网上难找到符合要求的！

Question

网上很多有类似，但是都不太符合要求，自己尝试的时候，也一直出现错误，处于迷茫中，希望熟练使用vb的人能帮忙指点一下！非常感谢！编写一个猜数的游戏程序。（数字由机器随机产生，限制为1~100之间的整数，用户输入猜测，程序给出大小提示，猜测次数限制在十次以内）

Answer 1

Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer
Randomize
n = Int(Rnd * 100) + 1
For i = 1 To 10
    a = Val(InputBox("请猜："))
    If a = n Then
        MsgBox "猜中了，恭喜你！"
        Exit Sub
    ElseIf a < n Then
        MsgBox "太小了，继续猜"
    Else
        MsgBox "太大了，继续猜"
    End If
Next
MsgBox "猜数失败，游戏结束！"
End Sub

Answer 2

Dim a As Integer
        a = Int(Rnd() * 100)
        Dim n As Integer
        n = 0
        Dim m As Integer
        m = 1
        TextBox1.Text = a
        Do
            n = InputBox("第" & m & "次了，请猜")
            If n > a Then
                MsgBox("太大了")
            ElseIf n < a Then
                MsgBox("太小了")
            Else
                MsgBox("猜对了")
            End If
            m = m + 1
            If m > 10 Then
                MsgBox("没猜对")
                Exit Do
            End If
        Loop Until a = n

追问

非常感谢！但是只要一个command，不需要text，不管怎样，还是很谢谢你的帮助！

本回答被网友采纳

Answer 3

把你的代码和要求贴出来