VB编程:IF语句嵌套实例猜数小游戏-9

举报
彭世瑜 发表于 2021/08/14 00:43:44 2021/08/14
【摘要】 运行效果: 程序代码: Public A As Long                                   &nbsp...
运行效果:
VB编程:IF语句嵌套实例猜数小游戏-9

程序代码:
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

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。