VB编程：IF语句嵌套实例猜数小游戏-9
【摘要】
运行效果：
程序代码：
Public A As Long  ...
运行效果：
程序代码：
Public A As Long '定义全局变量，用于储存生成的随机数
Private Sub Command1_Click()
Randomize '生成随机数
A = CLng(1000 * Rnd) 'CLng()函数，强制转换为长整型
End Sub
Private Sub Command2_Click()
Static B As Integer '申明静态变量用于计数
If Text1.Text <> "" And IsNumeric(Text1.Text) Then '判断是否是空值或者是数值
B = B + 1
If CLng(Text1.Text) > A Then '比较数据
MsgBox "大了.", , "信息提示"
ElseIf CLng(Text1.Text) < A Then
MsgBox "小了.", , "信息提示"
Else
MsgBox "猜对了，这个数是:" & A, , "信息提示"
B = 0
Exit Sub
End If
End If
Label3.Caption = "这是第" & B & "次猜想" '记录猜想次数
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call Command2_Click 'Enter回车键的ASCII是13
End If
End Sub
小技巧：
编写程序的时候，代码语句经常需要在前面加空格，四个字节的空格需要按4下Spase空格键，其实只要按1次Tab制表键即可。
文章来源: pengshiyu.blog.csdn.net，作者：彭世瑜，版权归原作者所有，如需转载，请联系作者。
原文链接：pengshiyu.blog.csdn.net/article/details/81049330
【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱：
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论（0）