UC知道VB一个随机数的问题
来源：百度知道 编辑：UC知道 时间：2024/06/01 09:49:11
我有这么一道题：界面上一个Text1和一个Command1。然后是定义一个随即数（1-10），text1中输入的是用户猜的数，输入一个按1下，如果错误。则弹出Msgbox "错误，请重新输入"。再输入。一共可以输入3次。如果3次都错误的话。就直接公布答案。如果在3次内输入正确了则弹出Msgbox "恭喜你答对了"。
添加,一个text1,添加两个按钮,一个用于判断,一个用于产生随机数
Option Explicit
Dim rndNum As Integer
Private Sub Command1_Click()
Static i As Integer
If rndNum = Val(Text1) Then
MsgBox "猜对了,恭喜,你真聪明"
i = 0
Else
MsgBox "猜错了,请重新输入!"
Text1 = ""
Text1.SetFocus
End If
i = i + 1
If i > 2 Then MsgBox "答案是:" & rndNum: i = 0
End Sub
Private Sub Command2_Click() '也可在form_load()事件中产生随机数
Randomize
rndNum = Int(Rnd * 10 + 1)'这个按钮用于产生随机数
End Sub