VB编程:IF语句嵌套实例猜数小游戏-9
原创
©著作权归作者所有:来自51CTO博客作者彭世瑜的原创作品,请联系作者获取转载授权,否则将追究法律责任
程序代码:
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制表键即可。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
开心打地鼠,Android小游戏开发
使用 Android Studio 开发一款小游戏 —— 开心打地鼠。
代码设计 游戏开发 android studio java 开发 -
java猜数小游戏
猜数小游戏
java System Math -
shell 脚本if语句嵌套实例
简单脚本做个学习记录
职场 嵌套 脚本 shell 休闲 -
随机猜数小游戏
1、目录2、选择(选用switch语句)3、游戏本身
小游戏 猜数 随机值 函数封装 switch语句 -
猜数小游戏、随机数产生
呐呐~一起玩玩吧~~#include #in
#include 2d i++