最新VB程序基本控制结构课件ppt
合集下载
VisualBasic的基本控制结构Pptppt文档
4.2.1 If语句
4. If 语句的嵌套 If语句的嵌套是指If或 Else后面的语句块中又包含If语
句。下面是常见的双分支选择结构中的嵌套If结构的形式：
If <条件表达式1> Then
If <条件表达式1> Then
…
…
If <条件表达式11> Then Else
… End If
… If <条件表达式11> Then
4.2 选择结构
4.2 选择结构
选择结构是根据某个条件决定执行哪部 分程序，可以用If语句或Select Case语句实 现。其中If语句根据分支的多少分为单分支 、双分支和多分支If语句。Select Case语句 使程序只能根据某一个条件的不同取值来决 定执行哪部分程序。大部分情况下两种语句 间可以相互替换。
VisualBasic的基本控制结构Ppt
4.1 顺序结构
4.1 顺序结构
顺序结构是程序设计中最基本、最简单的结构，在此 结构中，程序按照语句出现的先后顺序依次执行。顺序结 构是任何程序的基本结构，即使在选择结构和循环结构中 也包含有顺序结构。
语句1
语句n
4.1 顺序结构
【例4.1】 单击窗体，在窗体上输出两行不同格式 的文字。
4.2.1 If语句
1. If…Then语句（单分支语句） 语句格式如下：
(1) If <条件表达式> Then <语句块>
End If
条件表达 式
True
语句块
False
(2) If <条件表达式>Then <语句>
其中条件表达式可以是任意类型的，语句块可以是一条或
《VB程序设计教程》PPT课件(全)(2024)
窗体的方法与事件
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
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
vb的三种基本结构PPT教学课件
S3 最后，变量b的值是（ ）
2、分支结构：（选择结构）
根据条件判断其是否成立，如果成立执行成立的分支；否则
执行另一分支。
其一般形式为：
If 条件 Then
语句序列1
Else
C
语句序列2
End If
分支结构的简单形式为：
S1
S2
If 条件 Then 语句序列
End If
例2、a =10 If a>=10 Then a=a+1 Else a=a-1 End If
4、以下程序，运行后 X的值为 （ ）
X =2 For i＝1 To 5 If X＜i Then
X= X＋i
End If
Next i
A. l B. 3 C. 5 D. 7
3.1 几
何 图 形
你知道下列几何体的名称吗？
立（正）方体 长方体
圆柱
圆椎体
球体
你能举出一些在日常生活中与上述几何体类似 的物体吗?
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。
例1、 a=1
S1
b=2
c=a+b
S2
a=c-a
b=c-a
看一看
看一看
பைடு நூலகம்
看 一 看
张国老倒骑驴
看谁做的好？
材料：一块正方形硬纸板，
剪刀，直尺，一副三角板。
做法：A
F
L
O
E
第4章 VB基本控制结构PPT教学课件
2020/12/11
3
例：
a=9 b=a*3 Label1.fontname=“宋体” Label1.caption=“你好” Label1.caption=“大家好”
2020/12/11
4
说明：
1.表达式中的变量必须是赋过值的，否则变量的初值 自动取零值(变长字符串变量取空字符) a=1 c=a+b+3
第四章 Visual Basic 6.0基本控制结构
2020/12/11
1
本章主要内容
1. 顺序结构程序设计方法
赋值语句和Print方法 InputBox函数和MsgBox函数
2. 选择结构程序设计方法
if …then…else 语句 select case 语句
3. 循环结构程序设计方法
do …loop语句
作用：清除窗体上或图片框上的内容 格式：对象.cls
2020/12/11
15
Move方法
作用：移动窗体或控件，或改变其大小 格式：对象.move left,top,width,height 注意：left为必须的，但若要指定其他的参
数，必须先指定出现在该参数前面的参数。
2020/12/11
End Sub 运行结果
2020/12/11
11
1. Spc
格式：Spc(n)
功能：在输出下一项之前插入n个空格。
Print "学号"；Spc(2)；"姓名"；Spc(5)；"成绩 "
输出结果(└┘表示空格) 学号└┘└┘姓名└┘└┘└┘└┘└┘
2020/12/11
12
2. Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n
控制结构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章.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程序设计第四章-基本的控制结构精品PPT课件
– 给变量赋值 – 给控件的属性赋值
例如： sngRate! =0.1 ‘将0.1赋给单精度变量
sngRate txtName.Text = “Hu”
赋值处理
当赋值等号左右数值类型不相同时，强制转换成 左边变量的类型（精度） n%=3.5 ‘结果为4（四舍五入）
当赋值等号左边是数值类型，而右边表达式是数 字字符串，则VB自动转换成数值类型再赋值，如 表达式不是数字字符串，则出错。
vbOk vbCancel vbAbort vbRetry vbIgnore vbYes VBNo
1
确定
2
取消
3
终止
4
重试
5
忽略
6
是
7
否
3 MsgBox过程
语法： MsgBox(提示[,按钮][,标题])
其中： 提示、标题、 按钮：与MsgBox函数相同
作用： Msgbox()函数和Msgbox过程的作用都是打开 一个信息框，等待用户选择一个按钮。
注意：
尽量采用转换函数进行转换，避免VB 系统自动转换。这样能避免出现意想 不到的错误。
VB系统会自动判断赋值符号“=“ 和 关系运算符等于符号”=“。
赋值符号”=“左边只能是变量，不 能是常量、或者表达式。
赋值语句： intX = intX + 1
2 人机交互函数和过程
VB与用户之间的数据交互通过两个 函数和一个过程完成。
InputBox函数的作用
打开一个标准对话框，等待用户输入内容， 用户单击“确定（OK）”或者按回车键， 则该函数返回输入的值，其类型为字符型。
例如：
Dim strName As String * 40, strS1 As String strS1 = "请输入你的姓名" + vbCrLf + "然后回车确定" strName = InputBox(strS1, "输入框", , 100, 100)
例如： sngRate! =0.1 ‘将0.1赋给单精度变量
sngRate txtName.Text = “Hu”
赋值处理
当赋值等号左右数值类型不相同时，强制转换成 左边变量的类型（精度） n%=3.5 ‘结果为4（四舍五入）
当赋值等号左边是数值类型，而右边表达式是数 字字符串，则VB自动转换成数值类型再赋值，如 表达式不是数字字符串，则出错。
vbOk vbCancel vbAbort vbRetry vbIgnore vbYes VBNo
1
确定
2
取消
3
终止
4
重试
5
忽略
6
是
7
否
3 MsgBox过程
语法： MsgBox(提示[,按钮][,标题])
其中： 提示、标题、 按钮：与MsgBox函数相同
作用： Msgbox()函数和Msgbox过程的作用都是打开 一个信息框，等待用户选择一个按钮。
注意：
尽量采用转换函数进行转换，避免VB 系统自动转换。这样能避免出现意想 不到的错误。
VB系统会自动判断赋值符号“=“ 和 关系运算符等于符号”=“。
赋值符号”=“左边只能是变量，不 能是常量、或者表达式。
赋值语句： intX = intX + 1
2 人机交互函数和过程
VB与用户之间的数据交互通过两个 函数和一个过程完成。
InputBox函数的作用
打开一个标准对话框，等待用户输入内容， 用户单击“确定（OK）”或者按回车键， 则该函数返回输入的值，其类型为字符型。
例如：
Dim strName As String * 40, strS1 As String strS1 = "请输入你的姓名" + vbCrLf + "然后回车确定" strName = InputBox(strS1, "输入框", , 100, 100)
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)。
End If
语句块 1
表达式 2 T
语句块 2
F
表达式 n
T 语句块 n
F 语 句 块 n+1
该语句的作用是根据不同的表达式值确定执行哪个语句块
17
上一页
下一页
4.3 循环结构
本章目录
我们已经学习了顺序结构和分支结构，这种结构的特点
是任何一条语句至多只执行一次，但是在处理实际问题的 过程中，用这种结构来编写程序就长得不能忍受。
If x<y Then t=x x=y
x
y
y=t
End If
t
或 If x<y Then t=x: x=y: y=t
简单If形式无End If，只能是一句语句或语句间用冒号分隔， 而且必须在一行上书写。
14
上一页
下一页
双分支结构
本章目录
2. If…Then…Else语句 If 表达式 Then
语句块1 Else
语句块2 End If
T 语句块 1
表达式
或 If 表达式 Then 语句1 Else 语句2
当表达式的值为True时，执行Then后面的语 句块1，否则执行Else后面的语句块2
15
上一页
F 语句块 2
下一页
双分支结构例
本章目录
计算分段函数 ysinx x2 1 x0 cosxx33x x0
单分支结构实现: If x<>0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－ x^3+3*x
初始值 循环体
Do 循环体语句 Loop until条 件
条件
4.3 循环结构
初始值 条件 循环体
初始值 循环体
条件
4.3.1 For循环语句
本章目录
For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长]
语句块
[Exit For] 语句块 Next 循环变量 循环变量必须为数值型。
引例：求1+2+3+100的和？ S=0 S=S+1 S=S+2 S=S+3 ……共101条语句
实际上这就是一种重复循环操作， VB中提供了两种类 型的循环语句：一种是计数循环语句；另一种是条件型 循环语句。
18
上一页
下一页
4.3 循环结构
初始值
条件
Do while 条件 循环体语 句 loop
循环体
11
上一页
下一页
4.2 选择结构
条件
条件
If<条件>Then
步骤一的语句块
End If
If<条件>Then
步骤一的语句块
Else
步骤二的语句块
End If
4.2.1 If条件语句
本章目录
1. If…Then语句(单分支结构)
If <表达式> Then
F 表达式
语句块（可以是一句或多句语句）
T
End If
iA% = 10 / 3
7
iA中的结果为3
上一页
下一页
例题
单击命令按钮，交换两个文本的值。界面如下所示。
Private Sub Command1_Click() Dim t t = Text1.Text Text1.Text = Text2.Text Text2.Text = t
End Sub
8
4.1.2 人机交互函数和过程
VB程序基本控制结构
符号
符号名称 功能说明
起止框 处理框
表示算法的开始和结束（一个 算法只有一个开始，可以有多 个结束）
表示执行一个步骤
判断框 表示根据条件选择执行
输入输出 框
路表示线需要输入或由计算机
自动输出的信息
流程线 指示流程的方
向
4.1.1 赋值语句
本章目录
形式： 变量名＝表达式 作用:计算右边表达式的值，然后赋给左边的变量。 一般用于给变量赋值或对控件设定属性值。
表达式可以是任何类型，一般应与变量名的类型一致。当 表达式的类型与变量的类型不一致时，强制转换成左边的 类型。 例：
sRate!=0.1
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
Text1.Text ＝ "" ' 清除文本框的内容
n%=3.5 ' n为整型变量，转换时四舍五入，n中的结果为4
10
上一页
下一页
4.2 选择结构
本章目录
计算机要处理的问题往往是复杂多变的， 仅采用顺序结构是不够的。必须利用选择 结构等来解决实际应用中的各种问题。VB 中提供了多种形式的条件语句来实现选择 结构，有If条件语句和Select情况语句等。 它们都是对条件进行判断，根据判断结果， 选择执行不同的分支。
双分支结构实现:
16
If x<>0 Then y=sin(x)+sqr (x*x+1)
Else y=cos(x)－x^3+3*x
End If
多分支结构
本章目录
3. If…Then…lseIf 表达式2 Then
F
语句块2
表达式 1
… T
[Else 语句块 n+1 ]
作用：打开一个信息框，等待用户选择一个按按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不返回值 MsgBox函数形式：
变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式：
MsgBox 提示[,按钮][,标题] 按钮：可选项，数值表达式是值的总和，指定显示“按钮” 的数目及形式，使用的图标样式以及缺省“按钮”是什么。
语句块
或 If <表达式> Then <语句>
表达式：关系表达式、逻辑表达式，算术表达式。 表达式值按非零为True，零为False进行判断。
该语句的作用是当表达式的值为True，执行Then后 面的语句块，否则不做任何操作。
13
上一页
下一页
单分支结构
本章目录
例：已知两个数x和y，比较它们的大小，使得x大于y。
循环次数 In(终 t 步 值 初 长值 1)
步长
21
>0 初值<终值 =1 时，可省略 <0 初值>终值 =0 死循环
上一页
下一页
For循环语句
循 环 变 量 =初 值
循环变量是否在
F
终值范围内
T
语句块
T 有 E x it F o r
F 语句块
循 环 变 量 =循 环 变 量 +步 长
本章目录
循环流程： (1) 循环变量被赋初值，它仅 被赋值一次。 (2) 判断循环变量是否在终值 内，如果是，执行循环体； 如果否，结束循环，执行 Next的下一语句。 (3) 循环变量加步长，转(2)， 继续循环
1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位 置]) 其中:
Dim strName As String * 40 strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” )
9
2. MsgBox函数和MsgBox过程 本章目录
语句块 1
表达式 2 T
语句块 2
F
表达式 n
T 语句块 n
F 语 句 块 n+1
该语句的作用是根据不同的表达式值确定执行哪个语句块
17
上一页
下一页
4.3 循环结构
本章目录
我们已经学习了顺序结构和分支结构，这种结构的特点
是任何一条语句至多只执行一次，但是在处理实际问题的 过程中，用这种结构来编写程序就长得不能忍受。
If x<y Then t=x x=y
x
y
y=t
End If
t
或 If x<y Then t=x: x=y: y=t
简单If形式无End If，只能是一句语句或语句间用冒号分隔， 而且必须在一行上书写。
14
上一页
下一页
双分支结构
本章目录
2. If…Then…Else语句 If 表达式 Then
语句块1 Else
语句块2 End If
T 语句块 1
表达式
或 If 表达式 Then 语句1 Else 语句2
当表达式的值为True时，执行Then后面的语 句块1，否则执行Else后面的语句块2
15
上一页
F 语句块 2
下一页
双分支结构例
本章目录
计算分段函数 ysinx x2 1 x0 cosxx33x x0
单分支结构实现: If x<>0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－ x^3+3*x
初始值 循环体
Do 循环体语句 Loop until条 件
条件
4.3 循环结构
初始值 条件 循环体
初始值 循环体
条件
4.3.1 For循环语句
本章目录
For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长]
语句块
[Exit For] 语句块 Next 循环变量 循环变量必须为数值型。
引例：求1+2+3+100的和？ S=0 S=S+1 S=S+2 S=S+3 ……共101条语句
实际上这就是一种重复循环操作， VB中提供了两种类 型的循环语句：一种是计数循环语句；另一种是条件型 循环语句。
18
上一页
下一页
4.3 循环结构
初始值
条件
Do while 条件 循环体语 句 loop
循环体
11
上一页
下一页
4.2 选择结构
条件
条件
If<条件>Then
步骤一的语句块
End If
If<条件>Then
步骤一的语句块
Else
步骤二的语句块
End If
4.2.1 If条件语句
本章目录
1. If…Then语句(单分支结构)
If <表达式> Then
F 表达式
语句块（可以是一句或多句语句）
T
End If
iA% = 10 / 3
7
iA中的结果为3
上一页
下一页
例题
单击命令按钮，交换两个文本的值。界面如下所示。
Private Sub Command1_Click() Dim t t = Text1.Text Text1.Text = Text2.Text Text2.Text = t
End Sub
8
4.1.2 人机交互函数和过程
VB程序基本控制结构
符号
符号名称 功能说明
起止框 处理框
表示算法的开始和结束（一个 算法只有一个开始，可以有多 个结束）
表示执行一个步骤
判断框 表示根据条件选择执行
输入输出 框
路表示线需要输入或由计算机
自动输出的信息
流程线 指示流程的方
向
4.1.1 赋值语句
本章目录
形式： 变量名＝表达式 作用:计算右边表达式的值，然后赋给左边的变量。 一般用于给变量赋值或对控件设定属性值。
表达式可以是任何类型，一般应与变量名的类型一致。当 表达式的类型与变量的类型不一致时，强制转换成左边的 类型。 例：
sRate!=0.1
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
Text1.Text ＝ "" ' 清除文本框的内容
n%=3.5 ' n为整型变量，转换时四舍五入，n中的结果为4
10
上一页
下一页
4.2 选择结构
本章目录
计算机要处理的问题往往是复杂多变的， 仅采用顺序结构是不够的。必须利用选择 结构等来解决实际应用中的各种问题。VB 中提供了多种形式的条件语句来实现选择 结构，有If条件语句和Select情况语句等。 它们都是对条件进行判断，根据判断结果， 选择执行不同的分支。
双分支结构实现:
16
If x<>0 Then y=sin(x)+sqr (x*x+1)
Else y=cos(x)－x^3+3*x
End If
多分支结构
本章目录
3. If…Then…lseIf 表达式2 Then
F
语句块2
表达式 1
… T
[Else 语句块 n+1 ]
作用：打开一个信息框，等待用户选择一个按按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不返回值 MsgBox函数形式：
变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式：
MsgBox 提示[,按钮][,标题] 按钮：可选项，数值表达式是值的总和，指定显示“按钮” 的数目及形式，使用的图标样式以及缺省“按钮”是什么。
语句块
或 If <表达式> Then <语句>
表达式：关系表达式、逻辑表达式，算术表达式。 表达式值按非零为True，零为False进行判断。
该语句的作用是当表达式的值为True，执行Then后 面的语句块，否则不做任何操作。
13
上一页
下一页
单分支结构
本章目录
例：已知两个数x和y，比较它们的大小，使得x大于y。
循环次数 In(终 t 步 值 初 长值 1)
步长
21
>0 初值<终值 =1 时，可省略 <0 初值>终值 =0 死循环
上一页
下一页
For循环语句
循 环 变 量 =初 值
循环变量是否在
F
终值范围内
T
语句块
T 有 E x it F o r
F 语句块
循 环 变 量 =循 环 变 量 +步 长
本章目录
循环流程： (1) 循环变量被赋初值，它仅 被赋值一次。 (2) 判断循环变量是否在终值 内，如果是，执行循环体； 如果否，结束循环，执行 Next的下一语句。 (3) 循环变量加步长，转(2)， 继续循环
1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位 置]) 其中:
Dim strName As String * 40 strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” )
9
2. MsgBox函数和MsgBox过程 本章目录