资料简介
VB 4 猜数字游戏
一、随机数生成
1、RND函数
RND函数,一般需要配合Randomize使用
该函数能随机生成[0,1)之间的任意一个小数,该数可
以等于0,但是不能等于1,只能无限接近于1
2、如果要产生一个[0,20)的随机数呢?
RND*20
二、INT( )函数
• INT( )得到不大于该数的最大整数
• 例如:
• Int(4.6)=?
• Int(-4.3)=?
问题1:如果要得到[0,20)的任意一个整数呢?
Int (Rnd*20)
问题2:如果要得到[1,20]的任意一个整数呢?
Int (Rnd*20)+1
加载窗体时生成随机数
Private Sub Form_Load()
Randomize
m = Int(Rnd * 20) + 1
End Sub
选
择
或
分
支
结
构
在 算 法 流 程 中 ,往 往 需 要 对 某 个 情 况e 进 行 判 断 ,当 结 果 为
真 时 ,执 行yes指向 的 流 程 线 下 的 语 句 1 ,否 则 执 行no指 向 的
流 程 线 下 的 语 句 2。
任务1代码
Private Sub Command1_Click()
n = Val(Text1.Text)
If m = n Then
Label3.Caption = "猜对了!"
Else
Label3.Caption = "猜错了!"
End If
End Sub
IF 条件1 then
语句1
ElseIF 条件2 then
语句2
Else
语句3
Endif
语句1
语句2 语句3
Y
Y N
N
条件1
条件2
任务2代码
Private Sub Command2_Click()
n = Val(Text1.Text)
If m = n Then
Label3.Caption = "猜对了!“
ElseIf m > n Then
Label3.Caption = “太小了!“
Else
Label3.Caption = “太大了!"
End If
End Sub
拓展任务(任务3)
• 通过观察“开始计时”按钮的代码:
Timer1.Enabled = True,可以猜测停止计时
的代码:Timer1.Enabled = False,注意本行
代码书写的位置
• 简单介绍Timer控件的开启和关闭属性
Enabled
查看更多