数字猜猜猜的vb编程

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End If
Option Explicit
Dim intLow As Integer
Dim intHigh As Integer
Dim intMid As Integer
Private Sub Command2_Click()
‘点CMD2时重新开始，所以重置次数为0，重新产生一个随机数
cishu = 0
Randomize Timer
x = Int((Rnd * 10) + 1)
End Sub
Private Sub Form_Load()
’程序开始时自动重置一次，可以省去，如果省去的话开始前需要点CMD2开始游戏
Case Else
z = MsgBox("恭喜你猜中了！", 1)
End Select
End Sub
p.s.如果可以帮我修改一下代码就更好了~~
有分追加~~
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
Dim x As Integer, y As Integer, z As Integer
Dim myvalue
myvalue = Int((10 * Rnd) + 1)
x = Val(myvalue)
y = Val(Text1.Text)
If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then
Text1.SetFocus
Case Is > 0
z = MsgBox("你猜数小了，请重猜。注意：你只有三次机会", 48 + 1)
Text1.Text = ""
Text1.SetFocus
Case Else
z = MsgBox("恭喜你猜中了！", 1)
End Select
End Sub
Text1.SetFocus
Case Is > 0
z = MsgBox("你猜数小了，请重猜。注意：你只有三次机会", 48 + 1)
Text1.Text = ""
Text1.SetFocus
Case Else
z = MsgBox("恭喜你猜中了！", 1)
End Select
End Sub
MsgBox "猜大了。"
Else
MsgBox "猜小了。"
End If
Text1 = ""
If Val(Text3) >= 3 Then
MsgBox "呵呵，没猜对！正确的答案是" & Text2 & "。别气馁，再来！"
Command1_Click
Private Sub cmdBigger_Click()
intHigh = intMid - 1
If intLow > intHigh Then
labNumber.Caption = "猜不到你的数！"
cmdOK.Caption = "开始"
cmdSmaller.Enabled = False
If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then
MsgBox "输入有误！请重新输入数字", 48
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
Select Case x - y
Case Is < 0
cmdBigger.Enabled = False
Else
intMid = intLow / 2 + intHigh / 2
labNumber.Caption = intMid
If cishu = 3 Then Msgbox "已经猜3次了，这个数是" & x: Exit Sub
y = Val(Text1.Text)
If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then
MsgBox "输入有误！请重新输入数字", 48
Text1.SetFocus
Else
MsgBox "您所猜的数字偏大，您一共只有三次机会"
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "三次机会已经用完，程序结束！"
End
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
总得分就为猜测得分
程序：猜对个数需要 猜测数和随机产生的准确数逐位逐个比较，建议用mid函数
mid（s,a,m）表示字符串s中，从第a个字符开始取m个
编写的时候遇到了几个问题，希望可以帮我解决一下
1.怎样用随机函数产生一个1~10之间的整数
2.怎么才能使在输入三次数字后结束程序。
End If
End Function
具体程序已经发到你的邮箱songxing_cool@.c
编写的时候遇到了几个问题，希望可以帮我解决一下
1.怎样用随机函数产生一个1~10之间的整数
2.怎么才能使在输入三次数字后结束程序。
以下是我的代码
Private Sub Command1_Click()
Me.Caption = "猜数游戏"
Label1.Left = 0
Label1.Top = 1000
Label1.Caption = "欢迎进入猜数游戏"
Label1.FontName = "楷体_GB2312"
Label1.ForeColor = &H80FF&
Label1.FontSize = 48
t = Int(Rnd * 10 + 1)
n = Val(Text1.Text)
a = a + 1
If a < 3 Then
If t = n Then
MsgBox "猜对了"
ElseIf t > n Then
MsgBox "你所猜的数字偏小，您一共只有三次机会"
Text1.Text = ""
If a = 0 Then
Timer1.Enabled = False
End If
End Sub
至于游戏水平评价：（总分100）
定义规定时间内完成有一个基础加成分，若为完成则没有基础加成分（分数自己算一算多少为好，我觉得定为10分吧）
①若有限时间内完成，则
根据所猜的次数和该数最多需要的猜测次数进行比较
p.s.如果可以帮我修改一下代码就更好了~~
有分追加~~
谢谢~！
分享到：
2010-04-10 13:50提问者采纳
先说程序的错误
1.把Int((10 * Rnd) + 1)放到CMD1里
也就是每点一次产生的数都不一样
怎么猜啊
2.没加计数器，不能判断出猜了几次
所以修改后的代码：
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 Then KeyAscii = 0
If KeyAscii = 13 Then
If Text1 <> "" Then Jysz
End If
End Sub
Private Function Jysz() As Boolean
z = MsgBox("你猜数大了，请重猜。注意：你只有三次机会", 48 + 1)
Text1.Text = ""
Text1.SetFocus
Case Is > 0
z = MsgBox("你猜数小了，请重猜。注意：你只有三次机会", 48 + 1)
Text1.Text = ""
Text1.SetFocus
Text3 = Val(Text3) + 1
If Val(Text1) = Val(Text2) Then
MsgBox "猜对了，你真棒" & Chr(13) & Chr(10) & "请猜下一个……"
Command1_Click
ElseIf Val(Text1) > Val(Text2) Then
Dim I As Integer
I = MsgBox("下面游戏开始，你准备好了吗？", vbYesNo)