第四章基本的控制结构

④ 块结构与行结构的区别：看Then后面的语句是否在同一 行上，若在同一行就是单行结构，否则为块结构，块结构 必须以End if结束。
2. If…Then…Else语句(双分支结构)
If <表达式> Then <语句块1> Else <语句块2> End If If <表达式> Then <语句1> Else <语句2>
"0.00E+00"
$1234.57
1.23E+03
例4.4
利用Format函数显示数值。
13
4.2 选择结构
计算机要处理的问题往往是复杂多变的， 仅采用顺序结构是不够的。必须利用选择结 构等来解决实际应用中的各种问题。VB中提 供了多种形式的条件语句来实现选择结构， 有If条件语句和Select情况语句等。它们都 是对条件进行判断，根据判断结果，选择执 行不同的分支。
3) 默认值: 字符串，用来显示输入区的默认初值。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
使用InputBox函数时的注意事项：
1）默认值表示输入的初始默认值，如果直接按下回车键或单 击“确定”按钮，函数的返回值（函数值）为该默认值。 2）变量名=InputBox(参数表） 函数值默认为字符类型。输入数值时，函数值可以利用 Val 函数转换为数值后，再参加运算。如果变量已被正确地定 义了类型时，则不必进行类型转换。 3）输入数据后，按回车键或单击“确定”按钮表示确认，并 返回在文本框中输入的数据；如果单击“取消”按钮（或 按Esc 键）时，则取消当前的输入，此时该函数返回一个 空字符串。
4.1.2 数据的输入与输出
1.标签和文本框控件
标签可以输出信息，文本框即可输入也可输出信息。 2. 输入对话框InputBox函数
InputBox[$](提示, [标题], [默认值], [Xpos], [Ypos])
其中： 1) 提示: 字符串，长度不超过1024个字符，用来提示用户输入。文 本可自动换行。如想强制插入回车换行则用： Chr$(13)+Chr$(10)或常数vbCrLf。 2) 标题：字符串，对话框标题，显示在对话框顶部的标题区。
重要的是学会两个数的交换，若上述语句次序变一下，结果如何？
注意：
① If语句中的表达式一般为关系表达式、逻辑表达式，也可 以是算术表达式。表达式值按非零为True，零为False判 断。 ② 语句块中的语句可以是一条或多条语句。若是用行结构的 形式，则多条语句必须写在同一行上，且语句之间用冒号 隔开。 ③ 一般来说，语句块只有一条语句时用行结构，多条语句时 用块结构。
vbYesNoCancel
vbYesNo vbRetryCancel vbCritical
3
4 5 16 32 48 64 0 56 512
是、否、取消按钮
是、否按钮 重试、取消按钮 关键信息图标 询问信息图标 警告信息图标 信息图标 第1个按钮为默认 第2个按钮为默认 第3个按钮为默认
图标 类型 默认 按钮
vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3
MsgBox所选按钮返回值
内部常数
vbOk vbCancel vbAbort vbRetry vbIgnore vbYes
Print语句尾无分号或逗号，输出后换行。
例4.3 Print方法输出图形
12
5. Format格式输出函数
形式： Format (表达式[, "格式字符串"]) 常用数值格式化符及举例
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
例4.6 计算分段函数： 单分支结构实现：
双分支结构实现：
sin x x 2 1 y cos x x 3 3 x
x 0 x 0
y=cos(x)－x^3+3*x If x<>0 Then y=sin(x)+sqr (x*x+1)
If x<>0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x End If
y = Val(InputBox("输入本月营业额")) sfgz = jbgz + y * 0.05 Print "本月营业额为：" & y & " 基本工资为：" & jbgz Print "本月实发工资为：" & sfgz
End Sub
3. 消息对话框MsgBox函数和MsgBox过程
作用：打开一个信息框，等待用户选择一个按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不 返回值。 MsgBox函数形式： MsgBox(提示, [按钮], [标题]) MsgBox过程形式：
本章目录
4.1.1 赋值语句 形式：[LET]变量名＝表达式 或者 [对象.]属性=属性值 作用： 将表达式的值赋值给变量名或属性名。 一般用于给变量赋值或对控件设定属性值。 例： sum!=sum+x
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
注意： ① ② 当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
MsgBox 提示,[按钮],[标题]
其中：按钮项是一整型表达式，决定信息框按钮的 数目、类型及出现在信息框上的图标形式。
MsgBox按钮设置
分组
内部常数 vbOkOnly vbOkCancel vbAboutRetryIgnore
值 0 1 2
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮
例如： n%=“123”
n%=“12a3”
③ 当逻辑型赋值给数值型时，True转换为-1， False转换为 0；反之当数值型赋值给逻辑型时，非0转换为True，0转 换为False。 ④ 任何非字符类型赋值给字符类型，自动转换为字符类型。
⑤ ⑥ ⑦ 虽然赋值号与关系运算符等于号都用“=”表示，VB系统 会根据所处的位置自动判断是何种意义的符号。 赋值号左边只能是变量，不能是常量、常数符号或表达式。 如：x+y=3, sin(x)=x+z 理解n=n+1与s=s+x语句的含义。
4）需要输入多个值，则必须多次执行或调用InputBox函数。
例4.1利用InputBox输入基本工资和营业额，按营业额的5% 提成，计算实发工资并显示。 Private Sub Form_Click() Dim sfgz！, jbgz！, y As Single
Байду номын сангаас
jbgz = Val(InputBox("输入基本工资", "计算工资", 300))
本章目录
4.2.1 If条件语句
1. If…Then语句(单分支结构) If <表达式> Then 语句块 End If 或 If <表达式> Then <语句> 例4.5 已知两个数x和y，比较它们的大小， 使得x大于y. If x<y Then t=x x=y y=t End If 或 If x<y Then t=x: x=y: y=t
例4.7 已知变量ch中存放了一个字符，判断该字符是字母字符、数字字符 还是其他字符。
用多分支结构实现: ch=InputBox("input") If Ucase(ch) >="A" And Ucase (ch) <="Z" Then Print ch + "是字母字符" ElseIf ch >="0" And ch <="9" Then Print ch + "是数字字符" Else Print ch + "其他字符" End If 不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分 支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也 不执行。ElseIf不能写成 Else If。
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) 块结构的条件语句可以嵌套 。
4. Print方法
作用:在对象上计算并输出表达式的信息。 格式：[对象.]Print[Spc(n)|Tab(n);][输出列表 ][;|,] 说明： 对象：窗体、图形框或打印机，缺省为窗体； Spc(n)函数：从当前位置起空n个空格；