第四章 控制结构程序设计.ppt
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
t=x x=y y=t
IF <条件> Then <语句组>
2019年8月21
感谢你的观看
12
块结构条件语句 单分支和双分支选择的块形式
x < y False
True
t=x x=y y=t
T
表达式
F
语句组1
语句组2
If <条件> Then
<语句组>
End If
2019年8月21
If <条件> Then <语句组1>
感谢你的观看
14
条件语句
a=3 b=2 if a>b then
msgbox “a大于b” Else
msgbox “a小于b” End if
2019年8月21
感谢你的观看
15
条件语句
a=3 b=2 c=1 if a>b and a>c then
msgbox “a最大” End if
2019年8月21
If Ucase(strC) >= "A" And Ucase(strC) <="Z" Then Print strC + "是字母字符"
ElseIf strC >="0" And strC <= "9" Then Print strC + "是数字字符"
Else Print strC + "是其它字符"
End If
2019年8月21
感谢你的观看
21
程序的基本组成
程序设计的一般步骤：
１分析：问题定义 ２设计：设计解题步骤－算法 ３选择与创建界面 ４编码：用程序设计语言描述－写程序 ５测试与调度：改错 ６完成文档：整理月21
感谢你的观看
•Enable: False时，框架中所有对象均 被屏蔽
框架Frame
2019年8月21
感谢你的观看
10
单行结构条件语句
T
F
表达式
语句组1
语句组2
2019年8月21
感谢你的观看
11
单行结构条件语句 If x<y Then t = x: x = y: y = t
单分支选择：
False
x<y
True
Elseif a>10 then print “a大于10，小于50”
Else print “a小于等于10”
End if
2019年8月21
感谢你的观看
18
条件语句 判断一个字符是大写字母、小写字母或者不是字母
2019年8月21
感谢你的观看
19
条件语句
Dim str as string str=“C”
psw = Text2.Text
If user ="SYL" And psw = "123456" Then MsgBox ("欢迎您登录本系统！")
Else MsgBox ("您的用户名或口令有误，请重新输入！")
End If
2019年8E月n21d Sub
感谢你的观看
25
If语句
判断某一年是否是闰年。闰年的条件是符合下面二者之一： ①能被4整除，但不能被100整除; ②能被400整除
能改成下E面ls的eIf代a码>吗=？90 And b >= 90 And c >= 90 Then If a + b +Lcab>e=l42.C85apotiroan >=="可90以A获n奖d b！>" = 90 And c >= 90 or _ Elsae=If 1a0=01A0n0dAbn=d b10=01A0n0dAcn>d=c 8>0=T8h0enThen a=pt"io不n可=获"奖可！以"获奖！" End IfElse Label4.Caption = "不可获奖！" End If End Sub
5
Contents
1 关系运算与逻辑运算
2 选择结构程序设计
选择控件 单行结构条件语句 块结构条件语句 IIf函数 If语句的嵌套
2019年8月21
感谢你的观看
6
选择控件
1
单选按钮
2
复选框
2019年8月21
感谢你的观看
7
单选按钮 OptionButton
表明从一组选项中选择一项，只能选中一项
属性
感谢你的观看
16 16
条件语句
a=3 b=2 c=1 if a>b and a>c then
msgbox “a最大” Else
msgbox “a不是最大” End if
2019年8月21
感谢你的观看
17 17
块结构条件语句
If a>100 then print “a大于100”
Elseif a>50 then print “a大于50，小于100”
2019年8月21
感谢你的观看
4
运算符的优先级
算术运算符>字符串运算符>关系运算符>逻辑运算符
^
&
由
高 -(负号)
到 *, / 低
\
Mod
+,-
无
Not
优
And
先
Or
顺
Xor
序
例：设a=4，b=3,c=2,d=1， 表达式a>b+1Or c<d And b Mod c 的值 ？
2019年8月21
感谢你的观看
等级 中等 70≤score<80
良好 80≤score<90 优 score≥90
2019年8月21
感谢你的观看
31
If语句
编写一个程序，根据用户输入的某个学生的成绩评出优、良
好、中等、及格和不及个五个等级。
2019年8月21
感谢你的观看
32
If语句
T
编写代码：
Private Sub Command1_Click() Dim score As Single Dim s As String score = Val(Text1.Text)
一回归年=365.24219天
2019年8月21
感谢你的观看
26
实验
输入一年份，判断它是否为闰年 判断标准：年份能被4整除，但不能被100整除，或者能被
400整除
2019年8月21
感谢你的观看
27
实验
任意输入三个数，求三个数种最大数和最小数
2019年8月21
感谢你的观看
28
IIf( )函数
2019年8月21
感谢你的观看
3
思考题
思考： x=6
‘当x=6时，结果为true
456=“456”
‘出错！类型不匹配
Sqr(2) ^ 2 = 2
‘False, Sqr(2) 是个近似数，有误差，所以不等
两个字符串进行比较：逐一比较每个字符的ASCII, 只有两个字符串中所有字符相同时，两字符串相等
34
If语句
T
学校对学习成绩优良的同学给予奖励。
编写代码：
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text):b = Val(Text2.Text):c = Val(Text3.Text) If a + b + c >= 285 Then Label4.Caption = "可以获奖！"
max=val(text1.text) min=val(text2.text)
min = Val(Text2.Text) If max < min Then
max<min？
F
max = min End If
T max=min
Label3.Caption = "较大值为" & max
End Sub
Label3.Caption = "较大值为" & max
IIf(user = "SYL" And psw = "123456", MsgBox("正确！"),MsgBox("错误！"))
2019年8月21
感谢你的观看
30
If语句
编写一个程序，根据用户输入的某个学生的成绩评出优、
良好、中等、及格和不及个五个等级。判断标准如下
不及格 score<60 及格 60≤score<70
第四章控制结构程序设计关系运算与逻辑运算1选择结构程序设计24选择控件单分支条件语句双分支条件语句双分支条件语句多分支条件语句if语句嵌套11关系运算符?各个关系运算符的优先级是相同的?关系运算符可以对数值字符串表达式进行比较?关系运算的结果为逻辑值?关系运算的结果为逻辑值运算符含义实例结果等于大于大于等于大于等于abcdeabrabcdeabrxy5x3zy5falsefalse22小于小于等于不等于32332331223falsetruetrue思考题思考
Caption : Option1、Option2…
Enabled Value 事件
True 为选中 False 为不选
Click
2019年8月21
感谢你的观看
8
复选框CheckBox
一组复选框，可以同时选中多个，也可以一个都不选
属性 Caption : Check1、Check2…
Visual Basic程序设计基础
感谢你的观看
2019年8月21
1
第四章 控制结构程序设计
1 关系运算与逻辑运算
2 选择结构程序设计
4
选择控件
单分支条件语句
双分支条件语句
多分支条件语句
If语句嵌套
2019年8月21
感谢你的观看
2
关系运算符
各个关系运算符的优先级是相同的 关系运算符可以对数值、字符串、表达式进行比较 关系运算的结果为逻辑值
变量=IIf( 表达式, 当条件为真的值, 当条件为假的值 )
Dim intX%, intY%, intMax% intX= 15 intY = 10 intMax = IIf( intX > intY, intX , intY) Print intMax
If intX > intY Then intMax = intX
If str>=“A”and str<=“Z”then msgbox “str是大写字母”
Else if str>=“a”and str<=“z”then msgbox “str是小写字母”
Else msgbox “str不是字母”
endif
2019年8月21
感谢你的观看
20
条件语句
已知变量strC中存放了一个字符，判断该字符是字母字符 、数字字符还是其它字符，并作相应的显示
22
If语句
输入两个数，输出较大的数。
开始
编写代码：
Private Sub Command1_Click() Dim max As Single
dim max as single dim min as single
Dim min As Single max = Val(Text1.Text)
2019年8E月n2d1 Sub
感谢你的观看
33
If语句
学校对学习成绩优良的同学给予奖励，只要满足以下条件之
一就可以获得奖励：
• 所考语文、数学和英语总分在285以上； • 每门课的成绩都在90分以上； • 语文和数学的成绩为100分，英语在80分以上。
界面设计：
2019年8月21
感谢你的观看
Value
1-Checked 为选中 0-Unchecked 为不选 2-Grayed 为禁止操作（灰色）
Alignment 事件
Click
2019年8月21
感谢你的观看
9
框架控件Frame
框架用来对控件进行分组，即把指定的控件放到框架中
•Caption : Frame1、Frame2…
2019年8月21
结束
感谢你的观看
23
If语句
编写一个程序，实现当用户输入的用户名和口令都正确时
显示"欢迎登录"的消息对话框，当用户名或口令有错误时显 示消息对话框报告错误。（假设用户名为SYL ，密码为 “123456”）
T
用户名和口
令正确吗？
显示"欢迎" 消息框
F
显示"错误" 消息框
2019年8月21
运算符 = > >= < <= <>
含义 等于 大于 大于等于 小于 小于等于 不等于
实例 "ABCDE" = "ABR" "ABCDE" > "ABR" x-y+5 >= (x-3)*z
23 < 3 "23" <= "3" "12" <> "23"
结果 False False
False True True
感谢你的观看
24
If语句
编写一个程序，实现当用户输入的用户名和口令都正确时显
示"欢迎登录"的消息对话框，当用户名或口令有错误时显示消 息对话框报告错误。
编写代码：
Private Sub Command1_Click()
Dim user As String
Dim psw As String
user = Text1.Text
If score < 60 Then s = "不及格"
ElseIf score < 70 Then s = "及格"
ElseIf score < 80 Then s = "中等"
ElseIf score < 90 Then s = "良好"
Else s = "优"
End If Text2.Text = s
Else <语句组2>
End If
感谢你的观看
13
条件语句
计算分段函数 y =
tan(x+1) + 3x2 sin x - x3 + x
If x=0 Then y =tan(x+1) + 3 * x^2
Else y = sin(x) – x^3 + x
End If
2019年8月21
(x = 0) (x ≠ 0)
Else intMax = intY
End If
2019年8月21
感谢你的观看
IF <条件> Then <语句组>
2019年8月21
感谢你的观看
12
块结构条件语句 单分支和双分支选择的块形式
x < y False
True
t=x x=y y=t
T
表达式
F
语句组1
语句组2
If <条件> Then
<语句组>
End If
2019年8月21
If <条件> Then <语句组1>
感谢你的观看
14
条件语句
a=3 b=2 if a>b then
msgbox “a大于b” Else
msgbox “a小于b” End if
2019年8月21
感谢你的观看
15
条件语句
a=3 b=2 c=1 if a>b and a>c then
msgbox “a最大” End if
2019年8月21
If Ucase(strC) >= "A" And Ucase(strC) <="Z" Then Print strC + "是字母字符"
ElseIf strC >="0" And strC <= "9" Then Print strC + "是数字字符"
Else Print strC + "是其它字符"
End If
2019年8月21
感谢你的观看
21
程序的基本组成
程序设计的一般步骤：
１分析：问题定义 ２设计：设计解题步骤－算法 ３选择与创建界面 ４编码：用程序设计语言描述－写程序 ５测试与调度：改错 ６完成文档：整理月21
感谢你的观看
•Enable: False时，框架中所有对象均 被屏蔽
框架Frame
2019年8月21
感谢你的观看
10
单行结构条件语句
T
F
表达式
语句组1
语句组2
2019年8月21
感谢你的观看
11
单行结构条件语句 If x<y Then t = x: x = y: y = t
单分支选择：
False
x<y
True
Elseif a>10 then print “a大于10，小于50”
Else print “a小于等于10”
End if
2019年8月21
感谢你的观看
18
条件语句 判断一个字符是大写字母、小写字母或者不是字母
2019年8月21
感谢你的观看
19
条件语句
Dim str as string str=“C”
psw = Text2.Text
If user ="SYL" And psw = "123456" Then MsgBox ("欢迎您登录本系统！")
Else MsgBox ("您的用户名或口令有误，请重新输入！")
End If
2019年8E月n21d Sub
感谢你的观看
25
If语句
判断某一年是否是闰年。闰年的条件是符合下面二者之一： ①能被4整除，但不能被100整除; ②能被400整除
能改成下E面ls的eIf代a码>吗=？90 And b >= 90 And c >= 90 Then If a + b +Lcab>e=l42.C85apotiroan >=="可90以A获n奖d b！>" = 90 And c >= 90 or _ Elsae=If 1a0=01A0n0dAbn=d b10=01A0n0dAcn>d=c 8>0=T8h0enThen a=pt"io不n可=获"奖可！以"获奖！" End IfElse Label4.Caption = "不可获奖！" End If End Sub
5
Contents
1 关系运算与逻辑运算
2 选择结构程序设计
选择控件 单行结构条件语句 块结构条件语句 IIf函数 If语句的嵌套
2019年8月21
感谢你的观看
6
选择控件
1
单选按钮
2
复选框
2019年8月21
感谢你的观看
7
单选按钮 OptionButton
表明从一组选项中选择一项，只能选中一项
属性
感谢你的观看
16 16
条件语句
a=3 b=2 c=1 if a>b and a>c then
msgbox “a最大” Else
msgbox “a不是最大” End if
2019年8月21
感谢你的观看
17 17
块结构条件语句
If a>100 then print “a大于100”
Elseif a>50 then print “a大于50，小于100”
2019年8月21
感谢你的观看
4
运算符的优先级
算术运算符>字符串运算符>关系运算符>逻辑运算符
^
&
由
高 -(负号)
到 *, / 低
\
Mod
+,-
无
Not
优
And
先
Or
顺
Xor
序
例：设a=4，b=3,c=2,d=1， 表达式a>b+1Or c<d And b Mod c 的值 ？
2019年8月21
感谢你的观看
等级 中等 70≤score<80
良好 80≤score<90 优 score≥90
2019年8月21
感谢你的观看
31
If语句
编写一个程序，根据用户输入的某个学生的成绩评出优、良
好、中等、及格和不及个五个等级。
2019年8月21
感谢你的观看
32
If语句
T
编写代码：
Private Sub Command1_Click() Dim score As Single Dim s As String score = Val(Text1.Text)
一回归年=365.24219天
2019年8月21
感谢你的观看
26
实验
输入一年份，判断它是否为闰年 判断标准：年份能被4整除，但不能被100整除，或者能被
400整除
2019年8月21
感谢你的观看
27
实验
任意输入三个数，求三个数种最大数和最小数
2019年8月21
感谢你的观看
28
IIf( )函数
2019年8月21
感谢你的观看
3
思考题
思考： x=6
‘当x=6时，结果为true
456=“456”
‘出错！类型不匹配
Sqr(2) ^ 2 = 2
‘False, Sqr(2) 是个近似数，有误差，所以不等
两个字符串进行比较：逐一比较每个字符的ASCII, 只有两个字符串中所有字符相同时，两字符串相等
34
If语句
T
学校对学习成绩优良的同学给予奖励。
编写代码：
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text):b = Val(Text2.Text):c = Val(Text3.Text) If a + b + c >= 285 Then Label4.Caption = "可以获奖！"
max=val(text1.text) min=val(text2.text)
min = Val(Text2.Text) If max < min Then
max<min？
F
max = min End If
T max=min
Label3.Caption = "较大值为" & max
End Sub
Label3.Caption = "较大值为" & max
IIf(user = "SYL" And psw = "123456", MsgBox("正确！"),MsgBox("错误！"))
2019年8月21
感谢你的观看
30
If语句
编写一个程序，根据用户输入的某个学生的成绩评出优、
良好、中等、及格和不及个五个等级。判断标准如下
不及格 score<60 及格 60≤score<70
第四章控制结构程序设计关系运算与逻辑运算1选择结构程序设计24选择控件单分支条件语句双分支条件语句双分支条件语句多分支条件语句if语句嵌套11关系运算符?各个关系运算符的优先级是相同的?关系运算符可以对数值字符串表达式进行比较?关系运算的结果为逻辑值?关系运算的结果为逻辑值运算符含义实例结果等于大于大于等于大于等于abcdeabrabcdeabrxy5x3zy5falsefalse22小于小于等于不等于32332331223falsetruetrue思考题思考
Caption : Option1、Option2…
Enabled Value 事件
True 为选中 False 为不选
Click
2019年8月21
感谢你的观看
8
复选框CheckBox
一组复选框，可以同时选中多个，也可以一个都不选
属性 Caption : Check1、Check2…
Visual Basic程序设计基础
感谢你的观看
2019年8月21
1
第四章 控制结构程序设计
1 关系运算与逻辑运算
2 选择结构程序设计
4
选择控件
单分支条件语句
双分支条件语句
多分支条件语句
If语句嵌套
2019年8月21
感谢你的观看
2
关系运算符
各个关系运算符的优先级是相同的 关系运算符可以对数值、字符串、表达式进行比较 关系运算的结果为逻辑值
变量=IIf( 表达式, 当条件为真的值, 当条件为假的值 )
Dim intX%, intY%, intMax% intX= 15 intY = 10 intMax = IIf( intX > intY, intX , intY) Print intMax
If intX > intY Then intMax = intX
If str>=“A”and str<=“Z”then msgbox “str是大写字母”
Else if str>=“a”and str<=“z”then msgbox “str是小写字母”
Else msgbox “str不是字母”
endif
2019年8月21
感谢你的观看
20
条件语句
已知变量strC中存放了一个字符，判断该字符是字母字符 、数字字符还是其它字符，并作相应的显示
22
If语句
输入两个数，输出较大的数。
开始
编写代码：
Private Sub Command1_Click() Dim max As Single
dim max as single dim min as single
Dim min As Single max = Val(Text1.Text)
2019年8E月n2d1 Sub
感谢你的观看
33
If语句
学校对学习成绩优良的同学给予奖励，只要满足以下条件之
一就可以获得奖励：
• 所考语文、数学和英语总分在285以上； • 每门课的成绩都在90分以上； • 语文和数学的成绩为100分，英语在80分以上。
界面设计：
2019年8月21
感谢你的观看
Value
1-Checked 为选中 0-Unchecked 为不选 2-Grayed 为禁止操作（灰色）
Alignment 事件
Click
2019年8月21
感谢你的观看
9
框架控件Frame
框架用来对控件进行分组，即把指定的控件放到框架中
•Caption : Frame1、Frame2…
2019年8月21
结束
感谢你的观看
23
If语句
编写一个程序，实现当用户输入的用户名和口令都正确时
显示"欢迎登录"的消息对话框，当用户名或口令有错误时显 示消息对话框报告错误。（假设用户名为SYL ，密码为 “123456”）
T
用户名和口
令正确吗？
显示"欢迎" 消息框
F
显示"错误" 消息框
2019年8月21
运算符 = > >= < <= <>
含义 等于 大于 大于等于 小于 小于等于 不等于
实例 "ABCDE" = "ABR" "ABCDE" > "ABR" x-y+5 >= (x-3)*z
23 < 3 "23" <= "3" "12" <> "23"
结果 False False
False True True
感谢你的观看
24
If语句
编写一个程序，实现当用户输入的用户名和口令都正确时显
示"欢迎登录"的消息对话框，当用户名或口令有错误时显示消 息对话框报告错误。
编写代码：
Private Sub Command1_Click()
Dim user As String
Dim psw As String
user = Text1.Text
If score < 60 Then s = "不及格"
ElseIf score < 70 Then s = "及格"
ElseIf score < 80 Then s = "中等"
ElseIf score < 90 Then s = "良好"
Else s = "优"
End If Text2.Text = s
Else <语句组2>
End If
感谢你的观看
13
条件语句
计算分段函数 y =
tan(x+1) + 3x2 sin x - x3 + x
If x=0 Then y =tan(x+1) + 3 * x^2
Else y = sin(x) – x^3 + x
End If
2019年8月21
(x = 0) (x ≠ 0)
Else intMax = intY
End If
2019年8月21
感谢你的观看