资源简介

(共48张PPT)
解析算法——IF语句
欢迎各位同学通过空中课堂一起来学习!
各位同学 新年好！
新学期 新气象
新起点 新希望
目录
DIRECTORY
考试要求
学习重点
学习难点
01
02
03
04
课前练习
05
课堂练习
06
课后巩固
考试要求
01
01
考试要求
1.解析算法思想 (c)
2.IF语句 (c)
学习重点
02
02
学习重点
1．熟悉掌握、运用VB的基础知识。
2．掌握赋值语句的格式和用法。
3．掌握选择结构和If语句的格式和用法。
4．掌握解析算法思想。
学习难点
03
03
学习难点
1．If语句的多种格式。
2. 学会使用If语句解决实际问题。
课前练习
04
1. 程序的三种基本结构是( )
A.选择结构、循环结构、树型结构
B.顺序结构、选择结构、循环结构
C.顺序结构、循环结构、树型结构
D.树型结构、顺序结构、选择结构
课前练习
04
2. 在程序中用到某一整型变量的数据范围为-40000至40000，则该变量类型应该说明为( )
A.Integer B.Byte C.Long D.Boolean
课前练习
04
3. 以下哪项是合法的Visual Basic变量名( )
A．9abc B．Const C. abc D. a#x
4. 如果x=-25，运行x=Abs(x)；x=Sqr(x)后，x的值是( )
A．5 B．-5 C．25 D．-25
课前练习
04
5. 表达式2^4\3的值是 ( )
A．2 B．5.3 C．5 D．1
6. 设a＝2，b＝3，则表达式 Not(a=b)的值是：( )
A． True B． False C．-1 D．1
7．下列每个控件都具有的属性是( )
A.Name B.Caption C.Font D.Interval
课前练习
04
8．将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是( )
A．n = text B．n = text2.text
C．Text2 = n D．text2.text = n
9. 下列各赋值语句，语法不正确的是( )
A．x+y=5 B．x=y<>5
C．Labell.caption =time D．x=x+y
课前练习
04
10. 下列Visual Basic程序段运行后，变量c的值为 ( )
a=5：b=10：c=a
IF b>c Then c=b
A．5 B．10 C．5和10 D. 以上都不是
课前练习
04
答案：BCCAC AABAB
课前练习
04
1. 程序的三种基本结构是( )
A.选择结构、循环结构、树型结构
B.顺序结构、选择结构、循环结构
C.顺序结构、循环结构、树型结构
D.树型结构、顺序结构、选择结构
新课讲授
B
新课讲授
通常算法中含有如下三种控制结构：顺序结构、选择结构、循环结构。
(1)顺序结构
按照顺序从上往下依次执行每条语句，顺序结构中的每条语句只执行一次。
(2)选择结构
又称分支结构，根据条件判断选择不同的分支执行：条件为真时，执行Y指向的流程线下的语句块1，否则执行N指向的流程线下的语句块2。选择结构对条件只判断一次，语句块1或语句块2中的语句也只执行其中一个。
新课讲授
(3)循环结构
对条件进行判断，当结果为真时，执行Y指向的流程线下的循环体语句，然后返回再重新判断条件，当结果为真时，再次执行循环体中的语句块，重复上述过程，直到条件不满足时，则跳出循环，执行N指向的流程线下的其他语句。
新课讲授
'总分排名
strxscj = "select * from ge1xscjb ORDER BY zf DESC"
xscjrs.Open strxscj, objcn, 1, 3
i = 1 : temp1 = 0 : mc = 1
Do While Not (xscjrs.EOF)
temp2 = xscjrs.Fields("zf")
If temp2 <> temp1 Then
temp1 = temp2
mc = i
xscjrs.Fields("mc") = mc
xscjrs.Update
Else
xscjrs.Fields("mc") = mc
xscjrs.Update
End If
i = i + 1
xscjrs.MoveNext
Loop
xscjrs.Close
新课讲授
‘倒计时部分代码
Private Sub Timer1_Timer()
h = n \ 3600
If h <= 9 Then hh = "0" & CStr(h) Else hh = CStr(h)
m = (n - h * 3600) \ 60
If m <= 9 Then mm = "0" & CStr(m) Else mm = CStr(m)
s = n - h * 3600 - m * 60
If s <= 9 Then ss = "0" & CStr(s) Else ss = CStr(s)
Label1.Caption = hh & ":" & mm & ":" & ss
n = n - 1
If n = 0 Then Timer1.Enabled = False
End Sub
2. 在程序中用到某一整型变量的数据范围为-40000至40000，则该变量类型应该说明为( )
A.Integer B.Byte C.Long D.Boolean
新课讲授
3. 以下哪项是合法的Visual Basic变量名( )
A．9abc B．Const C. abc D. a#x
新课讲授
1.VB基本数据类型
数值：整数型（Integer）、长整数型（Long）、
单精度实数型（Single）、双精度实数（Double）
字符：字符串型（String）
逻辑：逻辑型（Boolean）True、False
2.变量：是指在程序执行过程中其值可能随时发生改变的存储单元或数据。变量名由字母、数字和下划线等字符组成，但必须以字母开头，VB的保留字不能作为变量名。变量名不区分大小写字母。
变量的说明： Dim 变量名 As 变量的类型
2. 在程序中用到某一整型变量的数据范围为-40000至40000，则该变量类型应该说明为( )
A.Integer B.Byte C.Long D.Boolean
新课讲授
C
3. 以下哪项是合法的Visual Basic变量名( )
A．9abc B．Const C. abc D. a#x
C
4. 如果x=-25，运行x=Abs(x)；x=Sqr(x)后，x的值是( )
A．5 B．-5 C．25 D．-25
新课讲授
5. 表达式2^4\3的值是 ( )
A．2 B．5.3 C．5 D．1
6. 设a＝2，b＝3，则表达式 Not(a=b)的值是：( )
A． True B． False C．-1 D．1
新课讲授
1.VB中的常用标准函数
Abs、Int、Sqr、Val、Str、Asc、Chr、Len、Mid、Rnd
如： Int(x*100+0.5)/100
Mid(“330185200101014612”,7,8)
int(rnd*10)+1
2.VB算术运算：乘幂（^）、取负（-）、乘法（*）、实数除法（/）、
整数除法（\）、求余数（Mod）、
加法（+）、减法（-）、字符连接（+ 或 &）
3.VB关系运算：相等（=）、不相等（<>）、小于（<）、大于（>）、
小于等于（<=）、大于等于（>=）
4.VB逻辑运算：非（Not）、与（And）、或（Or）
注意：关系运算和逻辑运算的结果为True和False
4. 如果x=-25，运行x=Abs(x)；x=Sqr(x)后，x的值是( )
A．5 B．-5 C．25 D．-25
新课讲授
A
5. 表达式2^4\3的值是 ( )
A．2 B．5.3 C．5 D．1
C
6. 设a＝2，b＝3，则表达式 Not(a=b)的值是：( )
A． True B． False C．-1 D．1
A
7．下列每个控件都具有的属性是( )
A.Name B.Caption
C.Font D.Interval
新课讲授
A
9. 下列各赋值语句，语法不正确的是( )
A．x+y=5 B．x=y<>5
C．Label1.caption =time D．x=x+y
新课讲授
8．将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是( )
A．n = text B．n = text2.text
C．Text2 = n D．text2.text = n
新课讲授
赋值语句
(1)赋值语句的作用是把“=”右边的表达式的计算结果存储到"="左边的变量或某个对象的指定的属性中。
常见格式：变量名=表达式 或 对象名.属性名=表达式
如：a=b*c+d Text1.text=str(a+b)
(2)要改变Label（标签）、CommandButton（命令按钮）、Form（窗体）对象的上显示的内容，可以修改其Caption属性，属性赋值语句格式为：对象名.Caption=表达式
如：Form1.Caption=“倒计时”
新课讲授
赋值语句
(3)要改变TextBox（文本框）对象的上显示的内容，可以修改其Text属性，属性赋值语句
格式为：对象名.Text=表达式
(4)要在List（列表框）对象的上添加内容，可以通过其方法Addltem来实现
其代码格式为：对象名.AddItem 表达式
新课讲授
赋值语句
(5)赋值语句右边的数据类型和左边的类型不一致，则需要将右边的转换成和左边一致后再赋值给左边。根据赋值等号两边数据类型，来确定右边是否要转换。
数值型= Val（字符串型）
字符串型= Str（数值型）
9. 下列各赋值语句，语法不正确的是( )
A．x+y=5 B．x=y<>5
C．Label1.caption =time D．x=x+y
新课讲授
A
8．将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是( )
A．n = text B．n = text2.text
C．Text2 = n D．text2.text = n
B
10. 下列Visual Basic程序段运行后，变量c的值为 ( )
a=5：b=10：c=a
IF b>c Then c=b
A．5 B．10 C．5和10 D. 以上都不是
新课讲授
新课讲授
选择结构
选择结构也称为分支结构。VB选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。
(1)行If语句
格式1：If 条件表达式 Then 语句
条件成立时执行语句，否则不执行
格式2：If 条件表达式 Then 语句1 Else 语句2
条件成立时执行语句1，否则执行语句2
10. 下列Visual Basic程序段运行后，变量c的值为 ( )
a=5：b=10：c=a
IF b>c Then c=b
A．5 B．10 C．5和10 D. 以上都不是
新课讲授
B
1.在VB中，执行IF 4*(6-3)>10 Then a=1 Else a=0语句后，变量a的值为( )
A．0 B．1 C．10 D．不一定
2. 以下条件语句错误的是( )
A．If x Then y = y + 1 B．If x = 0 Then y = 0
C．If x > 0 Then y = 1: y=0 D．If x > y Then y=1 End If
课堂练习
B
D
新课讲授
(2)块If语句
格式1： If 条件表达式 Then 语句块 EndIF 条件成立时执行语句，否则不执行 格式2：
If 条件表达式 Then
语句块1
Else
语句块2
EndIF
条件成立时执行语句块1，否则执行语句块2
新课讲授
(2)块If语句
格式3： If 条件表达式1 Then 语句块1 ElseIF 条件表达式2 Then 语句块2 Else 语句块0 EndIF 条件1成立时执行语句块1，条件1不成立时才判断条件2，条件2成立执行语句块2，条件2也不成立则执行语句块0。 格式4：
If 条件表达式 Then
语句块1
ElseIF 条件表达式2 Then
语句块2
……
Else
语句块0
EndIF
条件1成立时执行语句块1，条件1不成立
时才判断条件2，条件2成立执行语句块2……以上条件都不成立，则执行语句块0。
3.有如下Visual Basic程序段：
a=12
If a<4 Then
a=a-2
Else
a=a+2
End if
该程序段运行后，变量a的值是( )
A.8 B.10 C.12 D.14
课堂练习
D
新课讲授—动手实践
编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg)和身高（单位：m)， 单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方)，如果BMI<18.5,则在标签Label5 中显示“体重过轻！”；如果18. 5<=BMI<=25,则在标签Label5中显示“正常！”；如果BMI>25,则在标签Label5 中显示“体重过重！”。运行效果如图所示。
(1)若要删除标签Label5中显示的内容“Label5”，可在其属性窗口中将__________属性的属性值删除。
新课讲授—动手实践
Private Sub Command1_Click()
Dim h As Single, m As Single, bmi As Single
Dim x As String
______________________ ‘输入体重
h = Val(Text2.Text)
______________________ ‘计算BMI
If ___________Then
x =____________ ‘体重过轻！
ElseIf Then
x =____________ ‘正常！
Else
x=_____________ ‘体重过重！
End If
______________________ ‘输出x
End Sub
编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg)和身高（单位：m)， 单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方)，如果BMI<18.5,则在标签Label5 中显示“体重过轻！”；如果18. 5<=BMI<=25,则在标签Label5中显示“正常！”；如果BMI>25,则在标签Label5 中显示“体重过重！”。
新课讲授—动手实践
Private Sub Command1_Click()
Dim h As Single, m As Single, bmi As Single
Dim x As String
m = Val(Text1.Text) ‘输入体重
h = Val(Text2.Text)
Bmi=m/h^2 或 Bmi=m/（h*h) ‘计算BMI
If bmi<18.5 Then
x =“体重过轻！” ‘体重过轻！
ElseIf bmi<=25 Then
x =“正常！” ‘正常！
Else
x=“体重过重！” ‘体重过重！
End If
Label5. Caption = x ‘输出x
End Sub
编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg)和身高（单位：m)， 单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方)，如果BMI<18.5,则在标签Label5 中显示“体重过轻！”；如果18. 5<=BMI<=25,则在标签Label5中显示“正常！”；如果BMI>25,则在标签Label5 中显示“体重过重！”。
IF语句的实际应用
解析算法是指用解析的方法找出表示问题的前提条件与所求结果之间关系的数学表达式，并通过表达式的计算来实现问题的求解。
如：2个电阻并联电阻值的计算，出租车费用计算、超市打折促销费用计算等。
火车托运行李，要根据行李的重量按下列标准收费：
若不超过50千克，按每千克0.35元收费,若超过50千克,超过部分则按每千克0.5元收费。输入托运行李的重量,计算并输出托运行李的费用.
下面程序若用于实现上述目标，将划线处的语句填充完整。
课堂练习
Sub command1_click()
Dim x As Double
x=val(Text1.Text)
If ① Then
Text2.Text= ② '不超过50千克
Else
③____
End If
End Sub
火车托运行李，要根据行李的重量按下列标准收费：
若不超过50千克，按每千克0.35元收费,若超过50千克,超过部分则按每千克0.5元收费。输入托运行李的重量,计算并输出托运行李的费用.
下面程序若用于实现上述目标，将划线处的语句填充完整。
课堂练习
Sub command1_click()
Dim x As Double
x=val(Text1.Text)
If x<=50 Then
Text2.Text=str(x*0.35)
Else
Text2.Text=str(50*0.35+(x-50)*0.5)
End If
End Sub
PPT模板下载：www./moban/ 行业PPT模板：www./hangye/
节日PPT模板：www./jieri/ PPT素材下载：www./sucai/
PPT背景图片：www./beijing/ PPT图表下载：www./tubiao/
优秀PPT下载：www./xiazai/ PPT教程： www./powerpoint/
Word教程： www./word/ Excel教程：www./excel/
资料下载：www./ziliao/ PPT课件下载：www./kejian/
范文下载：www./fanwen/ 试卷下载：www./shiti/
教案下载：www./jiaoan/ PPT论坛：www.
谢谢！

展开更多......

收起↑