《第三章 VB语言程序设计基础2(程序控制语句)课件》由会员分享，可在线阅读，更多相关《第三章 VB语言程序设计基础2(程序控制语句)课件（54页珍藏版）》请在金锄头文库上搜索。
1、3.6 程序控制语句,3.6.1 顺序结构程序设计,3.6.2 选择结构程序设计,3.6.3 循环结构程序设计,3.6.1 顺序结构程序设计,3.6.1.1 变量的赋值 3.6.1.2 InputBox（）函数 3.6.1.3 数据输出 3.6.1.4 Rem、Stop、End语句,格式：Let 变量名/对象属性名 = 表达式 举例： Let Form1.caption = 输入框 Temp = 20,说明： Let 是赋值语句的关键字，是一个可选项，通常省略。 例3.1 将A和B的内容互换。,3.6.1.1 赋值语句,本节目录,格式：InputBox（prompt,title） 功能：该函数
2、的作用是打开一个对话框，等待用户键入文本或选择一个按钮。当用户单击“确定”按钮或按回车键时，函数返回文本框中输入的字符。 说明： “prompt（提示）”：字符串表达式，必选项。在对话框中作为提示信息。如果提示信息包含多行，则必须在每行末用回车符（Chr（13）、换行符（Chr（10）或回车换行符的组合（Chr（13）&Chr(10)）来分隔。 “title（标题）”：可选项。显示在对话框标题栏中的字符串表达式。如果省略title，则把应用程序名放在标题栏中。,3.6.1.2 InputBox（）函数,本节目录,举例 例3.2,1. 标准显示输出语句 格式：Print 表达式 ，|； 功能：在
3、屏幕上显示数据。,3.6.1.3 数据输出,本节目录,注意： (1）在标准显示输出语句中，如果各数据项之间用逗号隔开，则按标准输出格式显示数据； (2)若显示语句中各数据项之间用分号或空格作为分隔符，则按紧凑输出格式输出数据； (3)若Print语句的末尾使用了逗号或分号，则表明显示数据不换行，下一个Print语句仍在该行输出； (4)当输出的数据超过显示行的宽度时，多余的数据自动输出到下一行。,本节目录,P55 例 3.3,作用:在对象上输出信息。 形式：对象. Print Spc(n)/Tab(n) 表达式表 其中： 对象可以是窗体（Form）、图形框(PictureBox)或打印机（Pr
4、inter）。如果省略了对象，则在窗体上输出。 Spc(n)函数：用于在输出时插入n个空格。 Tab（n）函数：用于在输出表达式列表前向右移动n列。举例 表达式表：要输出的数值或字符串表达式，其开始打印的位置是由对象CurrentX和CurrentY属性决定的，缺省时打印在对象的左上角0,0处。,2. Print方法,本节目录,格式：Format$(表达式 ，格式字符串 ) 功能：将数值型量转换为字符型量，并根据格式字符串中的结构将其格式化。 说明：“表达式”是要格式化的数值、日期和字符串类型表达式。“格式字符串”有三类：数值格式、日期格式和字符串格式。格式字符串一定要用引号括起来。 4. 通
5、过Label控件的Caption输出 设计阶段：在窗体需要显示输出数据的地方放置Label控件 在程序中：将需要输出的数据转换为字符型量，然后赋值给Label控件的Caption属性。,3. *格式输出函数（使用时参考）,本节目录,1. Rem语句 格式：Rem 注释内容 或 注释内容 功能：用来在程序中加入注释内容。 说明： 注释内容可以是包含任何注释文本的内容。Rem和注释内容之间要加一个空格。 如果程序中使用了行号或者行标签，则可用GoTo或GoSub语句转到一个Rem语句行，此时，程序从该Rem语句下面的第一条可执行语句继续执行。 如果在其他语句后使用Rem关键字，则必须使用冒号（：）
6、与语句分开。也可以用撇号取代Rem，但冒号要省略。,3.6.1.4 Rem、Stop、End语句,本节目录,格式：Stop 功能：暂时停止语句执行。 说明： Stop语句可以放在程序的任何地方，它的作用相当于在程序代码中设置的断点。 Stop语句只是暂停程序的执行，不会关闭任何文件或清除变量。但当VB程序以编译后的可执行文件（.ExE）运行时，该功能失去。 执行Stop语句，程序暂停执行，若要继续运行，则可用鼠标单击运行按钮。,2. Stop语句,本节目录,格式：End 功能：在过程中关闭代码执行、关闭以Open语句打开的文件并清除变量，停止执行程序。 说明： End语句可以放在过程中的任何位
7、置。 End语句在执行时会重新设置所有模块级变量和所有模块的静态局部变量。如果不想改变这些变量的值，应将End语句改为Stop语句，此时在保留这些变量值的基础上可以恢复执行。 End语句提供的是一种强迫中止程序的方法。VB程序正常结束应该卸载所有的窗体，只要没有其他程序引用该程序公共类模块创建的对象并无代码执行，程序将立即关闭。,3. End语句,本节目录,P59 例3.4 用顺序结构求解一元二次方程,1.IfThen 结构(单分支结构) 2.IfThen Else 结构(双分支结构) 3.IfThen ElseIf 结构 (多分支结构) 4Select Case结构(多分支结构),3.6.2
8、 选择结构程序设计,If,1.IfThen 结构(单分支结构),格式1：If 表达式Then 语句 格式2：If 表达式Then 语句块 End If,本节目录,说明： 表达式都是逻辑表达式，当表达式是数值表达式时，Visual Basic 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。 可以使用单行或多行语法有条件地执行一个语句。 If.Then 的单行格式不用 End If 语句。,本节目录,Priva
9、te Sub Command1_Click() 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 = Sqr(b * b - 4 * a * c) 计算 If d = 0 Then x1 = (-b + d) / (2 * a) x2 = (-b - d) / (2 * a) Label5.Caption = Label5.Caption + Format(x1) Label
10、6.Caption = Label6.Caption + Format(x2) End If End Sub,本节目录,例3.5 : 计算一元二次方程a*x2+b*x+c=0的两个实根。P60,2.IfThen Else 结构(双分支结构),格式1： If Then Else End If 格式2：If Then Else ,本节目录,Private Sub Command1_Click() 计算a*x2+b*x+c=0 的两个根 Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single, d As
11、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) Label5.Caption = Label5.Caption + Format(x1) Label6.Caption = Label6.Caption + Format(x2) Else x1 = -b / (2 * a) x2 = Sqr(-d) / (2 * a) Label5.Caption
12、= Label5.Caption & x1 & + & x2 & i Label6.Caption = Label6.Caption & x1 & - & x2 & i End If End Sub,本节目录,例3.6 求一元二次方程的两个实根或两个虚根。p62,3. IfThen ElseIf 结构 (多分支结构),语句形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 Else 语句块 n+1 End If,本节目录,本节目录,说明： 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ElseIf子句的数量没有限制，可以根据需要使用任意多个Else
13、If子句。 语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。 If.Then.ElseIf 只是 If.Then.Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。,本节目录,Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.text If x 0 Then y = 5 ElseIf x 1 Then y = x + 1 ElseIf x 2 Then y = x 2 + 2
14、ElseIf x 5 Then y = -x - 3 Else y = -2 * x + 6 End If Label2.Caption = y= & y End Sub,本节目录,例3.7：计算分段函数的值。,*例3.8 求一元二次方程的根。P63,If intMark = 90 Then MsgBox 优秀 ElseIf intMark = 80 Then MsgBox 良好 ElseIf intMark = 70 Then MsgBox 中等 ElseIf intMark = 60 Then MsgBox 及格 ElseIf intMark = 30 Then MsgBox 补考 Els
15、e MsgBox 重修 End If End Sub,本节目录,举例：按分数段显示成绩的级别,Private Sub Command1_Click() Dim intMark As Integer intMark = Val(InputBox(输入成绩),Val（string）函数将字符串转换为数值量,4Select Case结构(多分支结构),格式：Select Case 测试变量或表达式 Case 表达式表1 语句块1 Case 表达式表2 语句块2 Case 表达式表n 语句块n Case Else 语句块n+1 End Select,本节目录,功能：根据测试变量或表达式的值，从多个语句
16、块中选择符合条件的一个语句块执行。 说明： 测试变量或表达式只能是数值表达式或字符串表达式，不能是逻辑表达式。 语句块是由一行或多行VB语句组成的。 表达式表与测试变量或表达式的类型必须相同，每一个表达式表是一个或几个值的列表。如果在一个列表中有多个值，就用逗号把值隔开。,本节目录, 一个表达式。如：Case 6 一组枚举表达式，即多个表达式，表达式之间用逗号隔开。如： Case 1，3，5，7 Case I，YOU，Then 表达式1 TO 表达式2。该形式指定某个数值范围。较小的数值放在前面，较大的数值放在后面；字符串常量则按字母的ASCII码顺序从低到高排列。如： Case 1 To 10 Case a To e Is 。如： Case
