VB小程序，猜数字游戏

VB小程序，关注我有更多的有趣的VB小程序

实现功能：程序启动时随机产生1个到500之内的正整数，在Textbook框内输入你猜的数字，试试看你能几次猜中，如果10次没有猜中，Command按钮就变换灰色

控件：一个TextBox文本框，两个Label标签，一个Command命令按钮

界面：

代码：

Option Explicit

Dim num As Integer

Dim i As Integer

Private Sub Command1_Click()

If i > 10 Then

Command1.Enabled = False

MsgBox "你已猜了多次，游戏结束，没有猜中"

Exit Sub

End If

If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then‘text1为空或者非数字就进行提示

MsgBox "请输入数字！"

Else

If Val(Text1.Text) > num Then

Label2.Caption = "太大了，请重新输入！"

Text1.Text = ""

i = i + 1

ElseIf Val(Text1.Text) = num Then

Label2.Caption = "恭喜你，你猜对了！" & "你共猜了" & Str(i) & "次"

i = i + 1

Else

Label2.Caption = "太小了，请重新输入！"

i = i + 1

Text1.Text = ""

Text1.SetFocus

End If

End If

End Sub

Private Sub Form_Load()

Command1.Caption = "猜数"

Randomize’每次启动时生成的随机数不一样

i = 0

num = Int(Rnd * 500) + 1‘生成随机数

End Sub

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！