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小程序,请关注我,点击下方的广告可以更好的支持和鼓励我哦!
本文为企业推广,本网站不做任何建议,仅提供参考,作为信息展示!
推荐阅读:廊坊新网
网友评论
请登录后进行评论|
0条评论
请文明发言,还可以输入140字
您的评论已经发表成功,请等候审核
小提示:您要为您发表的言论后果负责,请各位遵守法纪注意语言文明