VB猜数字游戏程序代码

Question

”猜字游戏”界面有几个很大的字“欢迎进入猜字游戏”有两个恩扭“开始”“退出”点击开始出现界面“游戏开始你准备好了吗””“是”就出现另外一个界面“我这里有1~10的正整数猜猜是多少”在text里面输数字，有“确定”和“返回”。猜对了就是“你真幸运猜对了”错了就是“你的数据小了（或大了）请重新猜把 ，注意只允许猜3次”
会做的发我邮箱谢谢。。
songxing_cool@yahoo.com.cn

Answer 1

Option Explicit

Private Sub Command1_Click()
On Error Resume Next
Dim I As Integer
I = MsgBox("下面游戏开始，你准备好了吗？", vbYesNo)
If I = 6 Then Frame1.Visible = True: Text1 = "" Else Frame1.Visible = False
Text1.SetFocus
Randomize (Timer)
Text2 = Int(Rnd() * 10) + 1
Text3 = 0
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Me.Height = 5000
Me.Width = 10500
Me.BorderStyle = 1
Me.Caption = "猜数游戏"
Label1.Left = 0
Label1.Top = 1000
Label1.Caption = "欢迎进入猜数游戏"
Label1.FontName = "楷体_GB2312"
Label1.ForeColor = &H80FF&
Label1.FontSize = 48
Command1.Caption = "开始"
'Command1.Default = True
Command2.Caption = "退出"
Command2.Cancel = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
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
Text3 = Val(Text3) + 1
If Val(Text1) = Val(Text2) Then
MsgBox "猜对了，你真棒" & Chr(13) & Chr(10) & "请猜下一个……"
Command1_Click
ElseIf Val(Text1) > Val(Text2) Then
MsgBox "猜大了。"
Else
MsgBox "猜小了。"
End If
Text1 = ""
If Val(Text3) >= 3 Then
MsgBox "呵呵，没猜对！正确的答案是" & Text2 & "。别气馁，再来！"
Command1_Click
End If
End Function
具体程序已经发到你的邮箱songxing_cool@yahoo.com.cn
更多代码请参阅我的博客http://hi.baidu.com/zgmg/blog

Answer 2

没时间写啊，Q648905586