点击开始按钮，能随机进行100以内的猜数
游戏者在猜数文本框中输入所猜的数，按命令按钮确认
游戏者确认后，在提示文本框中给出信息，如果猜数不正确，提示本次所猜数据是太大了还是太小了，如果猜数正确，则输出信息“完全正确”。
猜数正确积分加10分，猜数错误积分减10分
当积分累加到100分，输出信息“神机妙算”。
一个数最多允许猜10次，10次到未猜中程序结束。
点击退出按钮，程序结束
知识运用
为了生成真正的随机数，在程序的首部需要使用randomize命令
生成0～100之间的随机数：X=int(rnd*101)

[此贴子已经被作者于2007-11-20 18:32:35编辑过]

我做了一个,你看一下哪错了.我执行不出来,估计毛病很多吧.谢谢啊
Dim n As Integer

Private Sub Command1_Click()
n = Val(Text4.Text)

End Sub

Private Sub Command2_Click()

Dim i%, j%, s%, x%
Randomize
For i = 1 To 10
x = Int(Rnd * 101)
For j = n To 1 Step -1
If Val(Text1.Text) > x Then
Text2.Text = "大了,还有" & (i - 1) & "次机会"
ElseIf Val(Text1.Text) < x Then
Text2.Text = "小了,还有" & (i - 1) & "次机会"
Else
Text2.Text = "true"
End If
Exit For
Next j
If Text2.Text = "true" Then
s = s + 10
Text3.Text = s
Else
s = s - 10
Text3.Text = s
End If
Next i
If s = 100 Then Text2.Text = "clever"

End Sub

Private Sub Command3_Click()
Unload Me
End Sub