第四章 VB程序设计初步 复习课课件（19张幻灯片）

课件19张PPT。VB程序设计初步 复习课寻找“幸运儿”——数字猜猜猜
运行桌面“寻找幸运儿.exe”，体验程序的功能。vb程序设计初步 复习课
生活中，有时候运气很重要，
但真正的“幸运儿”应该是实力派人物。vb程序设计初步 复习课寻找“幸运儿” 准备工作：
在桌面上打开“学生练习素材”——“进阶一：寻找幸运儿1”文件夹中的“寻找幸运儿1.vbp”文件寻找“幸运儿”——实力拼拼拼 实践操作1：参照程序效果图，完善程序的界面设计。vb程序设计初步 复习课寻找“幸运儿”——实力拼拼拼图1 （1）程序界面设计时，要添加图1中1处的对象，应使用图2“控件工具箱”中的 控件（填写编号），修改其 属性的属性值可以改变该对象内的文字内容。图22textvb程序设计初步 复习课寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课知识链接：文本框（TextBox）：是一种通用控件，可以提供用户输入文本或显示文本。重要属性：Text属性
（显示在文本框中的文字内容）对象属性值的修改方法：
1、界面设计时，在对象的属性面板进行修改
2、程序运行时，通过代码的运行来修改对象属性的表示：对象名.属性名寻找“幸运儿”——实力拼拼拼 实践操作2：根据程序功能，在代码窗口中的①、②、③处填入正确的代码。vb程序设计初步 复习课 “寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示程序随机生成的数据（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。“寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示程序随机生成的数据（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课（2）根据程序功能，请完善以下代码：
Private Sub Command1_Click()
Dim n As Integer '变量n用于存储用户输入的数据
Dim suiji As ① '变量suiji用于存储程序生成的随机整数
n = ②
③
List1.AddItem Str(n)
List2.AddItem Str(suiji)
End SubDim suiji As ①知识链接：变量定义语句：Dim 变量名 as 变量的类型常用数据类型名：integer（整形）、long（长整形）
single（单精度实数型）、double（双精度实数型）
string（字符串型） 、Boolean（逻辑型）
date（日期型）Integer“寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示程序随机生成的数据（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课（2）根据程序功能，请完善以下代码：
Private Sub Command1_Click()
Dim n As Integer '变量n用于存储用户输入的数据
Dim suiji As Integer '变量suiji用于存储程序生成的随机整数
n = ②
③
List1.AddItem Str(n)
List2.AddItem Str(suiji)
End Sub知识链接： n = ② 赋值语句： 变量名 =表达式n = 文本框text1中的内容text1.text整数型字符串型Val（ ）“寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示随机生成的数据suiji（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课（2）根据程序功能，请完善以下代码：
Private Sub Command1_Click()
Dim n As Integer '变量n用于存储用户输入的数据
Dim suiji As Integer '变量suiji用于存储程序生成的随机整数
n = val（text1.text）
③
List1.AddItem Str(n)
List2.AddItem Str(suiji)
End Sub③
suiji=?知识链接：产生[a,b]范围内的随机整数： int(rnd*(b-a+1)+a)int( rnd*35 +1)寻找“幸运儿”——实力拼拼拼 实践操作3：根据程序功能，在代码窗口中的④处填入正确的代码。vb程序设计初步 复习课 “寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示程序随机生成的数据（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课 “寻找幸运儿1”程序功能如下：用户在文本框text1中输入n的值, 单击“确定”按钮（Command1），程序在列表框list1中显示用户输入的数据，在列表框list2中显示程序随机生成的数据（随机整数的范围为[1,35]）。用户可多次输入数据进行猜数，界面右上角label1中显示程序运行时间。Private Sub Timer1_Timer()
Label1.Caption = ④
End Sub在label1原来的数字上增加1 Label1.Caption + 1 Val（ ）str（ ）整数型字符串型整数型字符串型知识链接：赋值语句： 对象名.属性名=表达式寻找“幸运儿”——实力拼拼拼 实践操作4：打开“进阶二：寻找幸运儿2”文件夹中的“寻找幸运儿2.vbp”文件，根据程序功能，在代码窗口中的①、②、③处填入正确的代码。vb程序设计初步 复习课 “寻找幸运儿2”程序功能如下：用户在文本框text1中输入【1,35】内的任意一整数，若输入的数据不符合要求，则弹出对话框，提醒语为"请输入【1，35】范围内的数据"。当用户输入的数据和程序随机生成的数据一致时，在标签label2中显示"恭喜你猜对了哦，你今天的幸运数字是：" 和相应的数字，同时关闭计时器timer1、文本框text1和命令按钮command1。猜数限时20秒，时间用完，停止猜数。寻找“幸运儿”——实力拼拼拼vb程序设计初步 复习课 Dim n As Integer '变量n用于存储用户输入的数据
Dim suiji As Integer '变量suiji用于存储程序生成的随机整数
Randomize
n = Val(Text1.Text) '用户在文本框text1中输入n
If ① Then
MsgBox "请输入【1，35】范围内的数据"
Else
suiji = Int(Rnd * 35 + 1) '程序随机生成【1,35】范围内的整数
If ② Then
Label2.Caption = "恭喜你猜对了哦，你今天的幸运数字是：" + Str(n)
Timer1.Enabled = False
Command1.Enabled = False
Text1.Enabled = False
③
List1.AddItem Str(n)
List2.AddItem Str(suiji)
End Ifn>35 or n<1n=suiji知识链接： 行if： if 条件 then 语句1 else 语句2 块if： if 条件 then
语句1
else
语句2
end if end if 课 堂 小 结界面设计：添加对象、属性的修改课 堂 小 结界面设计：添加对象、属性的修改
变量的定语语句：Dim 变量名 As 数据类型
数据类型：integer、long、single、double、string 、Boolean、dateDim suiji As '变量suiji用于存储程序生成的随机整数IntegerDim fuhao As '变量fuhao用于+、 - 、*、 /等运算符号string课 堂 小 结界面设计：添加对象、属性的修改
变量的定语语句：Dim 变量名 As 数据类型
数据类型：integer、long、single、double、string 、Boolean、date
赋值语句：变量名=表达式
对象名.属性名=表达式
n = Val（text1.text） '用户在文本框text1中输入n的值
suiji= int（rnd*35+1) '程序随机生成【1,35】范围内的整数 Label1.Caption = Str(Val(Label1.Caption)+1 )
'标签label1上显示用时课 堂 小 结界面设计：添加对象、属性的修改
变量的定语语句：Dim 变量名 As 数据类型
数据类型：integer、long、single、double、string 、Boolean、date
赋值语句：变量名=表达式
对象名.属性名=表达式
选择语句： 行if： if 条件 then 语句1 else 语句2 块if： if 条件 then
语句1
else
语句2
end if 谢谢！