第4章基本控制结构(顺序结构)

1、2021-12-11回顾回顾第第3章章 程序设计基础程序设计基础u VB基本数据类型基本数据类型u 常量、变量常量、变量u 运算符和表达式运算符和表达式u 常用内部函数常用内部函数第第4 4章章 基本控制结构基本控制结构2021-12-11结构化程序设计方法：结构化程序设计方法：19651965年，年， E.W.Dijikstra（迪克斯特拉）提提出结构化程序设计方法出结构化程序设计方法，该方法，该方法使用使用三种基三种基本控制结构本控制结构可以构造任何可以构造任何程序。程序。（1）顺序结构（2）选择结构（3）循环结构2021-12-11AB一种按一种按出现出现顺序执行的程序结构。顺序执行的程

2、序结构。顺序结构顺序结构2021-12-11l InputBoxl MsgBox顺序结构顺序结构2021-12-11InputBoxInputB2021-12-111 1、InputBoxInputBox函数函数 格式：格式：变量变量$=$=InputBoxInputBox（提示提示,标题标题,默认值默认值 ）功能：产生一个用户可输入数据的对话框。功能：产生一个用户可输入数据的对话框。说明：说明：（1 1）提示提示：是一个：是一个字符串字符串，是，是必选项必选项，是对话框，是对话框内显示的信息内显示的信息（2 2）标题标题：对话框标题，若省略，显示当前工程名。：对话框标题，若省略，显示当前工程

3、名。（3 3）默认值默认值：输入区缺省值：输入区缺省值（4 4）执行一次）执行一次InputBoxInputBox函数只能输入一个数据函数只能输入一个数据, , 返回一个字符型数据。返回一个字符型数据。演示例：a=InputBox(请输入学号:, 输入)2021-12-11Dim a As Stringa=InputBox(请输入学号:, 输入)Dim b As Integerb=Val(InputBox(“请输入年龄:, 输入)用法举例：演示2021-12-11MsgBoxMsgB2021-12-112 2、MsgBoxMsgBox格式：格式： MsgBox MsgBox 提示提示,按钮按钮

4、,标题标题 变量变量%=%= MsgBox MsgBox（提示提示,按钮按钮,标题标题）功能：产生一个等待用户选择的信息框。功能：产生一个等待用户选择的信息框。 返回一个整型值返回一个整型值，与选择的按钮有关。，与选择的按钮有关。P76P76表表1.4.21.4.2 P75表表2021-12-11举例：举例：Dim a%Dim a%a=6a=6MsgBox MsgBox 该数据是该数据是 & a & a第第2个参数省个参数省略，按略，按0对待对待用用MsgBox实现数据输出实现数据输出举例：（不需要返回值）2021-12-11 举例：（举例：（不需要返回值不需要返回值）MsgB

5、ox MsgBox 确实要删除吗？请选择！确实要删除吗？请选择！ , , , 提示提示 MsgBox MsgBox 确实要删除吗？请选择！确实要删除吗？请选择！, 64 + 1, , 64 + 1, 提示提示 2021-12-11输入变量输入变量a%a%值的几种实现方法：值的几种实现方法：a = 1a = 1a = a = valval(text1.text)(text1.text)a = a = valval( (InputBoxInputBox(请输入所需的数据：请输入所需的数据：)输出变量输出变量a a值的几种实现方法：值的几种实现方法：Form1Form1或或pictrue1.Prin

6、t apictrue1.Print atext1.text = atext1.text = aLabel1.caption = aLabel1.caption = aMsgBoxMsgBox 该数据是该数据是 & a & 2021-12-11例例2 2：编写程序计算某个学生三门课程的平均成绩。：编写程序计算某个学生三门课程的平均成绩。要求：要求： 单击单击“计算计算”按钮，按钮，输入输入学生的成绩，通过学生的成绩，通过输输出出对话框输出该学生的平均分，并在文本框中显示。对话框输出该学生的平均分，并在文本框中显示。界面如下：界面如下：演示2021-12-11dim a as In

7、tegerdim a as Integer a= MsgBox(a= MsgBox(提示信息提示信息 ,1, ,1, 标题标题 ) )举例：（举例：（需要返回值，决定下一步操作需要返回值，决定下一步操作）2021-12-11 Cancel为为0，窗，窗体被关闭，体被关闭，为非为非0，不关闭，不关闭例例2 2：关闭窗体时用一个消息框来决定是否关闭。：关闭窗体时用一个消息框来决定是否关闭。Private Sub Form_Unload(Cancel As Integer)Dim a as Integera=MsgBox(你确实要退出应用程序吗？你确实要退出应用程序吗？ , _vbYesNo+vbI

8、nformation, 询问对话框询问对话框)Cancel=a-6End Sub演示2021-12-11例：例：单击窗体，随机变换窗体背景色单击窗体，随机变换窗体背景色Private Sub Form_Click()RandomizeDim r%, g%, b%r = Int(256 * Rnd)g = Int(256 * Rnd)b = Int(256 * Rnd)Form1.BackColor = RGB(r, g, b)End S2021-12-11时钟控件时钟控件属性：属性：Interval（单位为毫秒）（单位为毫秒） Enabled事件：事件：Timer （每隔（每隔Interval

9、时间间隔自动触发。）时间间隔自动触发。）2021-12-11例：例：每隔每隔0.5s随机变换窗体背景色随机变换窗体背景色 （时钟控件时钟控件 interval属性：属性：500）Private Sub Timer1_Timer()RandomizeDim r%, g%, b%r = Int(256 * Rnd)g = Int(256 * Rnd)b = Int(256 * Rnd)Form1.BackColor = RGB(r, g, b)End S2021-12-11练习练习1：每隔：每隔0.1秒自动产生一个秒自动产生一个【0，100】 范围内随机整数，并输出在文本框上。范围内随机整数，并输

10、出在文本框上。练习练习2：设计如下：设计如下计时闪烁程序计时闪烁程序。2021-12-11u 滚动条滚动条可用作数据输入的工具。可用作数据输入的工具。 水平滚动条（水平滚动条（HScrollBar） 垂直滚动条（垂直滚动条（VScrollBar） 滚动条(ScrollBar)P100滚动箭头滚动箭头滚动条的空白位置滚动条的空白位置滑块滑块2021-12-11滚动条的主要属性滚动条的主要属性 属性名属性名属性值属性值说说 明明Max数值数值当小滑块处于底部或最右位置时，其当小滑块处于底部或最右位置时，其Value 属属性的最大值，取值范围性的最大值，取值范围(-32768 32767) 。Min

11、数值数值当小滑块处于上部或最左位置时，其当小滑块处于上部或最左位置时，其Value 属属性的最小值，取值范围性的最小值，取值范围(-32768 32767) 。Value数值数值返回返回或或设置设置滑块的当前位置。滑块的当前位置。Value属性值总属性值总是在控件的是在控件的 Max 属性值和属性值和 Min 属性值之间属性值之间.SmallChange数值数值用鼠标单击滚动条两端箭头按钮时，滑块移动用鼠标单击滚动条两端箭头按钮时，滑块移动的增量值。的增量值。LargeChange数值数值用鼠标单击滚动条的空白处时，滑块移动的增用鼠标单击滚动条的空白处时，滑块移动的增量值。量值。2021-12-11主要事件主要事件Scroll：拖动滑块拖动滑块时触发；时触发； 单击单击 滚动箭头或滚动条空白滚动箭头或滚动条空白 时不会触发。时不会触发。Change：当：当Value属性值改变属性值改变时触发。（时触发。（三种情况三种情况）（1）拖动滑块结束时。）拖动滑块结束时。（2）单击滚动箭头时。）单击滚动箭头时。（3）单击滚动条空白处时。）单击滚动条空白处时。2021-12-11例例2: 设计调色板程序。设计调