vb语言的基本控制结构
合集下载
VB第4章
数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构
VB编程序的基本结构
Case 9, 10
Msgbox ("Greater than 8“)
Case Else
Msgbox ("Not between 1 and 10“)
End Select
例：编写程序,当输入X的值后用 Selct Case语句 计算输出Y的值。
Private Sub Button1_Click(ByVal _ sender As System.Object, ByVal e As _ System.EventArgs) Handles _ Button1.Click
InputBox的功能是等待并提示用户为程序运行 输入指定的数据，简称“输入对话框”。
MsgBox的功能是进行提示，用以确认某种程 序的操作，简称“消息框”。
本书目录
6
1. InputBox （输入对话框函数）
输入对话框一般由标题、提示信息、“确定” 按钮、“取消”按钮和一个供用户输入的文本框组 成。当用户将输入信息输入到文本框，并单击“确 定”按钮后，函数返回用户输入的字符串数据。当 单击“取消”按钮时，返回一个空字符串。
语法格式：变量名 = 表达式
功能: 计算赋值号“=”右边表达式的值，然后赋给赋
值号“=”左边的变量。
给变量赋值和设定属性是VB编程中常见的两个任务
如以下语句，
n=n+1
'计数累加
Label1.Text ＝ "欢迎使用VB "
以下语句形式很常用：
• dim sum% , x%
sum=100 : x=5
Select语句举例
Dim Number% Number = Val(InputBox("输入整数"))
第三章 三种基本程序控制结构
Visual Basic程序设计教程
12
• 例3-5设计一个信息录入窗体（见图3-6），录入
学生的基本信息。包括学号、姓名、系别、班级、 生日、家庭住址。单击保存按钮后，录入的基本信 息由MsgBox显示。
Visual Basic程序设计教程
13
Private Sub Command1_Click() Dim s_en As Single, s_sp As Single, s_pro As Single 3.3 选 择 结 构 Dim ave As Single, msg As String s_en = Val(Trim(Text2.Text)) 例3-6一个简化了的奖学金评审规则：三门课程的 s_sp = Val(Trim(Text3.Text)) 90分以上（包含90分）者可以获得奖 s_pro平均成绩在 = Val(Trim(Text4.Text)) Visual ave =学金。编写一个 (s_en + s_sp + s_pro) / 3Basic程序，看谁能拿到 ave =奖学金。 Fix(ave * 100 + 0.5) / 100 ‟结果保留小数点后两位 ‟奖学金评审，使用IF选择结构 分析：解决该问题的关键是学生的平均分与90的 If ave >= 90 Then 关系，求取平均分后，即可进行判断。判断过程用 msg = Label5.Caption & Text1.Text & "的平均分为：" & ave选择结构实现。程序界面使用四个文本框，用来输 & "，可获得奖学金" Else 入学生姓名和三门课程的成绩，一个标签用来显示 msg = Label5.Caption & Text1.Text & "的平均分为：" 判断结果。 & ave & "，不能获得奖学金" End If ‟输出评审结果 Label5.Caption = msg 14 Visual Basic程序设计教程 End Sub
12
• 例3-5设计一个信息录入窗体（见图3-6），录入
学生的基本信息。包括学号、姓名、系别、班级、 生日、家庭住址。单击保存按钮后，录入的基本信 息由MsgBox显示。
Visual Basic程序设计教程
13
Private Sub Command1_Click() Dim s_en As Single, s_sp As Single, s_pro As Single 3.3 选 择 结 构 Dim ave As Single, msg As String s_en = Val(Trim(Text2.Text)) 例3-6一个简化了的奖学金评审规则：三门课程的 s_sp = Val(Trim(Text3.Text)) 90分以上（包含90分）者可以获得奖 s_pro平均成绩在 = Val(Trim(Text4.Text)) Visual ave =学金。编写一个 (s_en + s_sp + s_pro) / 3Basic程序，看谁能拿到 ave =奖学金。 Fix(ave * 100 + 0.5) / 100 ‟结果保留小数点后两位 ‟奖学金评审，使用IF选择结构 分析：解决该问题的关键是学生的平均分与90的 If ave >= 90 Then 关系，求取平均分后，即可进行判断。判断过程用 msg = Label5.Caption & Text1.Text & "的平均分为：" & ave选择结构实现。程序界面使用四个文本框，用来输 & "，可获得奖学金" Else 入学生姓名和三门课程的成绩，一个标签用来显示 msg = Label5.Caption & Text1.Text & "的平均分为：" 判断结果。 & ave & "，不能获得奖学金" End If ‟输出评审结果 Label5.Caption = msg 14 Visual Basic程序设计教程 End Sub
程序流程有三种最基本的控制结构,即顺序结构、选择结构和讲解
布尔表达式练习
？－3＜－2＜－1 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 2< >0 x Mod 2=1 and x Mod 2< >0 表示一个数x∈[2,5] x＞＝2 and x＜＝5 表示一个数x不在[2,5]区间内 x＜2 or x＞5
(y Mod 4=0 AND y Mod 100<>0 ) OR 400=0 AND y Mod 100=0 )
(y Mod
(y Mod 4=0 AND y Mod 100<>0 ) OR y Mod 400=0
地球公转一周的时间为：365天5小时48分56秒
判断闰年的科学依据
每经过4年，剩余的时间为：5小时48分56秒×4＝23小时15分44秒 则每4年都要多加24小时－ 23小时15分44秒＝44分16秒
每经过100年，就会多加44分16秒×25＝18小时26分40秒
比较接近一天，所以每到100年，就将这多加的近似一天的时间减去， 即停止追加一天 而实际上又少加了24小时－ 18小时26分40秒＝5小时33分20秒 每经过400年，就会少加4 × 5小时33分20秒≈24小时 所以每过400年，就应该再补加一天 故：每4年闰年出现一次；每400年，闰年再出现一次 其它的整100年，闰年停止出现一次
每400年闰年再出现一次其它的整100年闰年停止出现一次12选择控制结构选择控制结构又称分支结构它体现了程序运行过程中的自我判断能力程序可以根据当前执行的某个条件进行比较判断并依据判断的结果成立与否来决定下一步做什么不做什么在两条或多条程序路径中选择一条来执行即只执行程序中的一部分语句可见在此结构的程序运行过程中有些语句会执行一次有些语句在此次程序运行过程中没有机会执行
VB第3章_控制结构
8
type参数及功能
常数 vbOKOnly VbOKCancel VbAbortRetryIgnore VbYesNoCancel 值 0 1 2 3 显示OK按钮 显示OK及Cancel 按钮 显示Abort、Retry 及 Ignore 按钮 显示显示 Yes、No 及 Cancel 按钮 功能描述
Print "B" Else Print "C" End If ElseIf score >= 60 Then Print "D" Else Print "E" End If End Sub
'此处为小于70分的情况
22
3.2.3 Select Case语句
格式：
说明： 变量或表达式：数值型或字符表达 式 表达式列表：与“变量或表达式” 的类型必须相同，可以是下面4种类型
End Sub
28
求和运行结果
29
例3.10 实现计算器函数区中求阶乘(n!) Private Sub Cmd_n_Click( ) Dim i, n, s As Long s=1 n = Val(InputBox("输入n(1-12)", "求n!")) For i = 1 To n s=s*i Next MsgBox s, 0, "n!" End Sub
7
3.1.2 数据的输入、输出函数
2. 输出函数MsgBox
格式 ：MsgBox(prompt [，type][，title][，helpFile，context]) 说明：
① prompt是字符串类型，提示
② type是一个整数值或符号常量，用来控制在对话 框内显示的按钮、图标的类型。 如上例中输出： MsgBox s, 0, "Area"
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控制结构-循环结构程序设计
6.3 Do...Loop循环结构
F
语句块 Exit Do 语句块
: 列表 后测型 1
Do T 语句块 块 [Exit Do] 语句块 Loop Until <条件> Do
块
F
条件
T
Do „ Loop Until 的执行过程
While„Loop
6.3 Do...Loop循环结构
例:使用级数求π的值。 根据下式，计算圆周率π的近似值，当计算到绝对值小于 0.0001的通项时，认为满足精度要求，停止计算。
6.2 For...Next循环结构
For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块
循环变量在终值内
循环变量得初值
F T
[Exit For]
语句块 Next [循环变量]
循环体
语句块
Exit For
语句块
步长
>=0 循环变量<=终值 <0 循环变量>=终值 =1 可省略
下列几种：
l For…Next语句 l Do…Loop语句 l While…Wend语句 Do While<条件> …Loop形式 Do …Loop While <条件>形式 Do Until <条件> …Loop形式 Do …Loop Until <条件>形式 Do …Loop形式
打印九九乘法表 Dim Sgs As String Dim i, j As Integer For i = 1 To 9 ’被乘数从1变到9 For j = i To 9 ’乘数从1变到9 Sgs = i & "×" & j & "=" & Str(i * j) ’打印公式如1×1=1 Picture1.Print Tab((j - 1) * 9 + 1); Sgs; Next j Picture1.Print Next I
vb控制结构2
第7章 vb控制结构一、顺序结构程序的执行总是从上向下一句一句或者一块一块地执行。
每道程序均为顺序结构。
二、分支结构（选择结构）根据外界条件不同去执行不同的事情。
1、if的单行结构if条件then语句组1[ else语句组2]2、if的多行（块）结构if条件then语句组1[else语句组2]endif3、if的elseif结构（适用于多分支的情况）if条件1 then语句组1elseif条件2 then语句组2elseif条件3 then语句组3…………………[else语句组n]endif4、if的嵌套结构单行：if条件1 then语句组1 else if条件2 then语句组2 else语句组3多行：if条件1 then语句组1elseif条件2 then语句组2else语句组3endifendif有关以上4个语法结构的注意点：1、当有多个条件同时满足时，只有第1次满足的条件对应的语句组被执行，其他不管；2、单行结构不能有endif，多行结构一定要有endif；3、else子句可以省略；4、第3种格式中的elseif连在一起，第4种结构里的“单行”结构中else if是分开来的。
与分支结构相关的函数：iif(逻辑条件，真_值，假_值)iif(5<3,”a”,”b”)5、select case结构select case测试表达式case 条件1语句组1case 条件2语句组2……..case 条件n语句组n[case else语句组m]end select有关case后条件的限定：1、可以使用枚举的方法；2、可以使用关键字to；(小数据to 大数据)3、使用代词is来代表测试表达式。
（在case后不能有关系运算），不能对多个is表达式进行逻辑运算4、以上3种格式可以混合使用三、循环结构(重复结构)当外界条件满足时，反复地去执行某些事情。
1、当循环while 条件循环体（语句组）wend以下结构用来统计用户输入的数据的个数（循环的中inputbox一定要紧靠wend）x = InputBox("输入")While x >= 0 And x <= 100N=n+1x = InputBox("输入")Wend1、如果1个数的因子之和等于这个数本身，那么我们把这个数称为完全数。
第四章vb计算机
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
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) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
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) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
VB程序的设计VB基本语句-精选文档
第5章 基本的控制结构
For循环
例2: 求10！
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s=s+I Next I Print I, s
分析:
•重复过程:* •初值、终值与增量不变 Dim I, s As Integer s=1 For I = 1 To 10 Fors=1 =1 1 To To 10 10 For II = s=s*I Next I Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？
初值与终值换位 可以吗？
程序代码： Dim I%, s % ForI I=10 To Step For = 1 To 10 1 step 1 -1
s=s+I
Next I Print I, s
Visual Basic 程序设计
visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构累加和平均值累加和平均值求素数求素数求数的质因数求数的质因数穷举法穷举法递推法递推法55visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构例1
优：Mark ≥ 90 等级： 通过：60 ≤ Mark ＜ 90 未通过：<60
思考?
Visual Basic 程序设计
第5章 基本的控制结构
第04章VB控制结构
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演示
陈章良
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演示
计算机二级VB(2)
T
上机真题
【例】捷成31-5 窗体上有两个标签L1和L2，标题分别为“口令”和“允许 次数”；一个命令按钮C1，标题为“确定”；两个文本框 名称分别为Text1和 Text2。 其中 Text1用来输入口令（输 入时，显示“*”），无初始内容； Text2的初始内容为3。 程序运行时，在 Text1中输入口令后，单击“确定”，如果 输入的是“123456”则在 Text1中显示“口令正确”；如果 输入其他内容，单击“确定”后，弹出如图所示的错误提 示对话框，并且Text2中的数字减1。最多可输入3次口令， 若3次都输入错误，则禁止再次输入。
考点4 MsgBox函数和MsgBox语句
MsgBox函数 1. 格式
MsgBox(msg,[, type][, title][, helpfile,context])
2. 返回值 对话框标题显 对话框中显示的 对话框类型，确定对话框 MsgBox 函数的返回值是一个整数，这个整数 提示信息，为一示的信息，为 的图标和按钮，为一个整 与所选择的按钮有关。 一字符串
Str1
Visual Basic 6.0
Num
2
变量/属性名＝表达式/属性值
将“=”右边的值赋 值给左边的变量或 对象的属性 1.赋值号左边只能是变量，不能是常量、常数符号或表达式
赋值语句
sin(x) = x + y 5 = sqr(s) + x + y x + y = 3
2.不能在一句赋值语句中给多个变量赋值
第六章 VB控制结构
1 2 3
顺序结构
选择结构
循环结构
顺序结构
顺序结构：无控制结构，程序按语句出现先后顺序 依次执行 语句 VB中默认一行为一条语句 多条语句写一行之间用冒号“ : ”分隔。 一条语句在多行显示，使用续行符“ _”。
VB程序控制结构语法格式
VB程序控制结构语法格式一．选择控制结构条件语句也称if语句，有两种结构：1单行结构；2块结构1.单行结构，格式：If条件thenthen部分Elseelse部分如果“条件”为true，执行“then部分”，否则执行“else部分”2.块结构，格式：If条件1then语句块1Elseif条件2 then语句块2……Else语句块nEnd if二．多分支控制结构情况语句：也称为select case语句或case语句格式：Select Case测试表达式Case 表达式列表1语句块1[case 表达式列表2[语句块2]]……[case else[语句块n]]End Select情况语句以SelectCase开头，EndSelect结束，功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。
表达式列表：1、表达式[,表达式] 2,表达式to表达式3、is关系运算表达式，关系运算符Case 2,4,6,8 case 1to 5 case is=12或caseis<a+b三．For循环控制结构For循环格式：For循环变量=初值to 终值[step步长(步长=1时可省略)][循环体][Exit for]Next[循环变量][,循环变量]……四．当循环控制结构格式：While条件[语句块]Wend1.“条件”为一布尔表达式，当循环语句的功能是：先对“条件”进行测试，然后才决定是否执行循环体，只有在“条件”为true时才执行循环体，如果条件从开始就不成立，则一次循环体也不执行。
2.如果条件总是成立，则不停地重复执行循环体（要有使循环趋于结束的语句）。
五．Do当循环控制结构1. 格式：Do[语句块][exit do]Loop[while\until 循环条件]Do ….Loop While 循环逻辑图Do ….Loop Until 循环逻辑图No2. 格式：D o[while\until 循环条件][语句块][exit do]LoopDo …While Loop 循环逻辑图Do …Until Loop 循环逻辑图注意：1. While 循环先判断条件是否成立，成立的情况下在执行循环体，do …while 不管条件是否成立先执行一次循环体再判断条件是否成立，就是说至少运行一次。
Visual Basic 语言基础
Visual Basic基本控制结构
顺序结构 条件分支结构（单分支，多分支） ①if……then…… ②select case 循环控制结构 ①for……next ②do……loop ③while……wend 其他辅助控制语句
总结
这节课的内容非常重要，要为以后程序 设计打下牢固的基础就必须学好这些基 础知识。同学们，回去都要积极复习做 题巩固这些知识，也要用vb软件多实践。
Visual Basic 语言基础
导入语
同学们，我们到目前为止已经学习了很多种 语言了，有VF可视化编程语言，C语言， JAVA语言，现在我们又要学习一种新的语言， 这种语言与VF语言和C语言有很多相似之处， 这种语言就是VB语言，下面我们就一起来学 习这门语言吧！
章节要点
Visual Basic的基本数据类型 常量与常量 Visual Basic中的运算符和表达式 Visual Basic的基本控制结构
Visual Basic常用基本数据类型
整型数据（整型Integer,长整型Long） 浮点型数据（单精度型Single，双精度型Double） 货币型数据Currency 字节型数据Byte 日期型数据Date 字符串型数据String 逻辑型数据Boolean
常量与常量
什么是常量？什么是变 量？
变量
常量
直接常量 符号常量 系统常量
属性变量 内存变量
Visual Basic中运算符和表达式
算术运算符与算术表达式(^ - * / \ Mod + -) 字符串运算符与字符串表达式(+ &) 日期表达式(# + -) 关系运算符与关系表达式(= > >= < <= <>) 逻辑运算符与逻辑表达式（Not And Or）
第3章 程序基本控制结构
输入代码如下：
Dim sYourScore As string Dim iScore As integer
System.console.WriteLine(“请输入你的考试分数 （0－－100)之间：”) sYourScore=System.Console.ReadLine iScore = convert.toInteger(sYourScore)
基本语句
模拟文件读取出错
程序运行结果：
基本语句
Case 语句的用法
Case语句的用法
至此为止，Select Case语句的三种用法都 已经用到了，下面总结一下： （1）Case…To…的形式 表示被选择的表达式处于某个范围以内 （2）Case Is…的形式 表示被选择的表达式满足某个条件，当然， Is后面不一定是等于，只要是比较运算符 （＝，<,>,<>等）就可以。 （3）Case …的形式 这事实上相当于Case Is =的形式。
基本语句
Case 语句的用法
Case语句的用法
如果所有的条件都不能满足，Select Case 将会进入到Case Else语句。虽然Case Else语句可以不写，但是选择完了所有的 条件以后，最好加上Case Else..，这是用 来处理异常情况的。比如在这个程序中， 如果用户输入期望以外的值，就执行Case Else输出信息，告诉用户输入无效，这样 就大大地提高了程序对抗错误输入的能力， 也就是所谓的“健壮”。
四. 猜数游戏
代码实现
用Select…Case语句判断输入的数字是否 正确 记录猜测次数 演示
四. 猜数游戏
思考
第7章VB控制结构
例4-14演示
1. If语句
例4-15:从键盘输入一位作者的稿酬，根据 此稿酬计算出应缴纳的税金和扣除税金后作 者实际得到的稿酬。计算税金的方法是： 800元以内（含800，下同）免税，4000元 以内除800元以外的部分按14%上税，4000 以上按80%的14%上税。
1. If语句
Private sub form_click() Dim m as single,tax as single,wage as single m=Val(inputbox(“请输入稿酬”)) If m<=800 then tax=0 ElseIf m<=4000 Then tax=(m-800)*0.14 Else tax=m*0.8*014 End If wage=m-tax print “稿酬为:”;m, “税收为:”;tax,“实际酬金为”;wage End sub
例4-13演示
End sub
1. If语句
例4-14：编写一程序，能将大写字母方式 输入的一个字符转换为小写字母，小写字 母的字符转换成大写字母，其它非字母字 符不改变。
1. If语句
Private sub form_click() Dim ch as string ch=inputbox(“请输入一个字符”) print “输入的原始字符为”；ch If ch>=“A” and ch<=“Z” then ch=Lcase(ch) ElseIf ch>=“a” and ch<=“z” Then ch=Ucase(ch) Else ch=ch End If print “输出字符为”；ch End sub
例4-10演示源自1. If语句例4-11：输入a,b,c三个整数，输出其中最大的
vb4
Visual Basic 程序设计简明教程
第四章 基本控制语句
第四章 基本控制语句
程序设计语言的三种结构： 顺序 选择 循环
4.1 顺序结构
例: n%=“123” n%=“a123” n%=true a$=1234 a$=1234a s=s+1 x=y=z=1 ‘转换为 整数 出错 n为-1 a为“1234” 出错 x=((y=z)=1)
4.3 选择结构
4.3.3 条件函数 1. IIf函数 IIF(条件表达式，值1，值2） 条件表达式值为真时为值1，否则为值2 如：IIF(x>y,x,y) 2. Choose函数 Choose(整数表达式，选项列表） 整数表达式为1，列表第1项，... ... ... op=Choose(nop,”+”,”-”,”×”,”÷”)
常用算法（ 4.5 常用算法（一）
1. 累加 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 连乘 3～10的乘积 t=1 For i =3 To 10 t=t*i Next i Print t
4.3 选择结构
闰年 否则 不是闰年 如果结束
判断闰年
如果 年份除以400整除 或者 (除以100不整除 并且 除以4整除) 那么
If y Mod 400 = 0 Or (y Mod 100 <> 0 And y Mod 4 = 0) Then Print y & "是闰年" Else Print y & "不是闰年" End If
第四章 基本控制语句
第四章 基本控制语句
程序设计语言的三种结构： 顺序 选择 循环
4.1 顺序结构
例: n%=“123” n%=“a123” n%=true a$=1234 a$=1234a s=s+1 x=y=z=1 ‘转换为 整数 出错 n为-1 a为“1234” 出错 x=((y=z)=1)
4.3 选择结构
4.3.3 条件函数 1. IIf函数 IIF(条件表达式，值1，值2） 条件表达式值为真时为值1，否则为值2 如：IIF(x>y,x,y) 2. Choose函数 Choose(整数表达式，选项列表） 整数表达式为1，列表第1项，... ... ... op=Choose(nop,”+”,”-”,”×”,”÷”)
常用算法（ 4.5 常用算法（一）
1. 累加 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 连乘 3～10的乘积 t=1 For i =3 To 10 t=t*i Next i Print t
4.3 选择结构
闰年 否则 不是闰年 如果结束
判断闰年
如果 年份除以400整除 或者 (除以100不整除 并且 除以4整除) 那么
If y Mod 400 = 0 Or (y Mod 100 <> 0 And y Mod 4 = 0) Then Print y & "是闰年" Else Print y & "不是闰年" End If
VB中结构
格式： If < 条件表达式 > < 语句块1> Else < 语句块2> End If
Then
T 表达 F 式
语句(块)1
语句(块)2
功能：当表达式的值为非0（True）时,执行Then后面的 语句块1，否则执行Else后面的语句块2。
例：判断两个数的乘积是否是正数。
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = Val(Text2.Text) If x * y > 0 Then
〈语句块1〉
ElseIf 〈表达式2〉Then
〈语句块2〉
……
[Else
表达式1
F
〈语句块 n+1 ] End If
表达式2
F…
T
T
表达式
nn T
语句块11
语句块2 …… 语句块nn
语句块n+11
说明：
① 不管有几个分支，程序执行了一个分支后， 其余分支不再执行。
② ElseIf子句的数量没有限制，可以根据需 要使用任意多个ElseIf子句。
（一）顺序结构
程序中的语句依照其在程序中的位置依次顺序 地执行，叫做语句的顺序执行。
赋值语句 格式： 变量名/对象属性名 = 表达式 功能：将赋值号右边表达式的值赋给赋值号左边的 变量或对象属性。
举例：
a = 300 b = a * 2 + 100 Form1.Width = b
注意：
① 赋值号左边只能是变量，不能是表达式、常量。
3．Select Case语句（多分支结构）
vb的编程手册
vb的编程手册
VB，全称Visual Basic，是Microsoft开发的一种面向对象的编程语言。
以下是VB编程手册的简要介绍：
1. 语言基础：VB是一种结构化的、模块化的、面向对象的语言。
它支持面
向对象的编程概念，如类、对象、继承和多态等。
2. 变量和数据类型：VB中变量是一种存储数据的容器。
根据需要，可以为
变量分配不同的数据类型，如整型、浮点型、字符串等。
3. 控制结构：VB支持各种控制结构，如顺序结构、选择结构和循环结构。
这些控制结构允许程序员根据特定条件执行代码块。
4. 函数和过程：VB提供了许多内置函数，用于执行各种操作，如数学计算、字符串处理等。
此外，程序员还可以创建自定义函数和过程，以实现特定的功能。
5. 事件驱动编程：VB是一种事件驱动的编程语言。
这意味着当用户与界面
交互时（例如单击按钮），会触发相应的事件。
程序员可以编写事件处理程序来响应用户的操作。
6. 图形用户界面：VB提供了丰富的GUI组件，如窗体、控件等，用于创建具有吸引力的用户界面。
通过拖放组件或使用设计视图，可以轻松地构建用户界面。
7. 数据库访问：VB支持多种数据库访问技术，如和DAO。
程序员可以使用这些技术连接数据库、执行查询和更新数据等操作。
8. 网络编程：VB支持多种网络协议，如TCP和UDP。
程序员可以使用VB 编写网络应用程序，如聊天室和FTP服务器。
以上是VB编程手册的主要内容，仅供参考。
在实际学习过程中，建议结合相关教程和示例代码进行实践，以更好地掌握VB编程技能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
上海交通大学出版社
第3章 ·基本控制结构
任意输入三个数，求由这三个数组成的 三角形的面积。
例 3- 6
上海交通大学出版社
第3章 ·基本控制结构
分别输入学生的姓名、性别、年龄、成 绩信息，并将信息显示在窗体上。
例3-7
上海交通大学出版社
第3章 ·基本控制结构
MsgBox函数和MsgBox过程
函数形式：
变量[%] = MsgBox(msg [,type]［,title］)
过程形式：
MsgBox 提示[,按钮][,标题]
功能：MsgBox函数打开一个信息框，等待用户选 择一个按钮，并可根据用户在对话框上的选 择进行对应的响应，此函数返回一个整型值， 以决定其后的操作。
上海交通大学出版社
第3章 ·基本控制结构
①普通表达式 ③表达式1 To 表达式2
④Is 关系运算符表达式
上海交通大学出版社
如：
"A"
2,4,6,8
②一组枚举表达式(用逗号分隔) 如： 如：
如： 60 To 100
Is < 60
第3章 ·基本控制结构
将例3-15中的判断大小写字母问题，改 为用Select Case情况语句实现。
例 3-17
上海交通大学出版社
第3章 ·基本控制结构
InputBox函数
格式：InputBox(prompt［,title］［,default］ ［,xpos］[,ypos］) 功能：产生一个对话框，通过对话框用户可以输入 数据，函数返回值是字符型。 说明：
(1)prompt：是一个字符串，是必选项，是对话框内显示的 信息； (2)title：对话框标题 (3)default：输入区缺省值 (4)xpos和ypos：是对话框与屏幕左边界的距离。 (5)每执行一次InputBox函数只能输入一个数据。
上海交通大学出版社
第3章 ·基本控制结构
例3-10
输入两个数，求它们中的最大数。
上海交通大学出版社
第3章 ·基本控制结构
例 3-11
输入三个数，求它们中的最小数。
上海交通大学出版社
第3章 ·基本控制结构
例 3-12
编程求符号函数的值。 y=
1 0
x>0 x=0
符号函数形式如下：
-1
x<0
上海交通大学出版社
第3章 ·基本控制结构
注释语句
格式： ′注释内容 或 Rem 注释内容 功能：注释语句用来对程序或程序中某些语句作注 释，以便于程序的阅读和理解。 说明：
(1) 注释语句是非执行语句，对程序的执行结果没有 任何影响，仅在列程序清单时，其内容被列出；
(2) 注释语句作为一个独立行，可放在过程、模块的 开头作为标题；也可以放在执行语句的后面。 如： x=x+1
上海交通大学出版社
第3章 ·基本控制结构
赋值语句
格式： <变量>=<表达式> [<对象>].属性=<表达式> 功能：先计算的<表达式>，再将其值赋给变量或 指定对象的属性。 注意事项： （1）只能给一个变量或对象的一个属性赋值； （2）<表达式>可以是变量、常量、函数和表达 式；
上海交通大学出版社
上海交通大学出版社
′将变量x的值加上1后再赋
第3章 ·基本控制结构
暂停语句
格式：Stop 功能：暂时停止程序的运行。 说明： (1) Stop可以放置在过程中的任何地方，相当于在 程序代码中设置断点，当执行Stop语句时，系统 将自动打开“立即窗口”，方便程序员调试跟 踪程序。 (2) 在程序调试通过之后，生成可执行文件(.exe文 件)之前，应删去代码中的所有Stop语句。
上海交通大学出版社
第3章 ·基本控制结构
Choose函数
格式：Choose(整形表达式，选项列表)
功能：根据整形表达式的值，决定返回选项列表中 的某个值。当变量的值为1时，函数值为第1 项的值；当变量的值为2时，函数值为第2项 的值；当变量的值为n时，函数值为第n项的 值。
举例： n = 2
st = Choose(n, "red", "green", "blue")
上海交通大学出版社
第3章 ·基本控制结构
IIf 函数
格式：IIf(条件，True部分的值，False部分的值) 功能：当“条件”为真时，True部分的值为函数值； 而当“条件”为假时，False部分的值为函数值。 说明： (1) “条件”是逻辑表达式或关系表达式。 (2) “True部分的值”或“False部分的值”是表达 式。 举例：if x>y then z = x else z = y 可等价与： z = IIf (x > y, x, y)
功能：根据“测试表达式”的值，从多个语句块中 选择符合条件的一个语句块执行。
上海交通大学出版社
第3章 ·基本控制结构
情况语句说明
(1) “测试表达式”可以是数值表达式或字符串表达 式，通常为变量或常量 。 (2) “表达式列表I”与“测试表达式”类型必须相同; (3) “表达式列表I”为下列四种形式：
可等价与：st=”green”
上海交通大学出版社
第3章 ·基本控制结构
循环结构
循环三要素：
(1) 初始化：决定循环的初始状态，即与循环相关 的变量的初始值；
(2) 循环体：循环中反复执行的部分； (3) 循环的条件：决定循环结束的条件。 三种循环结构： for、 while 、do。
上海交通大学出版社
上海交通大学出版社
第3章 ·基本控制结构
MsgBox说明
(3) Title：为标题信息，是用来显示对话框标题的 字符串。 (4) MsgBox函数的参数只有Msg参数不可省略，其 他均可省略。如果省略Type，则对话框中只显 示“确定”按钮；如果省略Title，则标题框显示 当前工程的名称。 (5) MsgBox函数的返回值是一个整数，这个整数与 选择的按钮有关，见表3-2。
MsgBox说明
(1) Msg：与InputBox中的prompt参数定义相同，是 提示信息。 (2) Type：是由表示按钮的类型、显示图标的样式、 默认活动按钮、强制返回。这4类数值相加产生， 默认值为0， (见表3-1) 。
① 第一组值(0～5)：描述了对话框中显示的按钮的类型 与数目。 ② 第二组值(16，32，48，64)：指定对话框显示的图标 样式。 ③ 第三组值(0，256，512，768)：指明默认活动按钮。 ④ 第四组值(0，4096)：决定消息框的强制返回值。
第3章 ·基本控制结构
例 3-13
单击按钮实验。
上海交通大学出版社
第3章 ·基本控制结构
块结构if条件语句
格式：
If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 … Else 语句块n End If
条件1
真 假 条件2 真 语句2 假
条件n-1
语句1
假 真 语句n
真
语句n-1
步长 >0 初值<终值 =1 时,可省略 <0 初值>终值 =0 死循环
Int ( 终值初值 1) 循环次数 步长
(3) 循环体：是需重复执行的一句或多条语句。 (4) Exit For：可选项，用于某些特殊情况下退出循环。
上海交通大学出版社
第3章 ·基本控制结构
FOR 循环说明
(5) 循环变量在循环体内可以引用，但不应改变其 值，否则将导致循环无法正常执行。
第3章 ·基本控制结构
两个数的交换
例：已知两个数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
若上述语句次序变一下，结果如何？
上海交通大学出版社
第3章 ·基本控制结构
双分支结构
格式1：If 条件 Then 语句1 Else 语句2 格式2：If 条件 Then N 语句1 条件 Y Else 语句1 语句2 语句2 End if 功能：如果“条件”成立(其值为True)或为非0值， 则执行“语句1”；否则，执行“语句2” 。
例3-8
上海交通大学出版社
第3章 ·基本控制结构
在程序设计中，用户经常需要检查输入 数据的正确性，图 所示为模仿此提示信息的效果图， 其中19为16+3。
例3-9
上海交通大学出版社
第3章 ·基本控制结构
分支（选择）结构
顺序程序的执行是按照程序的书写顺序执行 的，即程序走过的路径是线性的，而线性的路径能 够解决的问题是非常有限的，遇到较为复杂的问题 则无法解决；另一方面程序中经常需要根据给定的 条件进行分析、比较和判断，并根据判断结果采取 不同的操作，这就需要利用VB语言提供的分支结 构。以下介绍VB语言提供的各种选择结构。
第3章 ·基本控制结构
例 3-18
打印循环变量的值。
上海交通大学出版社
第3章 ·基本控制结构
ii
im im
n n
例 3-19
求级数和s=
i
im
n
的问题。
上海交通大学出版社
第3章 ·基本控制结构
FOR 循环说明
(1) 循环变量：是一个数值变量。 (2) 初值、终值和步长：均是数值表达式，其值若 是实数，则自动取整。
上海交通大学出版社
第3章 ·基本控制结构
输出消息框
已知：
(2+48)
Msg1 = MsgBox(“确实要删除吗？请选择！”, 50, “提 示”)
执行该语句后屏幕出现一个对话窗口，如下图所示：
第3章 ·基本控制结构
任意输入三个数，求由这三个数组成的 三角形的面积。
例 3- 6
上海交通大学出版社
第3章 ·基本控制结构
分别输入学生的姓名、性别、年龄、成 绩信息，并将信息显示在窗体上。
例3-7
上海交通大学出版社
第3章 ·基本控制结构
MsgBox函数和MsgBox过程
函数形式：
变量[%] = MsgBox(msg [,type]［,title］)
过程形式：
MsgBox 提示[,按钮][,标题]
功能：MsgBox函数打开一个信息框，等待用户选 择一个按钮，并可根据用户在对话框上的选 择进行对应的响应，此函数返回一个整型值， 以决定其后的操作。
上海交通大学出版社
第3章 ·基本控制结构
①普通表达式 ③表达式1 To 表达式2
④Is 关系运算符表达式
上海交通大学出版社
如：
"A"
2,4,6,8
②一组枚举表达式(用逗号分隔) 如： 如：
如： 60 To 100
Is < 60
第3章 ·基本控制结构
将例3-15中的判断大小写字母问题，改 为用Select Case情况语句实现。
例 3-17
上海交通大学出版社
第3章 ·基本控制结构
InputBox函数
格式：InputBox(prompt［,title］［,default］ ［,xpos］[,ypos］) 功能：产生一个对话框，通过对话框用户可以输入 数据，函数返回值是字符型。 说明：
(1)prompt：是一个字符串，是必选项，是对话框内显示的 信息； (2)title：对话框标题 (3)default：输入区缺省值 (4)xpos和ypos：是对话框与屏幕左边界的距离。 (5)每执行一次InputBox函数只能输入一个数据。
上海交通大学出版社
第3章 ·基本控制结构
例3-10
输入两个数，求它们中的最大数。
上海交通大学出版社
第3章 ·基本控制结构
例 3-11
输入三个数，求它们中的最小数。
上海交通大学出版社
第3章 ·基本控制结构
例 3-12
编程求符号函数的值。 y=
1 0
x>0 x=0
符号函数形式如下：
-1
x<0
上海交通大学出版社
第3章 ·基本控制结构
注释语句
格式： ′注释内容 或 Rem 注释内容 功能：注释语句用来对程序或程序中某些语句作注 释，以便于程序的阅读和理解。 说明：
(1) 注释语句是非执行语句，对程序的执行结果没有 任何影响，仅在列程序清单时，其内容被列出；
(2) 注释语句作为一个独立行，可放在过程、模块的 开头作为标题；也可以放在执行语句的后面。 如： x=x+1
上海交通大学出版社
第3章 ·基本控制结构
赋值语句
格式： <变量>=<表达式> [<对象>].属性=<表达式> 功能：先计算的<表达式>，再将其值赋给变量或 指定对象的属性。 注意事项： （1）只能给一个变量或对象的一个属性赋值； （2）<表达式>可以是变量、常量、函数和表达 式；
上海交通大学出版社
上海交通大学出版社
′将变量x的值加上1后再赋
第3章 ·基本控制结构
暂停语句
格式：Stop 功能：暂时停止程序的运行。 说明： (1) Stop可以放置在过程中的任何地方，相当于在 程序代码中设置断点，当执行Stop语句时，系统 将自动打开“立即窗口”，方便程序员调试跟 踪程序。 (2) 在程序调试通过之后，生成可执行文件(.exe文 件)之前，应删去代码中的所有Stop语句。
上海交通大学出版社
第3章 ·基本控制结构
Choose函数
格式：Choose(整形表达式，选项列表)
功能：根据整形表达式的值，决定返回选项列表中 的某个值。当变量的值为1时，函数值为第1 项的值；当变量的值为2时，函数值为第2项 的值；当变量的值为n时，函数值为第n项的 值。
举例： n = 2
st = Choose(n, "red", "green", "blue")
上海交通大学出版社
第3章 ·基本控制结构
IIf 函数
格式：IIf(条件，True部分的值，False部分的值) 功能：当“条件”为真时，True部分的值为函数值； 而当“条件”为假时，False部分的值为函数值。 说明： (1) “条件”是逻辑表达式或关系表达式。 (2) “True部分的值”或“False部分的值”是表达 式。 举例：if x>y then z = x else z = y 可等价与： z = IIf (x > y, x, y)
功能：根据“测试表达式”的值，从多个语句块中 选择符合条件的一个语句块执行。
上海交通大学出版社
第3章 ·基本控制结构
情况语句说明
(1) “测试表达式”可以是数值表达式或字符串表达 式，通常为变量或常量 。 (2) “表达式列表I”与“测试表达式”类型必须相同; (3) “表达式列表I”为下列四种形式：
可等价与：st=”green”
上海交通大学出版社
第3章 ·基本控制结构
循环结构
循环三要素：
(1) 初始化：决定循环的初始状态，即与循环相关 的变量的初始值；
(2) 循环体：循环中反复执行的部分； (3) 循环的条件：决定循环结束的条件。 三种循环结构： for、 while 、do。
上海交通大学出版社
上海交通大学出版社
第3章 ·基本控制结构
MsgBox说明
(3) Title：为标题信息，是用来显示对话框标题的 字符串。 (4) MsgBox函数的参数只有Msg参数不可省略，其 他均可省略。如果省略Type，则对话框中只显 示“确定”按钮；如果省略Title，则标题框显示 当前工程的名称。 (5) MsgBox函数的返回值是一个整数，这个整数与 选择的按钮有关，见表3-2。
MsgBox说明
(1) Msg：与InputBox中的prompt参数定义相同，是 提示信息。 (2) Type：是由表示按钮的类型、显示图标的样式、 默认活动按钮、强制返回。这4类数值相加产生， 默认值为0， (见表3-1) 。
① 第一组值(0～5)：描述了对话框中显示的按钮的类型 与数目。 ② 第二组值(16，32，48，64)：指定对话框显示的图标 样式。 ③ 第三组值(0，256，512，768)：指明默认活动按钮。 ④ 第四组值(0，4096)：决定消息框的强制返回值。
第3章 ·基本控制结构
例 3-13
单击按钮实验。
上海交通大学出版社
第3章 ·基本控制结构
块结构if条件语句
格式：
If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 … Else 语句块n End If
条件1
真 假 条件2 真 语句2 假
条件n-1
语句1
假 真 语句n
真
语句n-1
步长 >0 初值<终值 =1 时,可省略 <0 初值>终值 =0 死循环
Int ( 终值初值 1) 循环次数 步长
(3) 循环体：是需重复执行的一句或多条语句。 (4) Exit For：可选项，用于某些特殊情况下退出循环。
上海交通大学出版社
第3章 ·基本控制结构
FOR 循环说明
(5) 循环变量在循环体内可以引用，但不应改变其 值，否则将导致循环无法正常执行。
第3章 ·基本控制结构
两个数的交换
例：已知两个数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
若上述语句次序变一下，结果如何？
上海交通大学出版社
第3章 ·基本控制结构
双分支结构
格式1：If 条件 Then 语句1 Else 语句2 格式2：If 条件 Then N 语句1 条件 Y Else 语句1 语句2 语句2 End if 功能：如果“条件”成立(其值为True)或为非0值， 则执行“语句1”；否则，执行“语句2” 。
例3-8
上海交通大学出版社
第3章 ·基本控制结构
在程序设计中，用户经常需要检查输入 数据的正确性，图 所示为模仿此提示信息的效果图， 其中19为16+3。
例3-9
上海交通大学出版社
第3章 ·基本控制结构
分支（选择）结构
顺序程序的执行是按照程序的书写顺序执行 的，即程序走过的路径是线性的，而线性的路径能 够解决的问题是非常有限的，遇到较为复杂的问题 则无法解决；另一方面程序中经常需要根据给定的 条件进行分析、比较和判断，并根据判断结果采取 不同的操作，这就需要利用VB语言提供的分支结 构。以下介绍VB语言提供的各种选择结构。
第3章 ·基本控制结构
例 3-18
打印循环变量的值。
上海交通大学出版社
第3章 ·基本控制结构
ii
im im
n n
例 3-19
求级数和s=
i
im
n
的问题。
上海交通大学出版社
第3章 ·基本控制结构
FOR 循环说明
(1) 循环变量：是一个数值变量。 (2) 初值、终值和步长：均是数值表达式，其值若 是实数，则自动取整。
上海交通大学出版社
第3章 ·基本控制结构
输出消息框
已知：
(2+48)
Msg1 = MsgBox(“确实要删除吗？请选择！”, 50, “提 示”)
执行该语句后屏幕出现一个对话窗口，如下图所示：