0
点赞
收藏
分享

微信扫一扫

VB编程:IF语句嵌套实例猜数小游戏-9_彭世瑜_新浪博客

运行效果: ​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制表键即可。

 

举报

相关推荐

0 条评论