第四章 VB控制结构

4）需要输入多个值，则必须多次执行或调用InputBox函数。
2013年7月12日星期五 商丘师范学院计算机科学系
Visual Basic程序设计
例4.1利用InputBox输入基本工资和营业额，按营业额的5% 提成，计算实发工资并显示。 Private Sub Form_Click() Dim sfgz！, jbgz！, y As Single
MsgBox 提示,[按钮],[标题]
其中：按钮项是一整型表达式，决定信息框按钮的 数目、类型及出现在信息框上的图标形式。
2013年7月12日星期五 商丘师范学院计算机科学系
Visual Basic程序设计
Then MsgBox ("数制超出范围"): End Then MsgBox "数制超出范围", , "警告": End
商丘师范学院计算机科学系
2013年7月12日星期五
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
重要的是学会两个数的交换，若上述语句次序变一下，结果如何？

（二）用文本框（TextBox控件）输入数据

格式：
字符串型变量名 = 对象名.Text
或者：数值型变量名 = Val（对象名.Text） 例：x=text1.text
八 数据的输出

在程序设计中，对输入的数据进行加工处理后， 往往需要将中计算或处理结果通知用户，这就是 数据的输出 。 在VB中，可以使用下面的4种方法之一进行数据 输出：Print方法、消息框（MsgBox函数）、文 本框（TextBox控件）、标签（Label控件） 。
（三）用文本框（TextBox控件）输出

格式：文本框名称.Text = 表达式 说明：
（1）注意在输出时进行数据类型之间的转换。
（2）作为输出的文本框一般将Locked属性设置为True， 用户不得改变输出框中的内容。
【作业】 编程实现单击窗体后，显示输出以下 格式的字符。
4.2 选择结构
（2）<表达式>可以是数值或字符串。对于数值先计算 后输出，字符串原样输出；省略表达式输出一空行。
（3）当表达式列表有多个时，表达式之间必须用空格、 分号或逗号隔开。分号和空格表示光标定位在上一 个显示字符之后（紧凑格式）；逗号表示光标定位 在下一个打印区的开始位置（标准格式）。
（4）可以用me代表当前窗体。
1.
3 If 语句的嵌套
在一个If 语句中，又包含另一些If 语句称为If 语句的嵌套。 语法格式： If 条件1 then 语句块1 Elseif 条件2 then 语句块2 …… [else 语句块n+1] End if 说明：执行过程是先判断条件表达式1，若其为真，则执 行语句块1，结束整个If 语句，否则判断条件表达式2，若 其为真，则执行语句块2，结束整个If 语句，依此类推， 当判断条件表达式n不满足时，若最后有else语句则执行 else语句，否则结束if语句的执行。

第4章：Visual Basic基本控制结构
5
17.08.2020
第4章：Visual Basic基本控制结构
6
17.08.2020
3. If…Then…ElseIf语句（多分支结构） 当要处理的实际问题有多个条件时，就
要用到该语句结构。
语句格式如下：
If <条件表达式1> Then <语句块1>
17.08.2020
第4章：Visual Basic基本控制结构
14
4.3 循环结构 循环结构是根据某一条件（即循环条件）反
复执行某一段程序（即循环体）。循环体被反复 执行的次数称为循环次数。VB中提供了两种类型 的循环语句：计数型循环语句和条件型循环语句。
4.3.1 For…Next 语句 该语句是计数型循环语句，用于循环次数已知
13
Select Case 语句和If…Then…ElseIf语句 的区别
可以看出，对于多分支选择结构，用Select Case 语句比用If…Then…ElseIf语句更为 直观，程序可读性强。两者的区别在于： Select Case 语句只对单一表达式求值，并 根据求值结果执行不同的语句块，而 If…Then…ElseIf语句可以对不同的表达式 求值。所以，当对多个条件进行判断时， 只能用If…Then…ElseIf语句。
Select Case 语句的格式如下： Select Case 测试表达式
Case 表达式值1 <语句块1>
Case 表达式值2 <语句块2>
…
[Case Else <语句块n+1>]
End Select
第4章：Visual Basic基本控制结构

注释
三、注释语句 为了提高程序的可读性，通常在程序的适当位置加 上必要的注释。VB中的注释语句的前缀是一个单撇号' 或保留字Rem。 1.格式 ' | Rem < 注释内容 > 2.说明 （1）Rem与注释内容之间至少要有一个空格。 （2）注释语句是非执行语句，不参加编译和执行。 （3）注释语句可放在过程、模块的开头，也可放在 执行语句的后面。 （4）任何字符（包括汉字）都可以放在注释行中作 为注释内容。
exit
二、Exit语句 1.作用 Exit语句用于退出 Do...Loop、For...Next、Function或Sub代码块 2.对应的使用格式 Exit Do、Exit For、Exit Function、Exit Sub 分别表示退出 Do循环、For循环、函数、子过程
End
三、End语句 1.格式 End 2.作用 结束一个程序的执行。可以放在任何事件过程中。 VB的End语句还有多种形式，用于结束一个过程或 程序块，其他形式有： End If End With End Type End Select End Sub End Function
循环嵌套
4.3.4 循环嵌套
一、定义 在一个循环结构中又完整地包含另一个循环结构， 称为循环的嵌套。 While语句、For-Next语句和Do-Loop语句均允许嵌 套，也可以互相嵌套。
二、说明 1.内循环变量与外循环变量不能同名。 2.循环语句嵌套时，必须保证结构的完整。即外循环 必须完全包含内循环，不能交叉。 3.不能从循环体外转向循环体内，也不能从外循环转 向内循环，反之则可以。 4.外循环变量每变化一次，内循环变量执行若干次。
4.3.1 While-Wend 循环语句