第章 基本控制结构.ppt

第6章 基本控制结构 6.1 顺序结构 6.2选择结构 6.3循环结构 * * 1. 赋值语句LET 格式：[Let]名称=表达式 1) “Let”是可选项，完成赋值功能只需“=” 2) “名称”是变量或属性的名称 3) “表达式”可是算术、字符串、关系或逻辑型表达式， 注：赋值号两边的数据类则必须一致 t=Label1.Caption Label1.Caption=text1.text text1.text=t 交换 6.1 顺序结构 2. Unload语句 格式: Unload 对象名 作用：结束应用程序而从内存中卸载窗体或控件 卸载前发生QueryUnload事件，然后是Unload事件 3．End语句 格式： End 强迫结束一个程序或程序块的执行,可被放入过程 中的任何位置 ,程序正常结束应该卸载所有的窗体 4. 注释语句 格式： Rem 注释内容 或‘注释内容 作用：增加程序的可读性 注：Rem关键字与注释内容之间要加个空格 在语句行后使用Rem，必须用冒号(:)与语句隔开 如：s＝pi*r^2 计算圆的面积 v＝4／3*pi*r^3 :Rem 计算球的体积 5．暂停语句 格式：stop 作用：将程序变成中断模式，便于进行检查和调试 ，相当于在程序中设置断点 一、单行结构条件语句 If 条件 Then 语句部分1 [Else 语句部分2] 功能：满足条件则执行语句部分1 ，否则执行语句部分2 简化：If 条件 Then 语句部分1 试区别下面两段代码： X=4:Y=3 If X＞Y Then X=X*X Y=Y*Y If X＞Y Then X=X*X Else Y=Y*Y 6.2 选择结构 注：条件语句可以嵌套 Else 和它最近的if配对 例2：编写一程序，要求输入x，输出y的值。 Private Sub Form_Click( ) Dim x As Single, y As Single x = InputBox(“请输入x的值”, , “1”) If x 0 Then y = x Else If x 0 Then y = - x Else y = 0 End Sub Else和If之间必须有空格 ,嵌套可放在Else 后或Then 后 If x = 0 Then if x0 then y = x Else y = 0 else y=-x Y= 0 (x=0) -x (x0) X (x0) 二、块结构条件句 If 条件1 Then 语句块1 [ElseIf条件2 Then 语句块2] [ElseIf条件3 Then 语句块3] …… [ElseIf 条件n] Then 语句块n] [Else 语句块 n+1] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错 2)“条件1-n”都是逻辑表达式 3) “语句块”是多个语句写在一行时用：割开 4) 块结构，必须以End If结束，单行结构中没有End If 5) ElseIf子句和Else子句省略时，则形式变为： If 条件 Then 语句块 End If 写成单行形式，即：If 条件 Then 语句块 6) 块结构的条件句可以嵌套 例3.对例2用块结构完成 Private Sub Form_Click( ) Dim x As Single, y As Single x = InputBox(“请输入x的值”, , “0) If x 0 Then y = -x ElseIf x = 0 Then y = 0 Else y = x End If Print y=; y End Sub 三、多分支语句（Select...Case） 格式：Select Case 测试表达式 Case 表达式列表1 [语句块1] [case 表达式列表2 [语句块2]] ... [Case Else [语句块n]] End Select 注意： 1) 测试表达式，可以是任何数值或字符串表达式 2) Case后面的表达式列表，其形式可以为“表达式”，“表达式1 To表达式2”，“Is关系运算表达式” 例： Case 1,2,3 表达式 Case a To g 表达式1 To表达式2 Case Is