Question

求VB程序：计算机随机出一个1~100的整数，你来猜，每次提示大了、小了，最后输出猜几次得到的正确答案！急

Answer 1

窗体上放command1，text1，label1，打开代码窗口，复制下列代码：
Private Num As Integer

Private Sub Command1_Click() '点击猜下一个数
Call Form_Load
Text1.Text = ""
End Sub

Private Sub Form_Load()
Num = Rnd() * 100 + 1 '产生1-100随机数
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
If (Not IsNumeric(Text1.Text)) Then
MsgBox "请输入数字", vbCritical
Else
If (Text1.Text > Num) Then
Label1.Caption = "您输入的数大了"
ElseIf (Text1.Text < Num) Then
Label1.Caption = "您输入的数小了"
Else
Label1.Caption = "恭喜，您猜对了！"
End If

End If

End If

End Sub

追问

看不懂啊，我上高一，这是我们信息老师留的作业，还有统计才几次呢

追答

奥，高一学生啊，那简化下：
窗体上放text1，label1，打开代码窗口，复制下列代码：
Private Num As Integer
Private Sub Form_Load()
Num = Rnd() * 100 + 1 '产生1-100随机数，Rnd()产生的数x，0= Num) Then
Label1.Caption = "您输入的数大了"
ElseIf (Text1.Text < Num) Then
Label1.Caption = "您输入的数小了"
Else
Label1.Caption = "恭喜，您猜对了！"
End If
End If
End Sub

追问

我们就学了这一个 Private Sub Command1_Click()

追答

窗体上放两个command1和command2，一个text1，一个label1；command1、command2的caption属性设置成：“出一个数” 和 “我猜”，text1的text属性设成空白，复制如下代码到代码窗口：
Private Num As Integer
Private Sub Command1_Click()
Num = Rnd() * 100 + 1 '产生1-100随机数，Rnd()产生的数x，0= Num) Then
Label1.Caption = "您输入的数大了"
ElseIf (Text1.Text < Num) Then
Label1.Caption = "您输入的数小了"
Else
Label1.Caption = "恭喜，您猜对了！"
End If
End Sub
运行后，先点击“出一个数”，在text空白处输入你猜想的数，然后点击“我猜”，没猜对，删除以前输入text里的数，重新输入再试
这回该满意了吧