[工学]VB chapter3.pptVIP

第3章 流程控制语句 程序中的语句依照其在程序中的位置依次顺序地执行，叫做语句的顺序执行。 在一个简单的顺序结构程序中，一般包含三种操作： ? 数据的输入 ? 计算并赋值 ? 数据的输出 3.1.1 数据输入 1.使用inputbox()函数 2.使用textbox控件 3.1.2 赋值语句 格式： 变量名＝表达式 对象.属性＝ 表达式 说明P44 1.使用textbox控件输出 2.使用print方法输出 3.使用label控件显示文本 4.使用format函数设置输出格式 5.使用msgbox过程显示提示信息 4.格式输出函数format （P46） 格式：Format$(表达式 [，格式字符串] ) 功能：将数值、日期和字符串按用户指定的格式输出。 “格式字符串”有三类：数值格式、日期格式和字符串格式。格式字符串一定要用引号括起来。 例3-4 p46 顺序结构例题 例题1：交换两个文本框中的数据。 例题2：计算电器总价。 例3-5 计算银行存款本利和。 例3-6 计算三角形的面积。 Visual Basic 选择结构的实现： ? If…Then ? If...Then…Else ? Select Case 1. If…Then 结构 格式1：If 〈表达式〉Then 语句 格式2：If 〈表达式〉Then 语句块 End If 例题：利用文本框输入密码。 说明： ① 表达式一般都是逻辑表达式， 当表达式是数值表达式时，一个为零的数值为 False。 ② 语句块可以是一条或多条语句。 ③ 可以使用单行或多行语法有条件地执行一个语句。下面两个例子是等价的： If x 0 Then y=x^2 和 If x 0 Then y=x^2 End If ④ If...Then 的单行格式不用 End If 语句。 例3.6 计算一元二次方程的两个实根。 Private Sub Command1_Click() 计算a*x^2+b*x+c=0 的两个根 Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single, d As Single a = Text1.Text b = Text2.text c = Text3.text d = b * b - 4 * a * c 计算△ If d = 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Label2.Caption = Label2.Caption Format(x1, ###.##) Label3.Caption = Label3.Caption Format(x2, ###.##) End If End Sub 说明： ① 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ② ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。 ③ 语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。 ④ If...Then...ElseIf 只是 If...Then...Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。 程序举例1：计算函数的值。 Private Sub Command1_Click() Dim x As Single, y As Single x = Text1 If x 0 Then y = 5 ElseIf x 1 Then y = x + 1 ElseIf x 2 Then y = x ^ 2 + 2 ElseIf x 5 Then y = -x - 3