VB的基本控制结构
VB教程完整版第4章Visual Basic的基本控制结构PPT课件
第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基本控制结构
Chap.4 VB基本控制结构
注释
三、注释语句 为了提高程序的可读性，通常在程序的适当位置加 上必要的注释。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 循环语句
vb课件第四章-基本控制结构
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
vb6.0第三章基本控制结构
vbExclamation --------------
vbInformation ---------------
VB6.0程序设计
3.2.2 赋值语句
3.对话框类型和数目的设置
对话框=按钮设置值(c1)+图标设置值(c2)+缺省按钮值(c3)
对应值 0
256
符号常量 VbDefaultButton1 VbDefaultButton2
If语句的嵌套是指if或else后面的语句块中又包含If 语句。语句形式：
If <表达式1> Then
If <表达式11> Then
…… End If
…… End If
注意：
(1) 对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写；
(2) If语句形式若不在一行上书写，必须与End If配对 多个If嵌套，End If与它最接近的If 配对。
InputBox (提示信息[,对话框标题][,输入区默认值][,坐标X][,坐标Y])
例：设置一个输入框：
提示用户输入查询学号。
VB6.0程序设计
3.2.3 数据的输出方法-PRINT语句
作用:在对象上输出信息。 对象.Print[Spc(n)|Tab(n)][输出列表 ][;|,] 对象：窗体、图形框。缺省为窗体。
End If
VB6.0程序设计
3.3 if选择语句
3. If…Then…ElseIf 结构
格式：If 条件1 Then
（A组语句） ElseIf 条件2 Then
（B组语句） ElseIf 条件3 Then
（C组语句） …… Else
注意： • 多分支语句中，有多 个分支同时满足，只执 行第一个与之匹配的语 句块。 • 注意 ElseIf 的写法
VB程序基本控制结构
VB程序基本控制结构VB程序的基本控制结构有三种：顺序结构、条件结构和循环结构。
下面将详细介绍这三种结构。
1.顺序结构：顺序结构是指程序按照代码编写的顺序依次执行，不涉及任何的条件判断或循环。
简单来说，就是按照代码的顺序一行行执行。
2.条件结构：条件结构是指根据条件的不同，程序按照不同的路径执行不同的代码。
在VB中，我们可以使用if语句和select case语句来实现条件结构。
- if语句用法示例：if(condition) then'条件为真时执行的代码else'条件为假时执行的代码end if- select case语句用法示例：select case expressioncase value1' 当expression等于value1时执行的代码case value2' 当expression等于value2时执行的代码...case else' 当expression不等于以上任何一个值时执行的代码end select3.循环结构：循环结构是指根据特定的条件重复执行一段代码块。
在VB中，我们可以使用do while、do until、for、for each等语句来实现循环结构。
- do while语句用法示例：do while condition'循环执行的代码loop- do until语句用法示例：do until condition'循环执行的代码loop- for语句用法示例：for counter = start to end step stepValue'循环执行的代码next counter- for each语句用法示例：for each element in collection'循环执行的代码next element这些是VB程序的基本控制结构，它们的灵活运用可以实现各种复杂的程序逻辑。
举个例子，我们可以使用条件结构结合循环结构来实现一个计算1到100之间所有偶数和的程序：```Dim sum As Integer = 0For i = 1 To 100 Step 1If i Mod 2 = 0 Thensum += iEnd IfNextMsgBox("1到100之间所有偶数的和为：" & sum)```。
VB程序设计 第四章 基本的控制结构
第四章基本的控制结构主要内容●顺序结构●输入函数（过程）InputBOX●输出函数（过程）MsgBox●选择结构（If、Select Case、Iif、Shoose、Switch）●循环结构（For … Next、Do … Loop、While … Wend）●其他辅助控制语句(Goto 、Exit、End、With)●常用算法（累加连乘特殊数类穷举法递推法最大和最小值）4.1 顺序结构一. 赋值语句形式: [LET]变量名＝表达式作用: 将表达式的值赋值给变量名。
一般用于给变量赋值或对控件设定属性值.[例] sRate!=0.1Text1.Text ＝ "欢迎使用Visual Basic 6.0”说明：（1）当表达式结果为数值类型而与变量的精度不同时,强制转换成左边变量的精度。
如：iA% = 10/3 iA中的结果为3，而表达式为3.33333n%=11/2 结果n的值为6（四舍五入）, 而表达式为5.5 （2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型，再赋值。
但如有非数字字符或空串，则出错。
如：X% = "9/2"（出错）（3）当逻辑型赋值给数值变量时，False 转成0，True转成-1后再赋给数值变量。
（4）当数值型表达式赋给逻辑型变量时，非0数值转成True,0值转成False 后再赋给逻辑变量（5）任何非字符类型表达式赋给字符变量一律转成字符类型赋给字符变量 [例] s$=True 结果s的值为 Truestr$=1.23E+3 结果string的值为”1230”。
s$=5>11 结果s的值为 False注意：●虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的置自动判断是何种意义的符号。
●赋值语句的左边只能是变量，不能是表达式，符号常量。
●不能在同一个语句中同时给各个变量赋值。
●正确理解类似 sum=sum+k 赋值语句的含义。
VB第四章 基本的控制结构
赋值号左边只能是变量名，不能是函数或表达式
如下面形式是错误的： cos(x)=y 5=y
X+3=y 不能在同一个赋值语句中给多个变量赋值 : y=1: z=1
2)数据类型的转换问题
2、使用文本框控件
★3、使用InputBox( )函数
Case 表达式1
<语句块1> Case 表达式2
<语句块2>
……. Case 表达式n <语句块n> [Case Else <语句块N+1> End Select
例：窗体上有一个按钮cmdRank和两个文本框txtInput、txtOutput，在文 本框txtInput中输入成绩，回车后，在txtOutput中显示级别。 Private Sub txtInput_keypress() dim intMark As Integer if keyascii=13 then Case Is>=70 txtOutput.text=“中等”
分析以下代码的作用 Dim Strname As String * 40 Dim Strs1 As String * 40 Strs1 = "请输入你的姓名" + Chr(13) + Chr(10) + "然 后单击确定" Strname = InputBox(Strs1, "输入框", , 100, 100) Print Strname
Private Sub cmd1_Click ( ) Dim int1 As Integer, int2 As Integer
int1 = CInt(Text1.Text)
VB的基本控制结构
MsgBox "输入的字符是大写字母" ElseIf Char >= "a" And Char <= "z" Then
MsgBox "输入的字符是小写字母" Else
MsgBox "输入的字符是其它符号" End If
5.1 选择结构－If条件语句
3. 块状If语句
If <条件表达式> Then <语句块> End If
[例5.2]
If <条件表达式> Then <语句块1>
Else <语句块2>
End If
A = InputBox(“A值”) : B = InputBox("B值")
Print A, B
返回目录
MsgBox “西瓜重” & Weight & “公斤，单价” & _ Price & "元，应收瓜款" & Money & _
"元", , "计算西瓜款"
返回目录
5.1 选择结构－If条件语句
[例5.4]
Char = InputBox("输入一个字符", "测试字符值") If Char >= "0" And Char <= "9" Then
选择结构中要使用选择语句，有两 路分支和多路分支两种情况 ，对应 的选 择 语句 有 If语句 (两 路出 口 )和 Select Case语句(多路出口)。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
计算机智能化的标志之一就是具有逻辑判断的能力；
即针对不同的情况作出不同的选择。在程序设计中，
这一功能的实现是借助相应的选择结构语句来完成
的。选择结构也称为分支结构，其特点是根据给定 的条件来选择执行相应的程序语句。VB中提供的选 择结构语句主要有：If语句、IIf函数以及Select Case语句。
注意： (1) 对于嵌套结构，为了增强程序的可读性，应该采用缩进
形式书写； (2) If语句形式若不在一行上书写，必须与End If配对
优：Mark ≥ 90 等级： 通过：60 ≤ Mark ＜ 90
开始 输入成绩
未通过：<60
T 成绩>=90? F
输出“优” T 成绩>=60? F
输出“通过”输出“未通过”
If条件语句
3. If…Then…ElseIf 结构
格式：If 条件1 Then （A组语句）
ElseIf 条件2 Then （B组语句）
If条件语句
1. If…Then结构
例1：输入两个数，分别放在x和y变量中，比较它们大小，
然后将大数放在x中，小数放在y中。
x<y
F
T
xy
两个变量的值互换：
②
①
③
思考：3个数的 排序如何实现？
…… x%=Text1.text Y%=Text2.text If x < y Then
ty==xx xx == yy y=t End If Print x, y ……
ElseIf 条件3 Then （C组语句）
…… Else
（n组语句） End If
Mark=Text1.Text If Mark >= 90 Then
Print "优" ElseIf Mark >= 60 Then
Print “通过" Else
Print “未通过" End If
若条件1与条件2换位，结果会怎样？
使用前例条提：件：If 不条scP成件oPPrrirr立ne成iinnt>,立"tt跳=祝s"时6祝过c贺0o,贺A你ATreh组组你考e语n语试考句通句试.过中通！只过"一！条" 执行语句 EEnnddIfIf PPrrinint t“继“继续续努努力力！”！”
等价于：
If Score>=60 Then Print “祝贺你考试通过！” Print “继续努力!!!”
If条件语句
3. If…Then…ElseIf 结构
格式：If 条件1 Then A组语句
ElseIf 条件2 Then B组语句
ElseIf 条件3 Then C组语句
…… Else
n组语句 End If
注意：
• 多分支语句中，有多个分 支同时满足，只执行第一 个与之匹配的语句块。
• 注意 ElseIf 的写法
Else
Print “考√x试2+未1通过(.x”≠0)
EndYIf= x3+3x
(x=0)
Print "继续努力！"
2. If…Then…Else 结构
例3: 已知△三边的长，设计
求△面积的程序。
开始 输入a,b,c
两边之和大于第三边？ F
T
求半周长L
求S△
提示 数据错
输出s 结束
例4：(思考)输入二级考试成绩，要求显示对应三级制的 评定。评定条件为：
先对条件测试，根据测试的结果选择执行不同的分支
1.If条件语句 2.IIf函数 3.Select Case 结构
1. If…Then 结构
格式:(1) If 条件 Then (A组语句)
EndIf ……
条件 F
T
A组语句
执行(规例2)则：I：fIf若条s条c件o件reT成h>e=立n6,执0语T行h句Aen组语句;
If条件语句
2. If…Then…Else 结构
格式：If 条件 Then A组语句
Else B组语句
END If
条件 F
T A组语句 B组语句
执行规则:条件成立,执行A组语句, 条件不成立,执行B组语句
例：2：If计sc算or分e >段=函60数T：hen
(可用Pr单int分“祝支贺、你双考分试支通和过两！个”单分支分别实现）
其中表达式中可以包含变量、常量、属性。此时等 号称为赋值等号。例如：
Dim A As String
A=Text1.Text Label1.Caption=A
说明：
(1)赋值语句兼有计算和赋值双重功能。
(2)“＝”是赋值等号，与数学上的等号意义不同。
(3)赋值等号两边的数据类型通常要求一致，但VB 提供的对某些数据类型的自动转换机制，可强制变 量转换为适当的数据类型。例如，当逻辑型赋值给 数值型时，True转换为 -1，False转换为0；反之， 非0转换为True，0转换为False；
(Pay-4000)*0.35+450 Pay>4000
分析：选择语句结构 每个条件的表示及先后顺序
If条件语句
4. If语句的嵌套
If语句的嵌套是指if 或else后面的语句块中又包含 If语句。语句形式：
If <表达式1> Then If <表达式11> Then …… End If ……
End If
顺序结构是一种线性结构，也是程序设计中最简单、
最常用的基本结构。它在程序运行过程中，按照语 句出现的顺序从上到下依此执行。顺序结构流程图 如下图所示，先执行语句A，再执行语句B。
顺序结构中主要的语句是赋值语句，通过赋值语句， 可以在程序中改变变量的值，或改变对象属性值。 其语法格式为：
[Let]变量＝表达式 [Let]对象.属性＝表达式
VB程序设计采用结构化程序设计的思想，结构化程
序设计的特点是程序结构清晰，易读性强，并易于 查错纠错。在VB中有三种基本的程序控制结构：顺 序结构、选择结构和循环结构。VB所有的程序都可
以由这若干个这三种基本结构的组合，通过各种算 法，以解决不同的实际问题。
4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 循环嵌套 4.5Then…ElseIf 结构
例5 编写一个按月收入额计算个人收入调节税的程序 计算方法如下
0
Pay≤1000
(Pay-1000)*0.05
1000＜Pay≤2000
Z＝ (Pay-2000)*0.15+50 2000＜Pay≤3000
(Pay-3000)*0.25+200 3000＜Pay≤4000