猜数
Public A As Integer
Public B As Integer
Public C As Integer
-------------------------------------------------
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字昌塌悔!"
Else
If Text1.Text > C Then
MsgBox "衫陵太大!"
ElseIf Text1.Text < C Then
MsgBox "太小!"
Else
MsgBox "你猜对了!"
End
End If
End If
End Sub
--------------------------------------------------
Private Sub Form_Load()
Randomize
A = Rnd(5) * 30
Randomize
B = Rnd(17) * 20
C = A + B * 10
End Sub
----------------------------------------------------
注:Private Sub Form_Load()中的内耐正容可自己更改,希望对你有用!