语言学习学习.pptx
《语言学习学习.pptx》由会员分享,可在线阅读,更多相关《语言学习学习.pptx(34页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、4.1 块If 4.1.1 4.1.1 块块If If的格式、功能的格式、功能 格式:格式:If If 条件条件 then then 语句块语句块1 1 Else Else 语句块语句块22 End IfEnd If第1页/共34页 说明:说明:(1 1)“条件条件”一般为关系表达式或逻辑表达式。一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式的值为真时,称为条件满通常把关系表达式或逻辑表达式的值为真时,称为条件满足;值为假时,称为条件不满足。反之亦然。足;值为假时,称为条件不满足。反之亦然。(2 2)语句块)语句块1 1、语句块、语句块2 2分别是分别是“条件条件”满足或不满足时,
2、满足或不满足时,处理方法的描述,可以是若干个语句。处理方法的描述,可以是若干个语句。(3 3)IfThen IfThen、ElseElse、End If End If 是是VBVB的保留字。的保留字。功能:功能:(1 1)块)块If If首先判断首先判断“条件条件”,其值为真时,执行语句块,其值为真时,执行语句块1 1;为假时执行语句块;为假时执行语句块2 2。当缺省。当缺省ElseElse中的内容时,该选择结构只对条件中的内容时,该选择结构只对条件满足的情况进行处理。执行过程如图满足的情况进行处理。执行过程如图4-14-1所示。所示。第2页/共34页第3页/共34页【例例 4.14.1】火火
3、 车车 站站 行行 李李 费费 的的 收收 费费 标标 准准 是是 50kg50kg以以 内内(包包 括括50kg50kg)0.20/kg0.20/kg,超超过过部部分分0.50/kg0.50/kg。编编写写程程序序,要要求求根根据据输输入入的的任任意意重重量,计算出应付的行李费。量,计算出应付的行李费。根据题意计算公式如下:根据题意计算公式如下:第4页/共34页第5页/共34页第6页/共34页 程序代码如下:程序代码如下:计算计算 按钮代码按钮代码 Private Sub Command1_ClickPrivate Sub Command1_Click()()Dim weight as si
4、ngleDim weight as single,pay as singlepay as single weight=Text1.Text weight=Text1.Text If weight 50 Then If weight 50 Then pay=pay=(weight-50weight-50)*0.5+50 0.5+50*0.2 0.2 Else Else pay=weight pay=weight*0.2 0.2 End If End If Text2.Text=pay Text2.Text=pay End Sub End Sub第7页/共34页 Private Sub Comma
5、nd2_Click()Text1.Text=Text2.Text=End Sub Private Sub Command3_Click()End End Sub第8页/共34页 4.1.2 4.1.2 块块If If的嵌套的嵌套 所所谓谓块块If If语语句句的的嵌嵌套套,就就是是在在语语句句块块1 1或或语语句句块块2 2中中又又包包含含块块If If语句。语句。【例例4.24.2】任意输入任意输入3 3个数,按照从大到小的顺序输出。个数,按照从大到小的顺序输出。算算法法分分析析:排排序序的的基基本本方方法法,就就是是比比较较大大小小,然然后后根根据据比比较较的的结结果果分分别别加加以以处处
6、理理。本本例例把把3 3个个数数分分别别放放在在A A,B B,C C中中,处处理理过过程程为为:若若A A B B为为真真,交交换换A A,B B的的值值;否否则则不不做做处处理理。这这样样就就保保证证了了A A B B;然然后后再再用用C C去比较。具体流程如图去比较。具体流程如图4-34-3所示。按如图所示。按如图4-44-4所示设置界面。所示设置界面。第9页/共34页第10页/共34页第11页/共34页 程序代码如下:程序代码如下:排序排序 按钮代码按钮代码 Private Sub Command1_ClickPrivate Sub Command1_Click()()Dim a As
7、 SingleDim a As Single,c As Singlec As Single,b As Single b As Single a=Text1.Text a=Text1.Text b=Text2.Text b=Text2.Text c=Text3.Text c=Text3.Text 三个文本框的数据赋值给变量三个文本框的数据赋值给变量 If a b ThenIf a b Then t=a t=a a=b a=b b=t b=t a a B B第12页/共34页 If c a Then 用C去比较 Text4.Text=c CA成立,C最大 Text5.Text=a Text6.Te
8、xt=b Else If c b Then Text4.Text=a C=90 Then If score=90 Then Text2.Text=Text2.Text=优秀优秀 ElseIf score=80 Then ElseIf score=80 Then Text2.Text=Text2.Text=良好良好 ElseIf score=70 Then ElseIf score=70 Then Text2.Text=Text2.Text=中中 第21页/共34页 ElseIf score=60 Then Text2.Text=及格 Else Text2.Text=不及格 End If End
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 语言 学习
限制150内