Dim a As Integer
Dim N As Integer
Dim s As Integer
Private Sub Command1_Click()
N = 0
a = Int(Rnd * 9 + 1)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label3 = ""
N = 1
End Sub
Private Sub Text1_Change()
For N = 0 To 10
Next N
N = 1
s = Val(Text1.Text)
If sa Then
Label3 = "不对哦,猜的大了,已经用了" & N & "次机会了!"
N = N + 1
End If
If a = s And N >= 5 Then
Label3 = "猜中了,但阁下用了" & N & "次机会,不算好成绩!"
ElseIf a = s And N < 5 Then
Label3 = "猜中了,您真了不起,您用了" & N & "次机会!"
End If
If a = s And N = 1 Then
Label3 = "真是太了不起了,您一次就猜中了,真是奇才!!"
End If
End Sub
|