VB的基本控制结构
合集下载
第4章 VB基本控制结构
（二）用文本框（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语句的执行。
VB程序设计第四章 基本的控制结构
4.2 选择结构
选择结构作用
– 对条件进行判断，根据判断结果，选择
执行不同的分支。
If 条件语句 Select case语句 条件函数
4.2.1 If 条件语句
If 条件语句有多种形式
– 单分支
– 双分支
– 多分支
1 单分支结构
If …Then 语句
（1） If < 表达式 > Then < 语句块> End If （2）If < 表达式 > Then < 语句>
例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符， 假设为“Gong” （2）密码输入时，不显示输入的字符，用 “*”代替。 （3）输入不正确，显示有关信息。单击“重 试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
分析 账号
– 账号不超过6位数字，则将文本框的
第四章
基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构
顺序结构
– 按照各语句出现的先后顺序执行
– 包括： 赋值语句 输入 / 输出语句
按钮值
描述 “确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 数目
0 1 2 3 4 5
按钮 类型
vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbApplicationMode vbSystemMode
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的基本控制结构
顺序结构是一种线性结构，也是程序设计中最简单、
最常用的基本结构。它在程序运行过程中，按照语 句出现的顺序从上到下依此执行。顺序结构流程图 如下图所示，先执行语句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语言的基本控制结构 课件
值
描
述
0 确定按钮
1 确定、取消按钮
2 终止、重试、忽略按钮
3 是、否、取消按钮
4 是、2 询问信息图标
48 警告信息图标
64 信息图标
0 第1个按钮为默认
56 第2个按钮为默认
512 第3个按钮为默认
Visual Basic程序设计
MsgBox所选按钮返回值
本章目录
Visual Basic程序设计
4.2.1 赋值语句
形式：[LET]变量名＝表达式 或者 [对象.]属性=属性值
作用： 将表达式的值赋值给变量名或属性名。
一般用于给变量赋值或对控件设定属性值。
例： sum!=sum+x
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
密码输入时在屏幕上以 “*”代替； 若密码错，显示有关 信息，选择“重试”按钮，清除原内容再输入，选择“取消” 按钮，停止运行。
分析：
帐号6位，MaxLength为6，LostFocus判断数字 IsNumeric函数;
密码PassWordChar为“*”，MsgBox函数设置密码错对 话框。
Visual Basic程序设计
Visual Basic程序设计
消息对话框MsgBox函数和MsgBox过程
➢作用：打开一个信息框，等待用户选择一个按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不 返回值。
➢MsgBox函数形式： MsgBox(提示, [按钮], [标题])
➢MsgBox过程形式： MsgBox 提示,[按钮],[标题] 其中：按钮项是一整型表达式，决定信息框按钮的 数目、类型及出现在信息框上的图标形式。
控制结构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
本章目录
语句块
第4章 VB控制结构
05:51
21
【例4.5】求n!（n为自然数）
由阶乘的定义可知： n! = 1* 2* 3*…*(n-1)*n
= (n-1)!*n
Private Sub Form_Click() Dim N As Integer, i As Integer, k As Single N = InputBox("输入N：") k=1 For i = 1 To N k = k * i '此语句称为累乘器 Next i Print N; "! = "; k End Sub 操作变量 05:51 Private Sub Form_Click() Dim N As Integer, i As Integer, m As Integer, k As Single N = InputBox("输入N：") k = 1:m = 1 For i = 1 To N k=k*m m = m + 1 '此语句称为计数器 Next i Print N; "! = "; k End Sub 形式变量 22
If x >= 0 Then If x > 0 Then y = 1 Else y = 0 Else y = -1
05:51 11
3．多分支If语句 格式：If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句块2] …… [ElseIf 条件n Then 语句块n] [Else 语句块n+1] End If
05:51
19
说明：
（1）计数型循环的循环次数可用以下公式计算： 循环次数=Int（Abs（b – a）／c）+1
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式
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)。
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语句(多路出口)。
返回目录
5.1 选择结构－If条件语句
1. If <表达式> Then <语句>
其中，<表达式>是一个条件表达式或逻辑表达式
例如，If Data>=90 Then Print “优秀
说明： ➢ ElseIf之间不要加空格。
➢ Else和位于其上方的最近的If配对
返回目录
5.1 选择结构－If条件语句
[例5.3]
Weight = InputBox("输入西瓜重量：", "计算西瓜款")
If Weight < 4 Then
Price = 1
ElseIf Weight <= 7 Then Price = 1.3
Text1
Label2
Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Static I As Integer ' 保存输入错误口令的次数 If KeyCode = 13 Then ' 如果按下的键为回车键
If UCase(Text1.Text) = "HELLO" Then Label2.Caption = "恭喜!,您已成功进入本系统"
Else Price = 1.1
End If Money = Price * Weight
4公斤以下：1.00元/公斤 4至7公斤： 1.3元/公斤 超过7公斤： 1.1元/公斤
If Weight < 4 Then Price = 1 If Weight >= 4 And Price <= 7 Then Price = 1.3 If Weight > 7 Then Price = 1.1
例: Private Sub Command1_Click() Const Pi = 5.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H
End Sub
5.1 选择结构
选择结构：当设定条件成立时执行 某些语句，条件不成立时则跳过这 些语句或执行其它的语句。
Case 10 MsgBox "满分", , "成绩分等"
Case 9 MsgBox "优秀", , "成绩分等"
Case 8 MsgBox "良好", , "成绩分等"
Case 7 MsgBox "一般", , "成绩分等"
Case 6 MsgBox "合格", , "成绩分等"
Case Else MsgBox "不合格", , "成绩分等"
If B = 0 Then MsgBox "系数为零，请重新输入" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else X = -C / B Print "X="; Format(X, "0.000") End If Else
输出“优秀”
If Data Mod 3 = 0 Then MsgBox Data
End Sub
Data是3的倍数
返回目录
5.1 选择结构－If条件语句
2. If <表达式> Then <语句1> Else <语句2>
例如，Dim Data As Integer
Data = InputBox(“请输入成绩：") If Data >= 90 Then Print “优秀” Else Print “合格” Print "计算完毕"
Text1 Text2
Text3
Command1
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Cls CurrentX = 600: CurrentY = 1100 If A = 0 Then
Case "a" To "z" MsgBox "字符是小写字母", , "测试"
Case "A" To "Z" MsgBox "字符是大写字母", , "测试"
Case Else MsgBox "字符是其它符号", , "测试"
End Select
单 击 窗 体
确 定
返回目录
应用举例
【例1】设计一个口令检测程序，界面如下图，当用户 输入的口令正确时，显示“恭喜！，您已成功进入 本系统”，否则，显示，“口令错！，请重新输 入”。如果连续两次输入了错误口令，在第三次输 入完口令后则显示一个消息框，提示“对不起,您不 能使用本系统”，然后退出整个应用程序。
上例的If 语句可以改写为：
If Data < 90 Then Print "合格" Else Print "优秀"
Yes
No
Data>=90?
输出“优秀”
输出“合格”
返回目录
输出“计算完毕”
说明 (1) <表达式> : 关系表达式、布尔表达式
数值表达式(0为False，非0为True) 字符串表达式("0"为False,非"0"为True) (2) <语句1>、<语句2>: 可以有多条语句，各语句之间 用冒号隔开。 (3)可以没有Else部分，这时必须有<语句1>。 例: If N>0 Then A=A+B:B= X<>"aaa" Then Print X
第5章 基本控制结构
学习目标：
掌握If 条件语句和Select Case选择语句 掌握For…Next和Do…Loop循环语句 掌握两重循环，了解多重循环
第5章 控制语句与程序调试
教学内容： 5.1 选择结构与相关语句 5.2 循环语句 5.3 其他语句
顺序结构: 执行过程的次序从上到 下，从左到右
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")
If A < B Then T=A:A=B:B=T
End If Print A, B
5.1 选择结构－If条件语句
4. If语句嵌套
If语句嵌套使用可形成多分支的条件语句结构
If <条件表达式1> Then
<语句1>
ElseIf <条件表达式2> Then
<语句2>
Else <语句3>
End If
ElseIf I = 0 Or I = 1 Then I=I+1 Label2.Caption = "口令错!,请重新输入" Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)
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语句(多路出口)。
返回目录
5.1 选择结构－If条件语句
1. If <表达式> Then <语句>
其中，<表达式>是一个条件表达式或逻辑表达式
例如，If Data>=90 Then Print “优秀
说明： ➢ ElseIf之间不要加空格。
➢ Else和位于其上方的最近的If配对
返回目录
5.1 选择结构－If条件语句
[例5.3]
Weight = InputBox("输入西瓜重量：", "计算西瓜款")
If Weight < 4 Then
Price = 1
ElseIf Weight <= 7 Then Price = 1.3
Text1
Label2
Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Static I As Integer ' 保存输入错误口令的次数 If KeyCode = 13 Then ' 如果按下的键为回车键
If UCase(Text1.Text) = "HELLO" Then Label2.Caption = "恭喜!,您已成功进入本系统"
Else Price = 1.1
End If Money = Price * Weight
4公斤以下：1.00元/公斤 4至7公斤： 1.3元/公斤 超过7公斤： 1.1元/公斤
If Weight < 4 Then Price = 1 If Weight >= 4 And Price <= 7 Then Price = 1.3 If Weight > 7 Then Price = 1.1
例: Private Sub Command1_Click() Const Pi = 5.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H
End Sub
5.1 选择结构
选择结构：当设定条件成立时执行 某些语句，条件不成立时则跳过这 些语句或执行其它的语句。
Case 10 MsgBox "满分", , "成绩分等"
Case 9 MsgBox "优秀", , "成绩分等"
Case 8 MsgBox "良好", , "成绩分等"
Case 7 MsgBox "一般", , "成绩分等"
Case 6 MsgBox "合格", , "成绩分等"
Case Else MsgBox "不合格", , "成绩分等"
If B = 0 Then MsgBox "系数为零，请重新输入" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else X = -C / B Print "X="; Format(X, "0.000") End If Else
输出“优秀”
If Data Mod 3 = 0 Then MsgBox Data
End Sub
Data是3的倍数
返回目录
5.1 选择结构－If条件语句
2. If <表达式> Then <语句1> Else <语句2>
例如，Dim Data As Integer
Data = InputBox(“请输入成绩：") If Data >= 90 Then Print “优秀” Else Print “合格” Print "计算完毕"
Text1 Text2
Text3
Command1
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Cls CurrentX = 600: CurrentY = 1100 If A = 0 Then
Case "a" To "z" MsgBox "字符是小写字母", , "测试"
Case "A" To "Z" MsgBox "字符是大写字母", , "测试"
Case Else MsgBox "字符是其它符号", , "测试"
End Select
单 击 窗 体
确 定
返回目录
应用举例
【例1】设计一个口令检测程序，界面如下图，当用户 输入的口令正确时，显示“恭喜！，您已成功进入 本系统”，否则，显示，“口令错！，请重新输 入”。如果连续两次输入了错误口令，在第三次输 入完口令后则显示一个消息框，提示“对不起,您不 能使用本系统”，然后退出整个应用程序。
上例的If 语句可以改写为：
If Data < 90 Then Print "合格" Else Print "优秀"
Yes
No
Data>=90?
输出“优秀”
输出“合格”
返回目录
输出“计算完毕”
说明 (1) <表达式> : 关系表达式、布尔表达式
数值表达式(0为False，非0为True) 字符串表达式("0"为False,非"0"为True) (2) <语句1>、<语句2>: 可以有多条语句，各语句之间 用冒号隔开。 (3)可以没有Else部分，这时必须有<语句1>。 例: If N>0 Then A=A+B:B= X<>"aaa" Then Print X
第5章 基本控制结构
学习目标：
掌握If 条件语句和Select Case选择语句 掌握For…Next和Do…Loop循环语句 掌握两重循环，了解多重循环
第5章 控制语句与程序调试
教学内容： 5.1 选择结构与相关语句 5.2 循环语句 5.3 其他语句
顺序结构: 执行过程的次序从上到 下，从左到右
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")
If A < B Then T=A:A=B:B=T
End If Print A, B
5.1 选择结构－If条件语句
4. If语句嵌套
If语句嵌套使用可形成多分支的条件语句结构
If <条件表达式1> Then
<语句1>
ElseIf <条件表达式2> Then
<语句2>
Else <语句3>
End If
ElseIf I = 0 Or I = 1 Then I=I+1 Label2.Caption = "口令错!,请重新输入" Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)