第四章 VB控制结构(第三版)

第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基本控制结构

个问题，我们就会给出下面的程序：
Private Sub Form_Click（） Dim s&，x% s=0 x=1 s = s + x ^2 x=x+2 s = s + x ^2 x=x+2 s = s + x ^2 …… x = x +2 'x的值累加到99 s = s + x ^2 Print “1～100之间所有奇数的平方 和="；s End Sub
的行李费。
根据题意计算公式如下：
weight×0.2 Pay＝
weight≤50
（weight－50）×0.5＋50×0.2 weight＞50
程序代码如下： ' "计算"按钮代码 Private Sub Command1_Click（） Dim sinWeight as single Dim sinPay as single sinWeight = Text1.Text If sinWeight > 50 Then sinPay =（sinWeight - 50）* 0.5 + 50 * 0.2 Else sinPay = sinWeight * 0.2 End If Text2.Text = pay End Sub
二、程序的书写规则：
1、将单行语句分成多行:
用续行符（一个空格后面跟一个下划线） 将长语句分成多行。
2、将多个语句合并到同一行上
通常，一行之中有一个 Visual Basic 语句， 而且不用语句终结符。但是也可以将两个或多 个语句放在同一行，只是要用冒号 (:) 将它们 分开。 Text1.Text = "Hello" : Text1.BackColor = 255

第4讲 VB控制结构结构化程序设计的三种结构，即顺序结构、选择结构、循环结构。

4.1 顺序结构4.1.1 赋值语句1. 赋值语句形式形式：变量名=表达式S = x * y + sqr( a + b ) ‘给变量赋值Text1.Text = “欢迎使用VB ”‘设定属性2. 赋值语句注意点✧赋值语句不允许写成表达式=变量，虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所处的位置自动判断符号的意义。

✧赋值号左边只能是变量，不能是常量、常数符号、表达式。

不要将赋值号“＝”理解为数学上的等号：3. 赋值语句常用形式①对变量赋值，将表达式的值赋给变量Y = Abs(x+y)/(x * y)②设定对象的属性（只读属性除外）Label1 = “输入”Text1.FontName = “楷体_GB2312”③交换两个变量(A和B)的值T = A ：A=B ： B=TT = B ：B=A ： A=T④字符串连接设：C1 = “ABC” C2 = “XYZ” Re= “”Re1 = Re + C1 Re1 = Re & C1Re2 = C1 + Re Re2 = C1 & Re⑤计数计数 Num = Num+1 变量Num的值每次加1Num = 0Num = Num + 1⑥累加累加 S = S + X 变量S的值加X的值再赋给SS = 0X = 5 : S = S + XX = 6 : S = S + XPrint X ; S4. 赋值号两边数据类型不同时的处理(1)当表达式为数值型并与变量精度不同时，需强制转换成左边变量的精度。

Dim N% , M%N = 3.5 转换时四舍五入，N中的结果为4M = 3.2 转换时四舍五入，M中的结果为3(2)当赋值号左边变量是数值型，而表达式是数字字符串，自动转换成数值类型再赋值。

若表达式为非数字字符或空串，则出错。

Dim X% , Y!X = “234.5”变量X的为数值值235Y = “AB”、Y=“”运行时出错(3)任何非字符型的值赋给字符变量，自动转换为字符型。

Visual Basic 程序设计教程
陈章良
E-MAIL：CHENZHL_YT@
第四章 VB控制结构
4.0 程序结构
4.1 顺序结构
4.2 选择结构
4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试
4.0 程序结构
一个VB程序由两部分组成：
Viasual ，是由众多的对象构成了程序的可视 界面。 Basic，是响应各种事件的程序代码，也是程 序设计的重点和难点。
(1)对象：窗体、图形框或打印机。缺省为窗体。 (2)Spc(n)：从当前位置起空n个空格 (3)Tab(n)：从最左端开始计算的第n列 (4)分号：定位在上一个被显示的字符之后 (5)逗号：定位在下一个打印区开始处(每区14列) 例4.3 Print方法输出图mat格式输出函数 Format函数用于制定字符串或数字的输出 格式。
逻辑数据转换 为整形数据时 ，True为-1， False为0
1.5
其他类型数据转换 为逻辑数据时， 非0转换为True， 0转换为False
2.5
4.1.1 赋值语句
（4）任何非字符类型赋值给字符类型， 自动转换为字符类型。
例：strBh$=6012 【注意】
赋值号左边只能是变量，不能是常量 、常数符号或表达式。
3）If … Then … ElseIf语句(多分支结构)
4）If 语句的嵌套
4.2.1 If条件语句
1. If…Then语句(单分支结构) 形式：If <表达式> Then
语句块（一条或多条语句）
End If
或
If <表达式> Then <语句>
IF演示