急急急~~~用VB产生的随机数怎样和输入的数值进行比较?
发布网友
发布时间：2024-10-12 11:25
共2个回答
热心网友
时间：2024-10-14 16:39
Randomize
Dim a As Integer
Dim b As Integer
a = Int(Rnd * 100)
s1 = "请输入"
For i = 1 To 10
b = InputBox(s1, "猜一猜")
If b > a Then
s1 = "请输入(大了)"
ElseIf b < a Then
s1 = "请输入(小了)"
Else
MsgBox "恭喜在第" & i & "次猜中了", vbInformation, "猜一猜"
Exit For
End If
Next i
If i > 10 Then
'猜题结束
MsgBox "你真衰,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInformation, "猜一猜"
End If
热心网友
时间：2024-10-14 16:38
a=int(rnd*10+1) '产生1-10的随机数
b=inputbox("请输入一个数") '输入一个数
if a>b then '比较
c=1
else
c=0
end if
