点击开始按钮，能随机进行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

没什么不好意思的啊.等一下啊.
label1.caption=猜数
label2.caption=提示
label3.caption=积分
label4.caption=设定猜数次数
command1.caption=确定
command2.caption=开始猜数
command3.cattion=退出

Dim rom As Integer
Dim num As Integer
Dim time As Integer
Private Sub Command1_Click()
time = 0
rom = Int(Rnd * 100 + 1)
Command1.Enabled = False
Command2.Enabled = True
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
num = Int(Val(Text1.Text))
If time < 10 Then
If num > rom Then Label1.Caption = "你猜的大于了。"
If num < rom Then Label1.Caption = "你猜的小于了。"
If num = rom Then Label1.Caption = "你猜对了。"
Else
Label1.Caption = "猪啊，10次都猜不对！"
Text1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End If
time = time + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "显示情况"
Text1.Text = ""
Form1.Caption = "猜数游戏"
Command1.Caption = "出题"
Command2.Caption = "猜一猜"
rom = 0
Text1.Enabled = False
Command2.Enabled = False
End Sub

这个可以用.

窗体标题为"猜数游戏"。单击"出题"按钮生成一个1-100之间的随机数，然后在文本框中输入一个数，单击"猜一猜"按钮，并在标签框内给出提示信息（大于、小于或等于随机数），猜1个数超过10次不可再猜该数。其他要求：随机数产生后锁定"出题"按钮（即不可用），激活文本框（即可用）；猜数超过10次后锁定文本框，激活"出题"按钮。

貌似不难,其实很不好做.是吗?