3选择结构一I条件语句 3.块状I语句 If<条件表达式> Then If<条件表达式>Then <语句块> <语句块1 End If EIse <语句块2> 例321 End if A= InputBox(“A值”):B= InputBox("B值") PrintA. B a Form1 If A<B Then TEA:A=B:B=T End If 从大到小输 PrintA. B 返回目录
3.1 选择结构－If条件语句 3. 块状If语句 返回目录 If <条件表达式>Then <语句块> End If [例3.2] If <条件表达式>Then <语句块1> Else <语句块2> End If A = InputBox(“A值”): B = InputBox("B值") Print A, B If A < B Then T = A : A = B : B = T End If Print A, B
3选择结构一I条件语句 4.I语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If<条件表达式1>Then <语句1> EIsele<条件表达式2>Then <语句2> Else 说明 语句3 End if > EIsele之间不要加空格。 Ese和位于其上方的最近的配对 返回目录
3.1 选择结构－If条件语句 4. If语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If <条件表达式1>Then <语句1> ElseIf <条件表达式2>Then <语句2> Else <语句3> End If 返回目录 说明： ➢ ElseIf之间不要加空格。 ➢ Else和位于其上方的最近的If配对
3选择结构一I条件语句 例331 Weight= InputBox("输入西瓜重量:","计算西瓜款") If Weight 4 Then Price=1 4公斤以下:100元/公斤 4至7公斤:13元/公斤 Elself weight <=7 Then 超过7公斤:1.1元/公斤 Price=1.3 Else If Weight< 4 Then Price=1 Price=1.1 If Weight >=4 And Price <=7 Then Price=1.3 If Weight >7Then Price=1.1 End If Money= price* Weight MsgB0x“西瓜重”& Weight&“公斤,单价”& Pice&k"元,应收瓜款"& Money&-陆西瓜款 "元","计算西瓜款 西瓜重8公斤,单价1.1元,应收瓜款8.8元 返回目录 匚确定
3.1 选择结构－If条件语句 [例3.3] Weight = InputBox("输入西瓜重量：", "计算西瓜款") If Weight < 4 Then Price = 1 ElseIf Weight <= 7 Then Price = 1.3 Else Price = 1.1 End If Money = Price * Weight MsgBox “西瓜重”& Weight & “公斤，单价”& _ Price & "元，应收瓜款" & Money & _ "元", , "计算西瓜款" 返回目录 4公斤以下：1.00元/公斤 4至7公斤： 1.3元/公斤 超过7公斤：1.1元/公斤 If Weight < 4 Then Price = 1 If Weight >= 4 And Price <= 7 Then Price = 1.3 If Weight > 7 Then Price = 1.1
3选择结构一I条件语句 例341 Char= InputBox("输入一个字符","测试字符值") If Char>=0 And char<=9 Then MsgBox"输入的字符是数字 判断输入的是 Elself Char>=AAnd Char<=Z Then 大写字母、小 MsgBox"输入的字符是大写字母 Elself char W And Char<="z Then 写字母、数字 MsgBox"输入的字符是小写字母 还是其它符号 Else MsgBox"输入的字符是其它符号 End If 返回目录
3.1 选择结构－If条件语句 [例3.4] Char = InputBox("输入一个字符","测试字符值") If Char >= "0" And Char <= "9" Then MsgBox "输入的字符是数字" ElseIf Char >= "A" And Char <= "Z" Then MsgBox "输入的字符是大写字母" ElseIf Char >= "a" And Char <= "z" Then MsgBox "输入的字符是小写字母" Else MsgBox "输入的字符是其它符号" End If 返回目录 判断输入的是 大写字母、小 写字母、数字 还是其它符号
3选择结构一I条件语句 例351 Private sub commandl click0·单击“正确无误”按钮 If Len(TxtCode.Text)<8 Then LblWarn. Caption="考核证号必须输入,长度为8位 Txt Code SetFocus Elself Len(txtNameText)=OThen LblWarn. Caption="考生姓名必须输入 TxtName SetFocus Elself Len(Txtseat. Text)=OThen 考生登录 LblWarn. Caption="座位号必须输入 TxtSeat SetFocus Else 考核证号20001 LblWarn. Caption= 姓名 Debug. Print TxtCode Text Debug. Print txtName Text 座位号 Debug. Print TxtSeat Text 考生姓名必须输入 End If End sub 正确无误 返回目录
3.1 选择结构－If条件语句 [例3.5] Private Sub Command1_Click() '单击“正确无误”按钮 If Len(TxtCode.Text) < 8 Then LblWarn.Caption = "考核证号必须输入，长度为8位" TxtCode.SetFocus ElseIf Len(TxtName.Text) = 0 Then LblWarn.Caption = "考生姓名必须输入" TxtName.SetFocus ElseIf Len(TxtSeat.Text) = 0 Then LblWarn.Caption = "座位号必须输入" TxtSeat.SetFocus Else LblWarn.Caption = "" Debug.PrintTxtCode.Text Debug.PrintTxtName.Text Debug.PrintTxtSeat.Text End If End Sub 返回目录