基本控制结构

1、基本控制结构第1页，共39页，2022年，5月20日，12点26分，星期二24.1顺序结构第2页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室3一.赋值语句简单赋值语句 形式: 变量名表达式 作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 TextBox1.Text 欢迎使用Visual Basic 2005”复合赋值语句：+= -= *= = /= = &= 形式：变量名+=表达式 例： sum+=x sum=sum+x n+=1 n=n+1 TextBox1

2、.Text &=“它简单易用、功能强大”& vbCrLf第3页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室4注意： （1）当表达式的类型与变量的类型不一致时,强制转换成左边的精度 iA% = 10 / 3 iA中的结果为3 （2）当表达式是数字字符串，左边变量是数值类型，则自动转换为数值类型 n%=“12345” （3）当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False （4）任何非字符串类型赋值给字符串类型，自动转换为字符串类型。第4页，共39页，2022

3、年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室5二、数据的输入和输出（1）InputBox函数 InputBox(提示,标题,默认值,x坐标,y坐标) 例：InputBox(“请输入学号”,”输入对话框”,”00001”, 100,100) (x,y) 注意：InputBox的返回值为字符串，因此一般和一些类型转换函数结合使用，转换为所需要的数据类型。第5页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室6 （2）MsgBox函数 作用：打开一个信息框，等待用户

4、选择一个按钮。其返回值为整数类型。如果只是进行提示，无需返回值，则可以作为一个独立语句存在。 用法： 变量%=MsgBox(提示,按钮,标题) 或者 MsgBox(提示,按钮,标题) 例：MsgBox(“账号必须为数字”, MsgBoxStyle.Information, “这是标题)第6页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室7MsgBox中“按钮”的意义与设置分组枚举值按钮值描述按钮数目与类型MsgBoxStyle.OkOnly0确定MsgBoxStyle.OkCancel1确定、取消MsgBoxStyl

5、e.AbortRetryIgnore2终止、重试、忽略MsgBoxStyle.YesNoCancel3是、否、取消MsgBoxStyle.YesNo4是、否MsgBoxStyle.RetryCancel5重试、取消图标类型MsgBoxStyle.Critical16关键信息图标“”MsgBoxStyle.Question32询问信息图标“？”MsgBoxStyle.Exclamation48警告信息图标“！”MsgBoxStyle.Information64信息图标“i”第7页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程

6、教研室8MsgBox函数返回值意义枚举值内部常量返回值被单击的按钮MsgBoxStyle.OkvbOk1确定MsgBoxStyle.CancelvbCancel2取消MsgBoxStyle.AbortvbAbort3终止MsgBoxStyle.RetryvbRetry4重试MsgBoxStyle.IgnorevbIgnore5忽略MsgBoxStyle.YesvbYes6是MsgBoxStyle.NovbNo7否第8页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室9（3）Write、WriteLine方法：只在程序编

7、写中起调试作用。 Debug.Write(表达式) Debug.WriteLine(表达式) Debug.Write不换行 Debug.WriteLine换行第9页，共39页，2022年，5月20日，12点26分，星期二104.2选择结构第10页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室11一、If条件语句1、If Then 语句 （1）If 表达式 Then 语句块 End If （2）If 表达式 Then 语句1:语句2:语句3:语句n注：表达式可以为逻辑表达式、关系表达式、算术表达式。如果为算术表达式，当

8、值非0时为True，0时为False第11页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室122、If Then Else 语句 （1）If 表达式 Then 语句块1 Else 语句块2 End If （2）If 表达式 Then 语句块1 Else 语句块2第12页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室133、IfThenElseIf语句 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 Else

9、语句块N+1 End If注意： (1)无论有多少个分支，程序只执行满足条件的一个分支，如果所有条件都不满足，则所有的分支都不执行。 (2)当有多个分支的条件同时满足，则只执行第一个满足条件的分支。第13页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室14二、Select Case语句1、语法 Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select2、与If语句的区别：If语句可以控制多个条件判断，而Select

10、 Case只能控制一个条件数值型表达式或字符串型表达式四种形式：(1)表达式；(2)一组用逗号分开的枚举值(3)表达式1 to 表达式2(4)Is 关系运算符表达式第14页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室15三、条件函数1、IIf函数 IIf(表达式,值1,值2) 例：gmax=IIf(xy,x,y)2、Choose函数 Choose(整数表达式,选项列表) 例：x$=Choose(a,”Apple”,”Orange”,”Banana”) 当a分别为1,2,3时，x分别为Apple, Orange, B

11、anana, 如果当a3时， x=nothingTruefalse第15页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室164.2.5 选择控件与分组控件 1.单选按钮(RadioButton) 单选按钮以组的形式出现，允许选择一项。 例单选题测试（1）主要属性 Text属性 按钮上显示的文本 Checked属性 表示单选按钮的状态： True 被选定 False 未被选定本章目录第16页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室17单

12、选按钮 （2）主要事件 Click 单击后使Checked属性为True CheckedChanged 当某个单选按钮的状态被发生变化，该事件随之被触发。本章目录第17页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室18一组选项，允许用户选择其中一个或多个例多选题测试（1）主要属性和事件 与单选有相同的属性和事件，增加了： CheckState 属性 表示复选框状态Unchecked 未选定Checked 被选定Indeterminate 灰色，2.复选框(CheckBox) 本章目录第18页，共39页，2022年，

13、5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室193.分组 (GroupBox) 需要在同一个窗体中建立几组相互独立的单选或复选按钮；具有容器功能。建立：建立分组，然后将各控件放置其中。Text属性 框架上的标题文本框架可以响应Click和DoubleClick事Text属性 分组的标题，无则封闭框线一般不需要编写事件过程。本章目录特性：移动、复制、删除框架，或对该控件进行Enabled、Visible属性设置时，也同样作用于该组内的其他控件。 第19页，共39页，2022年，5月20日，12点26分，星期二204.3循环结构第20页，共3

14、9页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室21一、For循环语句1、语法 For 循环控制变量 = 初值 To 终值 Step步长 语句块 Exit For 语句块 Next每循环一次，循环控制变量所加的值。可为正，可为负。缺省时为1为正：初值终值退出循环。一般和条件语句一起使用。当有exit for语句时，退出循环时，循环控制变量的值不再增加当无exit for语句时，退出循环时，循环控制变量的值增加(或减少)一个步长第21页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）

15、人文经管学院管理科学与工程教研室22二、DoLoop循环语句形式1Do While / Until 条件 语句块 Exit Do 语句块Loop形式2Do 语句块 Exit Do 语句块Loop While / Until 条件While 条件：表示条件为True时，执行循环。与Until相反Until 条件：表示条件为True时，退出循环。与While相反跳出循环，一般与条件语句结合使用。第22页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室23循环例题例4.18 我国有13亿人口，按人口年增长0.8%计算，多少年

16、后我国人口超过26亿。解此问题两种方法: 直接利用标准函数 问题:1)但求得的年数不为整数 2) 得不到实际人数 利用循环求得 上述两个问题解决了本章目录第23页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室24三、循环嵌套 一个循环体内包含一个或多个完整的循环，称为循环的嵌套。见例4.20第24页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室25 在一个循环体内又包含了一个完整的循环结构称为循环的嵌套。 循环嵌套对For循环语句和DoLo

17、op语句均适用。例4.20 打印九九乘法表本章目录思考：打印上三角或下三角程序如何改动？第25页，共39页，2022年，5月20日，12点26分，星期二264.4其他辅助控制语句第26页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室27一、GoTo语句1、语法 GoTo 标号 / 行号2、作用 无条件地转移到标号或行号制定的语句3、注意 （1）只能从循环和条件语句中跳出 （2）只能跳到同一个过程中的语句 （3）尽量不要使用第27页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北

18、京）人文经管学院管理科学与工程教研室28二、退出和结束语句1、 Continue语句 用于循环语句中，如Continue for, Continue Do，相当于程序短路2、 Exit语句 Exit For，Exit Do， Exit Sub，Exit Function ， 相当于程序断路3、 End语句 End if, end select, end with, end function, end sub,单独的End用来结束整个程序第28页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室294.4.3滚动条、进度条

19、和定时器 1. 滚动条(ScrollBar) 用于数据输入工具，也可显示数据。 滚动条有水平（H）和垂直（V）两种。本章目录主要属性Value (缺省为0)Minimum (缺省为0)Maximum (缺省为100)SmallChange改变值(缺省为1)LargeChange改变值(缺省为10)第29页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室30主要事件 Scroll 当拖动滑块时触发 ValueChanged 改变Value属性时触发例4.24 设计一个调色板应用程序。设计思想： 三个滚动代表三种基本颜色的

20、输入工具代码说明注意：任意一个颜色改变均为影响合成的颜色，因此用共享事件来简化编程。第30页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室312. 进度条(ProgressBar) 用来指示事务处理的进度. 显示的填充数Value值是Maximum和Minimum间的比值。 主要属性： Maximum、Minimum、 Value 编程使用方法：确定Maximum 值。例如，如果正在下载文件，Maximum 值为文件的字节数。变化的Value值，使得进度条变化。例如，在该文件下载过程中，Value的值为当前已下载的字

21、节数。例4.25 设计带有进度条的倒计时程序 第31页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室323. 定时器(Timer) 定时器以一定的时间间隔产生Tick事件 属性Enabled 为False时定时器不产生Tick事件Interval 触发Tick事件的时间间隔，单位ms 事件 定时器控件只有一个Tick事件产生Tick事件条件 Enabled=True; Interval0例4.26用一个定时器控制蝴蝶在窗体内的飞舞 本章目录思考：如何控制飞的速度、如何控制飞的每次距离？ 如果飞的过程有三个状态又如何编程？第32页，共39页，2022年，5月20日，12点26分，星期二334.6程序调试第33页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地质大学（北京）人文经管学院管理科学与工程教研室34一、错误类型1、语法错误 用波浪线表示。在编写代码时就能显示出来。2、运行时错误 用黄色的底色显示错误的语句行。只能在运行中被发现。3、逻辑错误 语法都没有错误，但是得不到想要的运行结果。这时就出现了逻辑错误。比较难排查。第34页，共39页，2022年，5月20日，12点26分，星期二2008-9-9中国地