Visual Basic程序设计 教学课件 作者 黄津津 第4章 Visual Basic控制结构.pptVIP

A语句 B语句 图4-1 顺序结构流程图 1．赋值语句的使用格式 语法格式： 变量名 = 表达式 给变量赋值 [对象名.] 属性名 = 表达式 设置对象的属性值 变量名 = [对象名.] 属性名 获取对象的属性值： 功能：当系统执行赋值语句时，可使变量或某个对象的某个属性获得一个新值，也可以获取某个对象的某个属性值。 2．赋值语句的两个常用形式 （1）累加。 形式：Sum = Sum +x 表示将变量Sum、x的当前值相加后再赋值给变量Sum。与循环结构结合使用，可起到累加作用。 （2）计数。 形式：n = n +1 表示将变量n的当前值加上1后再赋给变量n。与循环结构结合使用，可起到计数器作用。 3．不同数据类型数据的赋值 ① 如果变量与表达式都是数值类型，系统先求出表达式的值，然后将其转换为左边变量的类型后，再赋值。 ② 如果变量为数值型，而表达式为字符型，则自动转换成数值类型再赋值。如果表达式中含非数字字符或空串，则系统将给出“类型不匹配”的错误提示。 ③ 当逻辑值赋给数值型变量时，True转换为-1，False转换为0；反之当数值赋给逻辑型变量时，非0转换为True，0转换为False。 ④ 任何非字符的值赋给字符型变量，则系统将其自动转换为字符型，再赋值。 1．数据的输入/输出控件 （1）文本框 （2）标签 2．输入对话框--InputBox函数 InputBox函数可以产生一个对话框，称为输入对话框，这个对话框作为输入数据的界面，用于接受用户通过键盘输入的数据。 函数格式： 变量名 = InputBox(Prompt[,Title][,Default][,x,y][,Helpfile,Context]) 3．消息对话框--MsgBox函数与MsgBox过程 MsgBox函数可以打开一个消息对话框，用于向用户发布消息，并可以通过用户在该对话框上的选择接收用户所做的响应，作为程序继续执行的依据。 MsgBox有两种使用格式。 函数格式： 变量名 = MsgBox(Prompt[,Button][,Title][,Helpfile,Context]) 过程格式： MsgBox Prompt[,Button][,Title][,Helpfile,Context] MsgBox函数根据用户选择单击的按钮而返回不同的值 按 钮 名 内 部 常 量 取 值 “确定”按钮 vbOK 1 “取消”按钮 vbCancel 2 “终止”按钮 vbAbort 3 “重试”按钮 vbRetry 4 “忽略”按钮 vbIgnore 5 “ 是 ”按钮 vbYes 6 “ 否 ”按钮 vbNo 7 4．Print方法 在Visual Basic中可以通过文本框（将要输出的数据赋给文本框的Text属性）、标签（将要输出的数据赋值给标签的Caption属性）及InputBox函数与MsgBox过程来输入输出数据，但在窗体、图片框及立即窗口中输出数据，可以使用Print方法来实现。 语句格式： [对象名.] Print [输出列表][,|；] 4.2.1 If语句 If语句有多种形式：单分支、双分支和多分支等。 1．If-Then语句（单分支结构） 语句格式1： If 条件 Then A语句 单行结构 语句格式2： If 条件 Then 块结构 A语句块 End If False 语句(块) 条件 True 图4-9 选择结构(单分支)流程图 2．If-Then-Else语句（双分支结构） 语句格式1： If 条件 Then A语句 Else B语句 单行结构 语句格式2： If 条件 Then 块结构 A语句块 Else B语句块 End If B语句(块) A语句(块) 条件 False True 图4-10 选择结构(双分支)流程图 3．If-Then-ElseIf语句（多分支结构） 语句格式： If 条件1 Then A1语句块 ElseIf 条件2 Then A2语句块 … … [Else An+1语句块] End If An+1语句块 An语句块 条件n 条件2 A2语句块 A1语句块 条件1 True True True False False False 图4-14 选择结构(多分支)流程图 语句格式： Select Case 测试表达式 Case 测试项1 A1语句块 Case 测试项2 A2语句块 … … [Case Else An+1语句块] End Select 图4-15 Select Case结构(多分支)流程图 A2语句组 测试项2 True False An+1语句组 An语句组 测试项n True False True 测试项1 A1