最新VB程序基本控制结构课件ppt

格式：ppt
大小：688.00 KB
文档页数：74

下载文档原格式

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控件进行套接字编程，包括创建套接字、绑定地址和端口、监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和调试问题，如处理网络断开、数据丢失等异常情况，以及使用日志记录和调试工具进行问题排查。

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

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

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)

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

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过程本章目录