1、7.1 If语句语句vIfIf语句可以分为如下几类：语句可以分为如下几类：If语句语句IfThen结构结构IIf函数函数多分支多分支If结构结构IfThenElseIf结构结构If嵌套嵌套IfThenElse结构结构 IfThenIfThen结构结构 语法格式：语法格式：功能：功能：如果表达式的值为真（如果表达式的值为真（TrueTrue），执行），执行ThenThen后的语句块内容；否后的语句块内容；否则不执行语句块内容。则不执行语句块内容。说明：说明：表达式可以是：表达式可以是：关系表达式关系表达式、逻辑表达式逻辑表达式、算术表达式算术表达式。若为算。若为算术表达式，值为术表达式，值为0
2、0则为假，非则为假，非0 0则为真。则为真。如果是单行如果是单行IfIf格式，所有的代码必须写在同一行中，绝对不能换格式，所有的代码必须写在同一行中，绝对不能换行。如果是块行。如果是块IfIf语句，各语句块必须独占一行，语句，各语句块必须独占一行，End IfEnd If不能省略。不能省略。语句块若是一条语句，可用单行语句块若是一条语句，可用单行IfIf结构；为多条语句，则采用块结构；为多条语句，则采用块IfIf结构较好。当然也可以采用单行结构较好。当然也可以采用单行IfIf格式，这时各语句必须在同格式，这时各语句必须在同一行中且用一行中且用：分隔，且不能出现分隔，且不能出现End IfEnd
3、 If。If If 表达式表达式 Then Then 语句块语句块 End IfEnd IfIf If 表达式表达式 Then Then 语句块语句块7.1 If语句语句&例例7.1 7.1 输入两个数，输出较大的数。输入两个数，输出较大的数。分析：分析：本题由用户输入两个数，经计算机判断后将较大本题由用户输入两个数，经计算机判断后将较大数输出，即有两个输入量和一个输出量。所以需数输出，即有两个输入量和一个输出量。所以需要两个文本框接受用户输入，可以采用标签框来要两个文本框接受用户输入，可以采用标签框来实现数据的输出。实现数据的输出。界面设计：界面设计：7.1 If语句语句&例例7.1 7.1
4、 输入两个数，输出较大的数。输入两个数，输出较大的数。属性设置：属性设置：对象对象属性属性属性值属性值LabelLabelNameNameLabel1Label1CaptionCaption请输入数请输入数1 1：LabelLabelNameNameLabel2Label2CaptionCaption请输入数请输入数2 2：LabelLabelNameNameLabel3Label3CaptionCaption空白空白BackColorBackColor粉红色粉红色TextBoxTextBoxNameNameText1Text1TextText空白空白TextBoxTextBoxNameNam
5、eText2Text2TextText空白空白CommandButtonCommandButtonNameNameCommand1Command1CaptionCaption较大值较大值CommandButtonCommandButtonNameNameCommand2Command2CaptionCaption退退 出出7.1 If语句语句&例例7.1 7.1 输入两个数，输出较大的数。输入两个数，输出较大的数。编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim max As SingleDim max As Si
6、ngle Dim min As Single Dim min As Single max=Val(Text1.Text)max=Val(Text1.Text)min=Val(Text2.Text)min=Val(Text2.Text)If max min Then If max min Then max=min max=min End If End If Label3.Caption=Label3.Caption=较大值为较大值为&max&maxEnd SubEnd SubFTmax=minmaxmin？开始开始dim max as singledim min as singlemax=val
7、(text1.text)min=val(text2.text)结束结束Label3.Caption=较大值为较大值为&max注意：注意：块块ifif语句中的语句中的end ifend if能否省略？能否省略？Dim max As Single Dim min As Single max=Val(Text1.Text)min=Val(Text2.Text)If max min Then max=min Label3.Caption=较大值为较大值为&max注意：注意：块块ifif语句中的语句中的end ifend if能否省略？能否省略？将块将块ifif语句改为单行语句改为单行ifif语句怎么改
8、？语句怎么改？If max min Then max=min7.1 If语句语句 IfThenElseIfThenElse结构结构 语法格式语法格式：功能功能：该结构用于解决：该结构用于解决 二选一二选一 的问题。当表达式的值为真，执的问题。当表达式的值为真，执行语句块行语句块1 1的语句内容；否则执行语句块的语句内容；否则执行语句块2 2的语句内容的语句内容 。说明说明：表达式最终的值必须为逻辑值，即取值为真或假。表达式最终的值必须为逻辑值，即取值为真或假。若语句块若语句块1 1和语句块和语句块2 2都是单条语句，可采用单行都是单条语句，可采用单行IfIf格式，否格式，否则采用块则采用块If
9、If语句。语句。跟跟If Then If Then 不同，该结构中即使表达式值为假，也有语句不同，该结构中即使表达式值为假，也有语句块块2 2的内容可被执行。的内容可被执行。If If 表达式表达式 Then Then 语句块语句块1 1 ElseElse 语句块语句块2 2 End IfEnd IfIf If 表达式表达式 Then Then 语句块语句块1 Else 1 Else 语句块语句块2 27.1 If语句语句&例例7.2 7.2 编写一个程序，实现当用户输入的用户名和口编写一个程序，实现当用户输入的用户名和口令都正确时显示令都正确时显示 欢迎登录欢迎登录 的消息对话框，当用户名或
10、口的消息对话框，当用户名或口令有错误时显示消息对话框报告错误。令有错误时显示消息对话框报告错误。分析：分析：本题需要两个文本框分别保存用户输入的用户名和口本题需要两个文本框分别保存用户输入的用户名和口令，一个令，一个 登录登录 按钮，一个按钮，一个 退出退出 按钮。当输入的用户按钮。当输入的用户名和口令与正确的相符时显示名和口令与正确的相符时显示 合法用户合法用户，当不相符时，当不相符时显示显示 非法用户非法用户，所以应当采用，所以应当采用IfThenElseIfThenElse结构来结构来实现。实现。界面设计：界面设计：7.1 If语句语句7.1 If语句语句&例例7.2 7.2 编写一个程
11、序，实现当用户输入的用户名和口编写一个程序，实现当用户输入的用户名和口令都正确时显示令都正确时显示 欢迎登录欢迎登录 的消息对话框，当用户名或口的消息对话框，当用户名或口令有错误时显示消息对话框报告错误。令有错误时显示消息对话框报告错误。编写代码：编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim user As String Dim user As String Dim psw As String Dim psw As String user=Text1.Text user=Text1.Text psw=Text2
12、.Text psw=Text2.TextEnd SubEnd SubTF用户名和口用户名和口令正确吗？令正确吗？显示显示欢迎欢迎消息框消息框显示显示错误错误消息框消息框 IfIf user=SYL And psw=123456 Thenuser=SYL And psw=123456 Then MsgBox(MsgBox(欢迎您登录本系统！欢迎您登录本系统！)Else Else MsgBox(MsgBox(您的用户名或口令有误，请重新输入！您的用户名或口令有误，请重新输入！)End If End If IIfIIf函数函数 语法格式：语法格式：功能：当条件为真（功能：当条件为真（TrueTrue
13、），该函数返回表达式），该函数返回表达式1 1的值，否则返回表的值，否则返回表达式达式2 2的值。其中，函数的三个参数都是必须的，不可省略的值。其中，函数的三个参数都是必须的，不可省略 。说明：说明：在使用在使用IIfIIf函数时，必须将其返回值赋值给一个变量，不可以单函数时，必须将其返回值赋值给一个变量，不可以单独调用。如上面的代码不可以写成：独调用。如上面的代码不可以写成：IIf(x=1,“Yes”,IIf(x=1,“Yes”,“No”),“No”),需为需为:a=IIf(x=1,“Yes”,“No”),:a=IIf(x=1,“Yes”,“No”),或作为其他或作为其他函数的参数。函数的参
14、数。在使用在使用IIfIIf函数时，第函数时，第2 2和第和第3 3个参数必须只能为一条语句，而且个参数必须只能为一条语句，而且必须是有返回值的，这是必须是有返回值的，这是IIfIIf函数跟函数跟IfThenElseIfThenElse结构的不同结构的不同之处。之处。IIf(IIf(条件条件,表达式表达式1,1,表达式表达式2)2)If user=SYL And psw=123456 Then MsgBox(正确正确！)Else MsgBox(错误错误！)End IfMsgBox IIf(user=SYL And psw=123456,正确正确！,错误！错误！)IIf(user=SYL And
15、 psw=123456,MsgBox(正确！正确！),MsgBox(错误！错误！)这样写对吗？这样写对吗？7.1 If语句语句7.1 If语句语句vIf语句语句 多分支多分支IfIf结构结构 语法格式：语法格式：执行过程：如表达式执行过程：如表达式1 1为真则执行语句块为真则执行语句块1 1；否则测试表达式；否则测试表达式2 2的值，的值，为真则执行语句块为真则执行语句块2 2；依次类推至找到一个值为真的表达式则执行；依次类推至找到一个值为真的表达式则执行相应的语句块；若都不为真时，执行相应的语句块；若都不为真时，执行ElseElse后语句块内容后语句块内容 。说明：说明：表达式最终的值必须为
16、逻辑型，即取值是真或者是假；表达式最终的值必须为逻辑型，即取值是真或者是假；如果要产生如果要产生n n个分支，则需要个分支，则需要n-1n-1个测试表达式；个测试表达式；此结构不能转换成单行此结构不能转换成单行IfIf格式格式 。If If 表达式表达式1 Then 1 Then 语句块语句块1 1 ElseIf ElseIf 表达式表达式2 Then 2 Then 语句块语句块2 2 ElseIf ElseIf 表达式表达式3 Then 3 Then 语句块语句块33Else Else 语句块语句块n n End IfEnd If&例例7.4 7.4 编写一个程序，根据用户输入的某个学生的成
17、编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。判断标绩评出优、良好、中等、及格和不及个五个等级。判断标准如下：准如下：等级等级不及格不及格 score60及格及格 60score70中等中等 70score80良好良好 80score90优优 score907.1 If语句语句&例例7.4 7.4 编写一个程序，根据用户输入的某个学生的成编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。绩评出优、良好、中等、及格和不及个五个等级。分析：分析：本题要解决的问题是根据输入学生的成绩来判断该学本题要解决的问题是根据输入学生的成绩
18、来判断该学生的成绩等级。有一个输入量（学生的成绩）和一个输生的成绩等级。有一个输入量（学生的成绩）和一个输出量（判断结果），所以用一个文本框来接受用户输入，出量（判断结果），所以用一个文本框来接受用户输入，一个文本框来进行输出。再添加一个一个文本框来进行输出。再添加一个 判断判断 按钮，和一按钮，和一个个 退出退出 按钮。按钮。界面设计：界面设计：7.1 If语句 编写代码：编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim score As Single Dim score As Single Dim s As S
19、tring Dim s As String score=Val(Text1.Text)score=Val(Text1.Text)End SubEnd SubT If score 60 ThenIf score 60 Then s=s=不及格不及格 ElseIf score 70 Then ElseIf score 70 Then s=s=及格及格 ElseIf score 80 Then ElseIf score 80 Then s=s=中等中等 ElseIf score 90 Then ElseIf score=285 Then If a+b+c=285 Then Label4.Captio
20、n=Label4.Caption=可以获奖！可以获奖！ElseIf a=90 And b=90 And c=90 Then ElseIf a=90 And b=90 And c=90 Then Label4.Caption=Label4.Caption=可以获奖！可以获奖！ElseIf a=100 And b=100 And c=80 Then ElseIf a=100 And b=100 And c=80 Then Label4.Caption=Label4.Caption=可以获奖！可以获奖！Else Else Label4.Caption=Label4.Caption=不可获奖！不可获奖
21、！End If End IfEnd SubEnd SubT能改成下面的代码吗？能改成下面的代码吗？If a+b+c=285 or a=90 And b=90 And c=90 or _If a+b+c=285 or a=90 And b=90 And c=90 or _ a=100 And b=100 And c=80 Then a=100 And b=100 And c=80 Then Label4.Caption=Label4.Caption=不可获奖！不可获奖！End If End If7.1 If语句语句7.1 If语句语句vIfIf语句语句 IfIf嵌套嵌套:所谓所谓IfIf嵌套，是
22、指在嵌套，是指在IfIf的的ThenThen或者或者ElseElse语句块中语句块中还可以嵌套还可以嵌套IfIf结构，以达到多分支的目的。结构，以达到多分支的目的。语法格式：语法格式：If If 表达式表达式1 Then1 Then 语句块语句块1 1 If If 表达式表达式2 Then2 Then 语句块语句块2 2 ElseElse 语句块语句块3 3 End IfEnd IfElseElse 语句块语句块4 4 if if 表达式表达式3 Then3 Then 语句块语句块5 5 ElseElse 语句块语句块6 6 End IfEnd IfEnd IfEnd If&例例7.7:7.7
23、:编写一个程序，让用户输入三个数判并断该三个编写一个程序，让用户输入三个数判并断该三个数能否组成一个直角三角形。数能否组成一个直角三角形。分析：分析：本题根据用户输入的三个数，判断它们能否组成一本题根据用户输入的三个数，判断它们能否组成一个直角三角形。程序中有三个输入量（即输入的三个个直角三角形。程序中有三个输入量（即输入的三个数）和一个输出量（即能否组成一个直角三角形）。数）和一个输出量（即能否组成一个直角三角形）。故可以用三个文本框来接受用户输入的三个数，一个故可以用三个文本框来接受用户输入的三个数，一个标签框来显示判断结果。标签框来显示判断结果。界面设计：界面设计：7.1 If语句语句&
24、例例7.7:7.7:编写一个程序，让用户输入三个数判并断该三个编写一个程序，让用户输入三个数判并断该三个数能否组成一个直角三角形。数能否组成一个直角三角形。编写代码：编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim a,b,c As SingleDim a,b,c As Singlea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)End SubEnd S
25、ubTT三角形？三角形？FT直角三角形？直角三角形？F输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果a+b c And a+c b And b+c a Label4.Caption=a 2=b 2+c 2 Or b 2=a 2+c 2 Or c 2=a 2+b 2Label4.Caption=Label4.Caption=If a+b c And a+c b And b+c a ThenIf a+b c And a+c b And b+c a Then If a 2=b 2+c 2 Or b 2=a 2+c 2 Or c 2=a 2+b 2 Then If a 2=b
26、 2+c 2 Or b 2=a 2+c 2 Or c 2=a 2+b 2 Then Label4.Caption=Label4.Caption=可以构造一个直角三角形可以构造一个直角三角形 Else Else Label4.Caption=Label4.Caption=可以构造一个非直角三角形可以构造一个非直角三角形 End If End If Else Else Label4.Caption=Label4.Caption=不可以构造一个三角形不可以构造一个三角形 End If End If7.1 If语句语句7.Select Case语句语句 Select CaseSelect Case语句
27、同样可以解决多分支问题，但与语句同样可以解决多分支问题，但与IfIf嵌套结构不嵌套结构不同在于这种结构中只有一个用于判断的测试表达式，根据此表达同在于这种结构中只有一个用于判断的测试表达式，根据此表达式产生的不同计算结果执行不同分支的语句块内容式产生的不同计算结果执行不同分支的语句块内容.其语法格式为：其语法格式为：功能：在同一个测试条件上可以有多个分支并列，根据测试表功能：在同一个测试条件上可以有多个分支并列，根据测试表达式的不同计算结果来执行不同的分支。当测试值处于表达式达式的不同计算结果来执行不同的分支。当测试值处于表达式列表列表1 1范围时，则执行语句块范围时，则执行语句块1 1并退出
28、并退出Select CaseSelect Case语句；当其语句；当其值处于表达式列表值处于表达式列表2 2范围时，则执行语句块范围时，则执行语句块2 2并退出并退出Select Select CaseCase语句；语句；。若其值跟所有的表达式列表表示的值都不匹。若其值跟所有的表达式列表表示的值都不匹配时则执行配时则执行Case ElseCase Else对应的语句块对应的语句块n n并退出并退出Select CaseSelect Case语句。语句。Select Case Select Case 测试表达式测试表达式 Case Case 表达式列表表达式列表1 1 语句块语句块1 1 Cas
29、e Case 表达式列表表达式列表2 2 语句块语句块22 Case Else Case Else 语句块语句块nnEnd SelectEnd Select注意：注意：测试表达式可以是数学表达式、字符串表达式、逻辑表达式或混测试表达式可以是数学表达式、字符串表达式、逻辑表达式或混合表达式。合表达式。CaseCase子句后的表达式列表可是以下几种格式：子句后的表达式列表可是以下几种格式：表达式表达式1 1，表达式，表达式2 2，表达式，表达式n n 表达式表达式1 to 1 to 表达式表达式2 2 Is Is 表达式表达式 还可以是上述三种格式的结合还可以是上述三种格式的结合 当表达式结果与多
30、个当表达式结果与多个CaseCase表达式列表的值匹配时，则只执行第一表达式列表的值匹配时，则只执行第一个匹配的个匹配的CaseCase语句对应的语句块。语句对应的语句块。Case ElseCase Else子句必须放在全部子句必须放在全部CaseCase子句语句后面。当表达式的值子句语句后面。当表达式的值与前面所有与前面所有CaseCase语句均不匹配时，才执行语句均不匹配时，才执行Case ElseCase Else子句部分。子句部分。这个子句可以省略。这个子句可以省略。Case 2,4,6,8,VB Case 2,4,6,8,VB，程序设计程序设计 Case 60 to 100Case
31、60 to 100Case a to zCase a to zCaseCase is60 is=60 and is=60 and is10010 to 15,is100&例例7.11 7.11 邮局向国外寄包裹的收费计算如下：当包裹重邮局向国外寄包裹的收费计算如下：当包裹重量不超过量不超过1515克时收费克时收费5 5元；当包裹重量为元；当包裹重量为1515克至克至3030克时收克时收费费9 9元；当包裹重量为元；当包裹重量为3030至至4545克时收费克时收费1212元；当包裹重量元；当包裹重量为为4545克至克至6060克时收费克时收费1414元；当包裹重量为元；当包裹重量为6060克至克
32、至7575克时收克时收费费1616元；当包裹重量超过元；当包裹重量超过7575克时收费克时收费2020元。请编写一个程元。请编写一个程序根据包裹重量计算邮费。序根据包裹重量计算邮费。分析：分析：本题根据包裹的重量来计算包裹的邮寄费。一个输入量为本题根据包裹的重量来计算包裹的邮寄费。一个输入量为包裹重量，一个输出量为邮寄费。所以用一个文本框接收输包裹重量，一个输出量为邮寄费。所以用一个文本框接收输入量，一个文本框作为输出，一个按钮实现入量，一个文本框作为输出，一个按钮实现“计算计算”功能，功能，一个按钮实现一个按钮实现“退出退出”功能。功能。界面设计：界面设计：7.Select Case语句语句
33、 7.Select Case语句语句 编写代码：编写代码：IFIF语句实现语句实现 Private Sub Command1_Click()Private Sub Command1_Click()Dim a As Single,b As IntegerDim a As Single,b As Integera=Val(Text1.Text)a=Val(Text1.Text)If a=15 ThenIf a=15 Then b=5 b=5ElseIf a=30 ThenElseIf a=30 Then b=9 b=9ElseIf a=45 ThenElseIf a=45 Then b=12 b=
34、12ElseIf a=60 ThenElseIf a=60 Then b=14 b=14ElseIf a=75 ThenElseIf a=75 Then b=16 b=16 ElseElse b=20 b=20End IfEnd IfText2.Text=bText2.Text=bEnd SubEnd Sub7.Select Case语句语句 编写代码：Private Sub Command1_Click()Private Sub Command1_Click()Dim a as Single,b as Dim a as Single,b as IntegerInteger a=Val(Tex
35、t1.text)a=Val(Text1.text)Select Case a Select Case a Case Is=15 Case Is=15 b=5 b=5 Case Is=30 Case Is=30 b=9 b=9 Case 30 to 45 Case 30 to 45 b=12 b=12 Case 45 to 60 Case 45 to 60 b=14 b=14 Case 60 to 75Case 60 to 75 b=14 b=14 Case ElseCase Else b=20 b=20End SelectEnd SelectText2.text=bText2.text=bEn
36、d SubEnd Sub&例例7.12 7.12 航空公司规定在旅游的旺季航空公司规定在旅游的旺季7 79 9月份，如果订票数超月份，如果订票数超过过2020张，票价优惠张，票价优惠15%15%，2020张以下，优惠张以下，优惠5%5%；在旅游的淡季；在旅游的淡季1 15 5月份、月份、1010月份、月份、1111月份，如果订票数超过月份，如果订票数超过2020张，票价优惠张，票价优惠30%30%，2020张以下，优惠张以下，优惠20%20%；其他情况一律优惠；其他情况一律优惠10%10%。设计程序，根据。设计程序，根据月份和订票张数来计算总的订票金额，假设每张飞机票单价为月份和订票张数来计算
37、总的订票金额，假设每张飞机票单价为600600元。元。分析：分析：本题根据订票的月份和张数来计算订票的总金额。所以用两本题根据订票的月份和张数来计算订票的总金额。所以用两个输入量即个输入量即“月份月份”和和“订票张数订票张数”，一个输出量即，一个输出量即“总金总金额额”。而第一个输入量。而第一个输入量“月份月份”是一个固定值，取值范围在是一个固定值，取值范围在1 11212月，所以可以用一个组合框将月，所以可以用一个组合框将1212月全部列出来供用户选择比月全部列出来供用户选择比较好。故用一个组合框来接收较好。故用一个组合框来接收“月份月份”输入量，一个文本框来输入量，一个文本框来接收接收“订
38、票张数订票张数”的输入量，一个文本框用来显示的输入量，一个文本框用来显示“总金额总金额”输出量。输出量。界面设计：界面设计：7.Select Case语句语句 7.Select Case语句语句 编写代码：编写代码：Private Sub Form_Load()Private Sub Form_Load()Combo1.AddItem 1 Combo1.AddItem 1月月 Combo1.AddItem 2 Combo1.AddItem 2月月 Combo1.AddItem 3 Combo1.AddItem 3月月 Combo1.AddItem 4 Combo1.AddItem 4月月 Co
39、mbo1.AddItem 5 Combo1.AddItem 5月月 Combo1.AddItem 6 Combo1.AddItem 6月月 Combo1.AddItem 7 Combo1.AddItem 7月月 Combo1.AddItem 8 Combo1.AddItem 8月月 Combo1.AddItem 9 Combo1.AddItem 9月月 Combo1.AddItem 10 Combo1.AddItem 10月月 Combo1.AddItem 11 Combo1.AddItem 11月月 Combo1.AddItem 12 Combo1.AddItem 12月月 End SubE
40、nd Sub Private Sub Command1_Click()Private Sub Command1_Click()Dim num As Integer,rate As Single Dim num As Integer,rate As Single num=Val(Text1.Text)num=Val(Text1.Text)计算每张票享受的折扣计算每张票享受的折扣raterate！Text2.Text=rate Text2.Text=rate*num num*600 600End SubEnd SubSelect Case Combo1.ListIndexSelect Case C
41、ombo1.ListIndex Case 6 To 8 Case 6 To 8 If num 20 Then If num 20 Then rate=0.95 rate=0.95 Else Else rate=0.85 rate=0.85 End If End If Case 9,10,0 To 4 Case 9,10,0 To 4 If num 20 Then If num 20 Then rate=0.8 rate=0.8 Else Else rate=0.7 rate=0.7 End If End If Case Else Case Else rate=0.9 rate=0.9End S
42、electEnd Select其他月份其他月份T订票订票20rate=0.95rate=0.85F订票订票0=0 0 Label4.Caption=x1=&(-b+Sqr(b 2-4*a*c)/(2*a)Label5.Caption=x2=&(-b-Sqr(b 2-4*a*c)/(2*a)Case Is=0 Label4.Caption=二次方程有二次方程有2个实根个实根 Label5.Caption=x1、x2=&-b/(2*a)Case Is 0 Label4.Caption=二次方程没有实根二次方程没有实根 End Select End If Else MsgBox(你输入的数据无效，请重新输入！你输入的数据无效，请重新输入！)End If
