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
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第四章 基本的控制结构
1）语句格式要正确
赋值号左边只能是变量名，不能是函数或表达式
如下面形式是错误的： 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)
赋值号左边只能是变量名，不能是函数或表达式
如下面形式是错误的： 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 "输入的字符是大写字母" 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语句(多路出口)。
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语句(多路出口)。
VB的基本控制结构
顺序结构是一种线性结构，也是程序设计中最简单、
最常用的基本结构。它在程序运行过程中，按照语 句出现的顺序从上到下依此执行。顺序结构流程图 如下图所示，先执行语句A，再执行语句B。
顺序结构中主要的语句是赋值语句，通过赋值语句， 可以在程序中改变变量的值，或改变对象属性值。 其语法格式为：
[Let]变量＝表达式 [Let]对象.属性＝表达式
其中表达式中可以包含变量、常量、属性。此时等 号称为赋值等号。例如：
Dim A As String
A=Text1.Text Label1.Caption=A
说明：
(1)赋值语句兼有计算和赋值双重功能。
(2)“＝”是赋值等号，与数学上的等号意义不同。
(3)赋值等号两边的数据类型通常要求一致，但VB 提供的对某些数据类型的自动转换机制，可强制变 量转换为适当的数据类型。例如，当逻辑型赋值给 数值型时，True转换为 -1，False转换为0；反之， 非0转换为True，0转换为False；
程序代码： Dim I%, s % FFoorrI I==10ToTo101steSpte1p -
1 s=s+I
Next I
Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ?
For I = 1 To 10执行多少次？
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer
EEnnddsseelelecctt
例7 编写一个加油站计费程序
在“种类”中选择油品种类，界面上的说明文字将随之 改变，并将“数量”文本框设为焦点；在数量文本框中输入 需购的油品数量后，单击“计算”按钮，在“总价”文本框 显示所购油品种类应付的金额。已知汽油单价：
vb程序设计第04章基本的控制结构
用一个IF语句和一个嵌套的IF语句实现
T y 与 z 交换 z 为最小数 F
x >y>z
If x<y Then t=x: x=y: y=t If y<z Then t=y: y=z: z=t If x<y Then t=x: x=y: y=t End If End If
x< y
T x 与 y 交换 使得 x >y
确定
If Text2 <> "" And Not IsNumeric(Text2) IsNumeric(Text2)是一个函数
4．If 语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： F x<y If <表达式1> Then T If <表达式11> Then … x 与 y 交换 End If x >y … End If F y<z 例4.4 已知x，y，z三个数，使得x>y>z
2. MsgBox函数和MsgBox过程
函数形式: 变量[%] = MsgBox(提示[,按钮][,标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下:
分组 默认 按钮 模式 内部常数 VbDefaultButton1 VbDefaultButton2 VbDefaultButton3 值 0 256 512 描述 第1个 第2个 第3个
例4.2a 根据边长判断三角形类型
例4.3已知百分制成绩mark，显示对应的五级制成绩
下列方法哪些正确，哪些错误？
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
T y 与 z 交换 z 为最小数 F
x >y>z
If x<y Then t=x: x=y: y=t If y<z Then t=y: y=z: z=t If x<y Then t=x: x=y: y=t End If End If
x< y
T x 与 y 交换 使得 x >y
确定
If Text2 <> "" And Not IsNumeric(Text2) IsNumeric(Text2)是一个函数
4．If 语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： F x<y If <表达式1> Then T If <表达式11> Then … x 与 y 交换 End If x >y … End If F y<z 例4.4 已知x，y，z三个数，使得x>y>z
2. MsgBox函数和MsgBox过程
函数形式: 变量[%] = MsgBox(提示[,按钮][,标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下:
分组 默认 按钮 模式 内部常数 VbDefaultButton1 VbDefaultButton2 VbDefaultButton3 值 0 256 512 描述 第1个 第2个 第3个
例4.2a 根据边长判断三角形类型
例4.3已知百分制成绩mark，显示对应的五级制成绩
下列方法哪些正确，哪些错误？
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
控制结构VB课件
“语句块”可以是一条语句，多条语句（用冒号分隔）。块形式更适合于 多条语句的情况。
单行形式： If i Mod 2 = 0 Then Print "偶数" 块形式：
If i Mod 2 = 0 Then
Print "偶数"
' 语句块
End If
单行形式的If…Then…Else… 语句
If 条件表达式 Then 语句块1 Else 语句块2
注意：“ElseIf”关键字中间没有空格。
Private Sub cmdRank_Click() Dim intMark As Integer intMark = CInt(txtInput.Text) If intMark >= 90 Then txtOutput.Text = "优秀" Else If intMark >= 80 Then txtOutput.Text = "良好" Else If intMark >= 70 Then txtOutput.Text = "中等" Else If intMark >= 60 Then txtOutput.Text = "及格" Else If intMark >= 30 Then txtOutput.Text = "补考" Else txtOutput.Text = "重修" End If End If End If End If End If
End Sub
Private Sub cmdRank_Click() Dim intMark As Integer intMark = CInt(txtInput.Text) If intMark >= 90 Then txtOutput.Text = "优秀" ElseIf intMark >= 80 Then txtOutput.Text = "良好" ElseIf intMark >= 70 Then txtOutput.Text = "中等" ElseIf intMark >= 60 Then txtOutput.Text = "及格" ElseIf intMark >= 30 Then txtOutput.Text = "补考" Else txtOutput.Text = "重修" End If
单行形式： If i Mod 2 = 0 Then Print "偶数" 块形式：
If i Mod 2 = 0 Then
Print "偶数"
' 语句块
End If
单行形式的If…Then…Else… 语句
If 条件表达式 Then 语句块1 Else 语句块2
注意：“ElseIf”关键字中间没有空格。
Private Sub cmdRank_Click() Dim intMark As Integer intMark = CInt(txtInput.Text) If intMark >= 90 Then txtOutput.Text = "优秀" Else If intMark >= 80 Then txtOutput.Text = "良好" Else If intMark >= 70 Then txtOutput.Text = "中等" Else If intMark >= 60 Then txtOutput.Text = "及格" Else If intMark >= 30 Then txtOutput.Text = "补考" Else txtOutput.Text = "重修" End If End If End If End If End If
End Sub
Private Sub cmdRank_Click() Dim intMark As Integer intMark = CInt(txtInput.Text) If intMark >= 90 Then txtOutput.Text = "优秀" ElseIf intMark >= 80 Then txtOutput.Text = "良好" ElseIf intMark >= 70 Then txtOutput.Text = "中等" ElseIf intMark >= 60 Then txtOutput.Text = "及格" ElseIf intMark >= 30 Then txtOutput.Text = "补考" Else txtOutput.Text = "重修" End If
VB程序基本控制结构
4.1.1 赋值语句
本章目录
形式： 变量名＝表达式 作用:计算右边表达式的值，然后赋给左边的变量。 一般用于给变量赋值或对控件设定属性值。
表达式可以是任何类型，一般应与变量名的类型一致。当 表达式的类型与变量的类型不一致时，强制转换成左边的 类型。 例：
sRate!=0.1
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
End If
语句块 1
表达式 2 T
语句块 2
F
表达式 n
T 语句块 n
F 语 句 块 n+1
该语句的作用是根据不同的表达式值确定执行哪个语句块
17
上一页
下一页
4.3 循环结构
本章目录
我们已经学习了顺序结构和分支结构，这种结构的特点
是任何一条语句至多只执行一次，但是在处理实际问题的 过程中，用这种结构来编写程序就长得不能忍受。
初始值 循环体
Do 循环体语句 Loop until条 件
条件
4.3 循环结构
初始值 条件 循环体
初始值 循环体
条件
4.3.1 For循环语句
本章目录
For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长]
语句块
[Exit For] 语句块
Next 循环变量 循环变量必须为数值型。
本章目录
24
上一页
下一页
Do…Loop流程
表达式列表 1
F
T 语句块
T 有 Exit Do
F 语句块
Do While…Loop
25
本章目录
语句块
第四章VB基本控制结构13
本章目录
Visual Basic程序设计
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
Visual Basic程序设计
MsgBox按钮设置
分组
内部常数 vbOkOnly vbOkCancel vbAboutRetryIgnore
值 0 1 2
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮
vbYesNoCancel
vbYesNo vbRetryCancel vbCritical
$1234.57
1.23E-01
22
例4.4
利用Format函数显示数值。
Visual Basic程序设计
Private Sub Command1_Click() Dim a!, b% a = 12.345 b = 12 Print Format(a, "0.00") Print Format(b, "#.##") End Sub
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
n%=“12a3”
Visual Basic程序设计
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
Visual Basic程序设计
MsgBox按钮设置
分组
内部常数 vbOkOnly vbOkCancel vbAboutRetryIgnore
值 0 1 2
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮
vbYesNoCancel
vbYesNo vbRetryCancel vbCritical
$1234.57
1.23E-01
22
例4.4
利用Format函数显示数值。
Visual Basic程序设计
Private Sub Command1_Click() Dim a!, b% a = 12.345 b = 12 Print Format(a, "0.00") Print Format(b, "#.##") End Sub
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
n%=“12a3”
VB的基本控制结构
Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 Print "X1=X2="; Format(-B / (2 * A), "0.000") Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Print "X1="; Format(X1, "0.000") CurrentX = 600: CurrentY = 1300 Print "X2="; Format(X2, "0.000") Case Is < 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta)) / (2 * A)
If Data < 90 Then Print "合格" Else Print "优秀"
Yes Data>=90? No
输出“优秀”
输出“合格”
输出“计算完毕”
返回目录
说明 (1) <表达式> : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式("0"为False,非"0"为True) (2) <语句1>、<语句2>: 可以有多条语句，各语句之间 用冒号隔开。 (3)可以没有Else部分，这时必须有<语句1>。 例: If N>0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If X<>"aaa" Then Print X
vb课件第4章.VB的基本控制结构
If条件语 句
3. If…Then…ElseIf 结构
例5 编写一个按月收入分额析计：算选个择人语收句入结调构节税的程序
计算方法如下
每个条件的表示及先后顺序
0
Pay≤1000
(Pay-1000)*0.05 1000＜Pay≤2000
Z＝
(Pay-2000)*0.15+50 2000＜Pay≤3000
If 条件1 Then
（A组语句）
Els若eI条f 条件件12与T条he件n 2换位，
结（B果组会语怎句）样？
……
Else
（n组语句）
End If
Mark=txtScore.Text If Mark >= 90 Then
Print "优" ElseIf Mark >= 60 Then
Print “通过" Else
Select Case 测试表达式
Case 测试项1
A组语句
Case 测试项2
B组语句
……
Case Else
n组语句
End Select
说明： • 测试表达式的值应是数字或字符型 例 应6三•：MSE级MKSE测的ne输a=ena制dlre试值ldmccCrke入ccCcksaa的=csaaaat=e类项ass二tVe具连满三rssscVl评eeskcelaeeeaea型的e\级aPPPcl续种体足i61sPPPc(定lEs18st(rrrTE00et>考rrrT相取iii0elennn形取的某iiistl。e=nnntos,xttteo9M试xttt同9值eKt““"式值范个61t"““如如如0通 未9优a1成通未优.必，0rT.可，围条kT过通"：：：e绩过通"e须常x以用：件"过x11It，"过)t用2与 ，s)组逗界："要">测T形51合号1I求o，0s试式使隔T运显29O表为0用开算示界达：符对2式
第4章 VB基本控制结构1
Leabharlann 2. Tab函数 Tab函数
函数格式：Tab(n) 函数格式：Tab(n) 功能：把输出位置移到第n 功能：把输出位置移到第n列。 例如： 例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩" Tab(2);"学号" Tab(11);"姓名" Tab(21);"成绩"
【例】 Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub
‘ 计算并输出表达式的值 ‘ 输出变量的值 ‘ 输出空行 ‘ 输出字符串常量
运行结果： 运行结果：
【例】Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果
InputBox函数 InputBox函数
语法：x = InputBox (prompt, title, default, xpos, 语法： ypos, helpfile, context) 其中， prompt是提示的字符串，这个参数是必须的。 prompt是提示的字符串，这个参数是必须的。 title是对话框的标题，是可选的。 title是对话框的标题，是可选的。 default是文本框里的缺省值，也是可选的。 default是文本框里的缺省值，也是可选的。 xpos，ypos决定输入框的位置。 xpos，ypos决定输入框的位置。 helpfile，context用于显示与该框相关的帮助屏幕。 helpfile，context用于显示与该框相关的帮助屏幕。 返回值 x 将是用户在文本框里输入的数据，x是 将是用户在文本框里输入的数据，x 一个字符串类型的值。如果用户按了Cancel钮， 一个字符串类型的值。如果用户按了Cancel钮， 则 x 将为空字符串。
函数格式：Tab(n) 函数格式：Tab(n) 功能：把输出位置移到第n 功能：把输出位置移到第n列。 例如： 例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩" Tab(2);"学号" Tab(11);"姓名" Tab(21);"成绩"
【例】 Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub
‘ 计算并输出表达式的值 ‘ 输出变量的值 ‘ 输出空行 ‘ 输出字符串常量
运行结果： 运行结果：
【例】Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果
InputBox函数 InputBox函数
语法：x = InputBox (prompt, title, default, xpos, 语法： ypos, helpfile, context) 其中， prompt是提示的字符串，这个参数是必须的。 prompt是提示的字符串，这个参数是必须的。 title是对话框的标题，是可选的。 title是对话框的标题，是可选的。 default是文本框里的缺省值，也是可选的。 default是文本框里的缺省值，也是可选的。 xpos，ypos决定输入框的位置。 xpos，ypos决定输入框的位置。 helpfile，context用于显示与该框相关的帮助屏幕。 helpfile，context用于显示与该框相关的帮助屏幕。 返回值 x 将是用户在文本框里输入的数据，x是 将是用户在文本框里输入的数据，x 一个字符串类型的值。如果用户按了Cancel钮， 一个字符串类型的值。如果用户按了Cancel钮， 则 x 将为空字符串。
vb第三章控制结构
Case Is < 0 y=x
Case Is <= 10 y=x*x
Case Is <= 20 y = 10
Case Else y = 0.5 * x + 20
End Select Label2 = "y=" & y End Sub
28
6.IIF函数
格式：
IIf(Expression，TruePart，FalsePart)
单分支结构举例
例：将保存在变量a和 b中的整数
按升序排列。（即a的值一定不
1
大于b的值）
2
分析：a<b时，两者值不变
a>b时，两者的值交换
3
If b > a Then
t=a
a=b
b=t
End If
也可改写成行IF语句，如下所示，
If b > a Then t = a ： a = b： b = t
2.双分支结构
• 变量•的类型或表达式的[C结a果se Els例e：Is < 60
• 必对须于•为多个数变值量或进字符行串条件。判断 或者statementsn+1]
时，•不能使用EsneldecSt eclaesec语t 以上三种形式的以逗号分隔的任意组合
句，只能使用IF 语句
例：2,4 to 8,11,is>50
A. 正确答案：C
3.多分支结构
不管有几个分支，依次判断，当某条件满足，执行相应的 语句，其余分支不再执行；若条件都不满足，且有Else子 句，则执行该语句块，否则什么也不执行。
If
表达式 1
T Then
Elseif
F
表达式 2
Case Is <= 10 y=x*x
Case Is <= 20 y = 10
Case Else y = 0.5 * x + 20
End Select Label2 = "y=" & y End Sub
28
6.IIF函数
格式：
IIf(Expression，TruePart，FalsePart)
单分支结构举例
例：将保存在变量a和 b中的整数
按升序排列。（即a的值一定不
1
大于b的值）
2
分析：a<b时，两者值不变
a>b时，两者的值交换
3
If b > a Then
t=a
a=b
b=t
End If
也可改写成行IF语句，如下所示，
If b > a Then t = a ： a = b： b = t
2.双分支结构
• 变量•的类型或表达式的[C结a果se Els例e：Is < 60
• 必对须于•为多个数变值量或进字符行串条件。判断 或者statementsn+1]
时，•不能使用EsneldecSt eclaesec语t 以上三种形式的以逗号分隔的任意组合
句，只能使用IF 语句
例：2,4 to 8,11,is>50
A. 正确答案：C
3.多分支结构
不管有几个分支，依次判断，当某条件满足，执行相应的 语句，其余分支不再执行；若条件都不满足，且有Else子 句，则执行该语句块，否则什么也不执行。
If
表达式 1
T Then
Elseif
F
表达式 2
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(4)赋值等号左边的只能是变量或对象的属性，不 能是常量、常数符号、表达式，否则出错。
计算机智能化的标志之一就是具有逻辑判断的能力；
即针对不同的情况作出不同的选择。在程序设计中，
这一功能的实现是借助相应的选择结构语句来完成
的。选择结构也称为分支结构，其特点是根据给定 的条件来选择执行相应的程序语句。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
计算机智能化的标志之一就是具有逻辑判断的能力；
即针对不同的情况作出不同的选择。在程序设计中，
这一功能的实现是借助相应的选择结构语句来完成
的。选择结构也称为分支结构，其特点是根据给定 的条件来选择执行相应的程序语句。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