vb考试复习if语句PPT课件
合集下载
vb课件If语句
VB程序结构及基本语句 第二节
选择结构
If语句
• 11、If变…量T的he赋n值语句(单分支结构) If<表达式> Then <语句块>
End if 或 If<表达式> Then <语句块>
执行过程流程图：
• 1、变量的赋值
表达 式
true
语句块
false
If语句
2 If…Then…Else 语句(双分支结构) If<•表1、达变式量>的赋Th值en <语句块1>
1、变量如何赋值 • 1、[变le量t]变的赋量值名=表达式
[对象名].属性名=表达式 例：Form1.width=300
n=2
n = n +1
x=1:y=2:z=3
2、程序如何进行 • 1、顺变序量的执赋行值，执行完当前语句
后，在执行下一条，依次执 行。 例：a%=22
b!=22 c$=asdfad Print“a=”;a,“b=”;b print “c=”;c
… ElseIf<表达式n> then <语句块n>
Else <语句块n+1>
End If
执行过程流程图：
• 表1达、式变量的赋fa值lse 1
表达式
true
2
true
false
表达式 n
true
语句块1
语句块2
语句块n
false 语句块n+1
Select Case 语句(多分支结构)
Select Case 测试表达式 Ca•se1、表变达量式的1赋值 <语句块1> Case 表达式2 <语句块2>
if条件句教学课件pptx
根据程序逻辑，使用if条件句 实现条件判断，并根据条件执
行相应的代码块。
添加注释和说明
为程序添加必要的注释和说明， 以便他人理解和维护程序。
程序调试与运行
检查语法错误
检查程序中是否存在语 法错误，如拼写错误、
缺少括号等。
调试程序
使用调试工具或打印语 句等方法，对程序进行 调试，找出程序中的错
误和问题。
04
不断学习和探索新的编 程技术和方法，提高编 程效率和质量。
THANKS
感谢观看
REPORTING
运行程序
在调试无误后，运行程 序并观察程序的输出结
果是否符合预期。
修改和完善程序
根据运行结果和反馈， 对程序进行修改和完善， 以提高程序的正确性和
效率。
程序优化与改进建议
优化算法
根据程序的具体需求和场景，选 择合适的算法和数据结构，以提
高程序的执行效率。
减少重复代码
对程序中的重复代码进行提取和 封装，以减少代码冗余和提高代 码的可维护性。
if条件句教学课件 pptx
REPORTING
• 引言 • if条件句基本概念 • if条件句在编程中的应用 • if条件句语法详解 • if条件句实例分析 • if条件句编程实践 • 总结与展望
目录
PART 01
引言
REPORTING
目的和背景
帮助学生掌握if条件 句的基本用法和规则
培养学生的逻辑思维 和判断能力
单分支if条件句
01
只有一个if语句和一个代码块，根据条件的真假执行相应的操作。
双分支if-else条件句
02
包含一个if语句和一个else语句，根据条件的真假选择不同的代
行相应的代码块。
添加注释和说明
为程序添加必要的注释和说明， 以便他人理解和维护程序。
程序调试与运行
检查语法错误
检查程序中是否存在语 法错误，如拼写错误、
缺少括号等。
调试程序
使用调试工具或打印语 句等方法，对程序进行 调试，找出程序中的错
误和问题。
04
不断学习和探索新的编 程技术和方法，提高编 程效率和质量。
THANKS
感谢观看
REPORTING
运行程序
在调试无误后，运行程 序并观察程序的输出结
果是否符合预期。
修改和完善程序
根据运行结果和反馈， 对程序进行修改和完善， 以提高程序的正确性和
效率。
程序优化与改进建议
优化算法
根据程序的具体需求和场景，选 择合适的算法和数据结构，以提
高程序的执行效率。
减少重复代码
对程序中的重复代码进行提取和 封装，以减少代码冗余和提高代 码的可维护性。
if条件句教学课件 pptx
REPORTING
• 引言 • if条件句基本概念 • if条件句在编程中的应用 • if条件句语法详解 • if条件句实例分析 • if条件句编程实践 • 总结与展望
目录
PART 01
引言
REPORTING
目的和背景
帮助学生掌握if条件 句的基本用法和规则
培养学生的逻辑思维 和判断能力
单分支if条件句
01
只有一个if语句和一个代码块，根据条件的真假执行相应的操作。
双分支if-else条件句
02
包含一个if语句和一个else语句，根据条件的真假选择不同的代
VB程序设计第2版教学课件47块If语句实现嵌套
表达式真？ 真(非0)(0)
语句块1
语句块2
语句块3
End If
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
语句组1
语句组2
不成立(False)
语句组3
2
块If语句嵌套格式
【说明】
【示例】
① 每一个块结构都要完整，必须以If开 始，以End If结束。 ② 内层嵌套的块结构中除了满足该层规 定的条件外，还必须满足外层结构中相 应位置的条件。
界面设计
3
块If语句嵌套应用
Private Sub Command1_Click()
代码设计
Dim a As Integer, b As Integer, c As Integer, min As Integer
a = Val(Text1.Text)：b = Val(Text2.Text)： c = Val(Text3.Text)
依据道路交通安全违法行为的严重程度，一次记分的分值 为:12分、6分、3分、2分、1分五种
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
不成立(False)
语句组1
语句组2
语句组3
if语句嵌套格式
【格式】
if (表达式1） 语句块1；
else if (表达式2) 语句块2； else ……
Else Text1.Text = Str(x) Label5.ForeColor = vbRed
End If End Sub
机动车驾驶人在一个记分周期内未达到12分的，且没有违 法未处理的记录(一般指C1)，在下一个记分周期开始时将会 将原先的记分清0。如果有违法未处理的记录的情况，那么 此次记录所扣的分值将积累到下一年，直到违法记录消除。
VB知识点复习总结ppt课件
23
Private Sub Form_Click() Dim i%, s&, x& x=1 For i = 1 To 30 s=s+x x=2*x Next Print "富翁给陌生人的钱为"; x / 1000000; "万元" Print "陌生人给富翁的钱为"; 30 * 10; "万元" End Sub
26
Private Sub Command2_Click() Dim s(5 To 9) As Integer, i%, k% Picture2.Cls For i = 1 To 20 k = a(i) \ 10 Select Case k Case 0 To 5
s(5) = s(5) + 1 Case 9 To 10
x mod 10, x\10 mod 10 ,x\100 mod 10, x\1000
满足条件求个数
z=z+1
满足条件求数的和
sum=sum+x
12
循环结构 • 计数型循环 （循环次数已知）
for 循环变量=初值 to 终值 [ step 步长 ] 语句 …..
next 循环变量 其中 [ step 步长 ] 可缺省，则步长是1
关于选择结构的用法
10
➢ 多分支结构 IF 条件1 THEN 语句1
ELSEIF 条件2 THEN 语句2
ELSEIF 条件3 THEN 语句3
……. ELSE
语句N END IF
11
常见的条件
倍数关系
if x mod 5=0
个位是3的数字
if x mod10=3
假设X是一个四位数，其个、十、百、千位上的数据提取方法为：
Private Sub Form_Click() Dim i%, s&, x& x=1 For i = 1 To 30 s=s+x x=2*x Next Print "富翁给陌生人的钱为"; x / 1000000; "万元" Print "陌生人给富翁的钱为"; 30 * 10; "万元" End Sub
26
Private Sub Command2_Click() Dim s(5 To 9) As Integer, i%, k% Picture2.Cls For i = 1 To 20 k = a(i) \ 10 Select Case k Case 0 To 5
s(5) = s(5) + 1 Case 9 To 10
x mod 10, x\10 mod 10 ,x\100 mod 10, x\1000
满足条件求个数
z=z+1
满足条件求数的和
sum=sum+x
12
循环结构 • 计数型循环 （循环次数已知）
for 循环变量=初值 to 终值 [ step 步长 ] 语句 …..
next 循环变量 其中 [ step 步长 ] 可缺省，则步长是1
关于选择结构的用法
10
➢ 多分支结构 IF 条件1 THEN 语句1
ELSEIF 条件2 THEN 语句2
ELSEIF 条件3 THEN 语句3
……. ELSE
语句N END IF
11
常见的条件
倍数关系
if x mod 5=0
个位是3的数字
if x mod10=3
假设X是一个四位数，其个、十、百、千位上的数据提取方法为：
大学vb 第3章 选择结构(If语句)
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
未超
End If
语句应用
问题3：希望程序给出重、轻和标准三种提示 。
If BMI > 23 Then
超重
ElseIf
Else BMI>=19
Then
标准 偏轻
End If
演示
……
ElseIf 温暖 Then 挤挤眼
跺跺脚
Else
伸伸腰 End If
语句应用（体重测试）
体重指数BMI 10000* 体重公斤 身高厘米
2
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题1：希望程序给出超重的提示 。
If BMI > 23 Then 超重
End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题2：希望程序给出超重和未超两种提示 。 If BMI > 23 Then 超重 Else Else If BMI <= 23 Then 未超 超重 End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
If 语句：
单分支（一种执行结果） 双分支（两种执行结果选一） 多分支（多种执行结果选一）
下次课内容：
3.4 分支（选择）结构
实验作业：
实验作业5
如果 当前输入的密码=系统保存的密码 那么 登录成功 如果 当前输入的密码<>系统保存的密码 那么 重新登录
数学中比较的例子： 分段函数
未超
End If
语句应用
问题3：希望程序给出重、轻和标准三种提示 。
If BMI > 23 Then
超重
ElseIf
Else BMI>=19
Then
标准 偏轻
End If
演示
……
ElseIf 温暖 Then 挤挤眼
跺跺脚
Else
伸伸腰 End If
语句应用（体重测试）
体重指数BMI 10000* 体重公斤 身高厘米
2
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题1：希望程序给出超重的提示 。
If BMI > 23 Then 超重
End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题2：希望程序给出超重和未超两种提示 。 If BMI > 23 Then 超重 Else Else If BMI <= 23 Then 未超 超重 End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
If 语句：
单分支（一种执行结果） 双分支（两种执行结果选一） 多分支（多种执行结果选一）
下次课内容：
3.4 分支（选择）结构
实验作业：
实验作业5
如果 当前输入的密码=系统保存的密码 那么 登录成功 如果 当前输入的密码<>系统保存的密码 那么 重新登录
数学中比较的例子： 分段函数
if-的用法PPT课件
1. If they had started earlier，they would have arrived in time． 要是他们早些有时可省略，然后将主 语与所用的限定动词(尤其是were，had，should) 倒置。
1. Should it (=if it should)be necessary，I will go. 倘若有必要，我会去的。 2. Were I(=if I were) in your place，I would do the same. 如果我处于你的位置，我也会这样干的5
C 虽引导宾语从句，但为了强调宾语部分，也
可把从句放在句首，此时只用whether不用if。 Whether he will come I am not sure. 他是不是来我拿不准。
D 从句作介词宾语时只用whether不用if。
It depends on whether it will be fine.那 得看是不是晴天。
四、if引导时间状语从句，当if做“当”或 “无论何时”解而不含有条件之义时，if从句 中的时态与主句中的时态相同。
1. If you mix yellow and blue，you get green． 你将黄色与蓝色混合，便会得到绿色。 2. If she wants the servant，she rings the bell. 每当她需要仆人时，她便按铃。
A. too many B. many too C. too much D. much too
10. I’ll give the book to him if he _B__ here next Sunday.
E 作discuss等动词的宾语时，用whether不
用if。
1. Should it (=if it should)be necessary，I will go. 倘若有必要，我会去的。 2. Were I(=if I were) in your place，I would do the same. 如果我处于你的位置，我也会这样干的5
C 虽引导宾语从句，但为了强调宾语部分，也
可把从句放在句首，此时只用whether不用if。 Whether he will come I am not sure. 他是不是来我拿不准。
D 从句作介词宾语时只用whether不用if。
It depends on whether it will be fine.那 得看是不是晴天。
四、if引导时间状语从句，当if做“当”或 “无论何时”解而不含有条件之义时，if从句 中的时态与主句中的时态相同。
1. If you mix yellow and blue，you get green． 你将黄色与蓝色混合，便会得到绿色。 2. If she wants the servant，she rings the bell. 每当她需要仆人时，她便按铃。
A. too many B. many too C. too much D. much too
10. I’ll give the book to him if he _B__ here next Sunday.
E 作discuss等动词的宾语时，用whether不
用if。
VB程序设计课件第6讲IF语句
IF语句的常见应用场景
IF语句在程序开发中有着广泛的应用。常见的应用场景包括输入验证、条件 判断、循环控制以及错误处理等。
编写高效的IF语句程序
为了编写高效的IF语句程序，我们可以使用简洁的逻辑和最小化的代码，避免冗余和重复的判断，提高程序执 行效率。
IF语句与其他控制语句的比较 与应用
除了IF语句，还有其他控制语句如SWITCH、FOR和WHILE等。了解它们之 间的区别和适用场景，可以根据实际需求选择最合适的控制语句。
实际案例：使用IF语句设计计 算器程序
我们可以利用IF语句设计一个简单的计算器程序，根据用户输入的运算符和 操作数，实现基本的数学运算功能。
实际案例：使用IF语句设计游 戏程序
使用IF语句可以实现游戏中的条件判断和逻辑操作。通过IF语句，我们可以实 现游戏规则、关卡切换、角色互动等功能。
实际案例：使用IF语句设计数 据库查询程序
数据库查询程序是常见的应用场景之一。通过IF语句，我们可以根据用户的 查询条件，从数据库中获取相应的数据。
避免IF语句的滥用
IF语句虽然强大，但滥用IF语句会导致代码的复杂性和可读性降低。我们需要 遵循简洁和清晰的编程原则，避免不必要的IF语句。
IF语句的优缺点
IF语句的优点是灵活性和可读性高，可以根据不同的条件执行不同的代码块。 缺点是嵌套层级过多时可读性变差，效率有一定影响。
If 条件 Then 执行代码块 End If
为什么需要IF语句？
IF语句可以使程序根据不同的条件采取不同的行动，从而实现灵活的控制流 程。它为程序提供了判断和决策的能力，增加了程序的逻辑性和实用性。
IF语句的执行流程
当程序遇到IF语句时，首先评估条件表达式的真假。如果条件为真，则执行IF代码块；否则，跳过IF代码块， 继续执行下一个语句。
VB课件
F
使用ElseIF: x=Val(txtX.Text) If x>=0 Then y=1+x ElseIf x>=-1Then y=1-2x Else y=1-3x End If TxtY.Text=y
x>=-1？ T y 1-2x
y 1-3x
输出y
二、Select Case语句 语句
条件1 条件2 程序流程图 A1块 A1块
ElseIf <条件 条件3> Then 条件 [<语句序列 语句序列3>] 语句序列
…… [Else [其他语句序列 其他语句序列]] 其他语句序列 End If
1+x (x>=0) 例子： y= 1-2x (-1=<x<0) 1-3x (x<-1)
输入x
x>=0？ T y 1+x
F
x=Val(txtX.Text) If x>=0 Then y=1+x Else If x>=-1 Then y=1-2x Else y=1-3x End If End If TxtY.Text=y
第四章、选择结构程序设计 第四章、 一、IF语句 语句
1.一般格式 一般格式 语法格式 : 单行条件判断： 单行条件判断： If <条件 Then [<语句序列 条件> 语句序列1>] [Else <语句序列 语句序列2>] 条件 语句序列 语句序列 块结构： 块结构： If <条件 Then 条件> 条件 [<语句序列 语句序列1>] 语句序列 [Else [<语句序列 语句序列2>]] 语句序列 End If
例子：y=
1+x (x>=0) 1-2x (-1=<x<0) 1-3x (x<-1)
使用ElseIF: x=Val(txtX.Text) If x>=0 Then y=1+x ElseIf x>=-1Then y=1-2x Else y=1-3x End If TxtY.Text=y
x>=-1？ T y 1-2x
y 1-3x
输出y
二、Select Case语句 语句
条件1 条件2 程序流程图 A1块 A1块
ElseIf <条件 条件3> Then 条件 [<语句序列 语句序列3>] 语句序列
…… [Else [其他语句序列 其他语句序列]] 其他语句序列 End If
1+x (x>=0) 例子： y= 1-2x (-1=<x<0) 1-3x (x<-1)
输入x
x>=0？ T y 1+x
F
x=Val(txtX.Text) If x>=0 Then y=1+x Else If x>=-1 Then y=1-2x Else y=1-3x End If End If TxtY.Text=y
第四章、选择结构程序设计 第四章、 一、IF语句 语句
1.一般格式 一般格式 语法格式 : 单行条件判断： 单行条件判断： If <条件 Then [<语句序列 条件> 语句序列1>] [Else <语句序列 语句序列2>] 条件 语句序列 语句序列 块结构： 块结构： If <条件 Then 条件> 条件 [<语句序列 语句序列1>] 语句序列 [Else [<语句序列 语句序列2>]] 语句序列 End If
例子：y=
1+x (x>=0) 1-2x (-1=<x<0) 1-3x (x<-1)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2020/10/13
条件1
true
语句块1
false
条件2
true
语句块2
false
语句块3
后续语句
If…elseif语句流程图
8
选择结构之一IF结构
使用IF结构注意:
▪养成良好的语句书写缩进 风格。
▪每个IF必须要有一个END IF与之配对（注意if …elseif 结构中的情况）
▪每一个END If只与前面最 近的还没有与其它END IF 配对的IF配对。
x=val(inputbox(“输入X”,”计算分段函数的值”))
if x<=5 then text1.text=str(1-x*x) else text1.text=str((x-5)^0.25)
End sub
行IF语句格式：if <条件> then <语句1> [else <语句2>]
2020/10/13
Msgbox函数与Inputbox函数 a) Inputbox函数用于让用户输入数据,返回用户输入在
数据。返回的数据是字符串类型。 语句格式: <变量名>=inputbox([<提示>][,<标题>[,<默认值>]])
s$=inputbox(“input name”,”hello”,”world”)
end if form1.print “欢迎使用VB” End sub
true 条件1 false
语句块语句块3
后续语句
IF语句嵌套流程图
2020/10/13
7
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
9
谢谢您的指导
THANK YOU FOR YOUR GUIDANCE.
感谢阅读！为了方便学习和使用，本文档的内容可以在下载后随意修改，调整和打印。欢迎下载！
汇报人：XXXX 日期：20XX年XX月XX日
10
3
选择结构之一IF结构
’实例 p54例3-2
Private sub form_click()
true
dim x as single, y as single
dim temp as single x=val(text1.text)
语句1
y=val(text2.text)
if x<y then temp=y : y=x :x=temp
后续语句
End if
<后续语句>
2020/10/13
IF语句嵌套流程图
6
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
if nflag=0 then form1.forecolor=vbred nflag=1
else if nflag=1 then form1.forecolor=vbgreen nflag=2 else form1.forecolor=vbblue nflag=0 end if
<语句块1> Else
<语句块2> falseEnd if
<后续语句> 语句2
2020/10/13
后续语句
5
选择结构之一IF结构
块IF语句嵌套格式: If <条件1> then
<语句块1> Else
if <条件2> then <语句块2>
else <语句块3>
end if
条件1
语句块1
条件2 语句块2 语句块3
form1.forecolor=vbred
nflag=1
else
form1.fontname=“楷体_GB2312”
form1.forecolor=vbgreen
nflag=0 end if
True 条件
form1.print “欢迎使用VB”
End sub
语句1
块IF语句格式: If <条件> then
2020/10/13
Private sub form_click() Dim x as single,y as single X=val(inputbox(“please input x”)) If x>=1 then If x>3 then Y=x+3 Else Y=x^2 End if Else If x>0 then Y=sqr(x) Else Y=0 End if End if Print “y=”;y End sub
if nflag=0 then form1.forecolor=vbred nflag=1
elseif nflag=1 then form1.forecolor=vbgreen nflag=2
else form1.forecolor=vbblue nflag=0
end if form1.print “欢迎使用VB” End sub
2020/10/13
1
3种基本的控制结构
Sub form_click() Dim k As Byte, m As Byte, n As Byte k = 12 m=k+2 n=m*2 Print n
End Sub
顺序结构 语句1 语句2
True
选择结构 条件 false
语句1
语句2
后续语句
循环结构
label1.caption=“x=”+str(x)+” y=”+str(y)
End sub
条件 false
后续语句
2020/10/13
4
选择结构之一IF结构
Dim nflag as integer
Private sub form_click()
if nflag=0 then
form1.fontname=“黑体”
条件 false true
循环体
2020/10/13
2
选择结构之一IF结构
选择结构功能：根据所给定的 条件成立与否，来决定从多个 分支中选择执行某一个分支的 相应操作。
True 条件 语句1
false
语句2
p53例3-1 Private sub command1_click()
后续语句
dim x as single
age=val(inputbox(“input age”,”age”,”25”)) b) Msgbox函数(可以有返回值,也可以没有) 格式一： msgbox <提示>[,<对话框类型>[,<标题>]] Call msgbox (<提示>[,<对话框类型>[,<标题>]]) 格式二： <变量>= msgbox (<提示>[,<对话框类型>[,<标题>]])
条件1
true
语句块1
false
条件2
true
语句块2
false
语句块3
后续语句
If…elseif语句流程图
8
选择结构之一IF结构
使用IF结构注意:
▪养成良好的语句书写缩进 风格。
▪每个IF必须要有一个END IF与之配对（注意if …elseif 结构中的情况）
▪每一个END If只与前面最 近的还没有与其它END IF 配对的IF配对。
x=val(inputbox(“输入X”,”计算分段函数的值”))
if x<=5 then text1.text=str(1-x*x) else text1.text=str((x-5)^0.25)
End sub
行IF语句格式：if <条件> then <语句1> [else <语句2>]
2020/10/13
Msgbox函数与Inputbox函数 a) Inputbox函数用于让用户输入数据,返回用户输入在
数据。返回的数据是字符串类型。 语句格式: <变量名>=inputbox([<提示>][,<标题>[,<默认值>]])
s$=inputbox(“input name”,”hello”,”world”)
end if form1.print “欢迎使用VB” End sub
true 条件1 false
语句块语句块3
后续语句
IF语句嵌套流程图
2020/10/13
7
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
9
谢谢您的指导
THANK YOU FOR YOUR GUIDANCE.
感谢阅读！为了方便学习和使用，本文档的内容可以在下载后随意修改，调整和打印。欢迎下载！
汇报人：XXXX 日期：20XX年XX月XX日
10
3
选择结构之一IF结构
’实例 p54例3-2
Private sub form_click()
true
dim x as single, y as single
dim temp as single x=val(text1.text)
语句1
y=val(text2.text)
if x<y then temp=y : y=x :x=temp
后续语句
End if
<后续语句>
2020/10/13
IF语句嵌套流程图
6
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
if nflag=0 then form1.forecolor=vbred nflag=1
else if nflag=1 then form1.forecolor=vbgreen nflag=2 else form1.forecolor=vbblue nflag=0 end if
<语句块1> Else
<语句块2> falseEnd if
<后续语句> 语句2
2020/10/13
后续语句
5
选择结构之一IF结构
块IF语句嵌套格式: If <条件1> then
<语句块1> Else
if <条件2> then <语句块2>
else <语句块3>
end if
条件1
语句块1
条件2 语句块2 语句块3
form1.forecolor=vbred
nflag=1
else
form1.fontname=“楷体_GB2312”
form1.forecolor=vbgreen
nflag=0 end if
True 条件
form1.print “欢迎使用VB”
End sub
语句1
块IF语句格式: If <条件> then
2020/10/13
Private sub form_click() Dim x as single,y as single X=val(inputbox(“please input x”)) If x>=1 then If x>3 then Y=x+3 Else Y=x^2 End if Else If x>0 then Y=sqr(x) Else Y=0 End if End if Print “y=”;y End sub
if nflag=0 then form1.forecolor=vbred nflag=1
elseif nflag=1 then form1.forecolor=vbgreen nflag=2
else form1.forecolor=vbblue nflag=0
end if form1.print “欢迎使用VB” End sub
2020/10/13
1
3种基本的控制结构
Sub form_click() Dim k As Byte, m As Byte, n As Byte k = 12 m=k+2 n=m*2 Print n
End Sub
顺序结构 语句1 语句2
True
选择结构 条件 false
语句1
语句2
后续语句
循环结构
label1.caption=“x=”+str(x)+” y=”+str(y)
End sub
条件 false
后续语句
2020/10/13
4
选择结构之一IF结构
Dim nflag as integer
Private sub form_click()
if nflag=0 then
form1.fontname=“黑体”
条件 false true
循环体
2020/10/13
2
选择结构之一IF结构
选择结构功能：根据所给定的 条件成立与否，来决定从多个 分支中选择执行某一个分支的 相应操作。
True 条件 语句1
false
语句2
p53例3-1 Private sub command1_click()
后续语句
dim x as single
age=val(inputbox(“input age”,”age”,”25”)) b) Msgbox函数(可以有返回值,也可以没有) 格式一： msgbox <提示>[,<对话框类型>[,<标题>]] Call msgbox (<提示>[,<对话框类型>[,<标题>]]) 格式二： <变量>= msgbox (<提示>[,<对话框类型>[,<标题>]])