-第四章-控制.ppt

例4-2 程序代码如下： Private Sub Command1_Click() Dim I As Integer IF Not Text2 = cljuan Then I= MsgBox(密码错误, 5 +64+ 0 + VBSystemModel, 登录密码) IF I = 2 Then End Else Text2 = ‘用户单击“取消”按钮返回按钮值 text2=“” ‘用户单击”重试”按钮文本框置空,等待用户重新输入 Text2.SetFocus ‘将焦点设置在文本框2上,方便用户输入 End IF End Sub Private Sub Text1_LostFocus() ‘ 焦点离开文本框1时触发LostFocus事件 IF Not IsNumeric(Text1) Then ‘利用IsNumeric（）函数判断文本框中输入的是否为数字字符 MsgBox 医生工号必须是数字字符 Text1 = Text1.SetFocus End IF End Sub * bjhk 3.IF……Then……ElseIF（多分支结构） 语句形式： 　IF 表达式1Then 　　语句块1 　ElseIF 表达式2 Then 　　语句块2???? 　　　 ???? 　[Else 　 语句块n+1 ] 　End IF T T T T T T 表达式1 表达式2 表达式n 语句块1 语句块2 语句块n 语句块n＋1 F F F 多分支结构流程示意图 … … 不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。. ElseIf不能写成 Else If。 * bjhk Private Sub Command1_Click() Dim x, y Picture1.Cls x = Val(Text1.Text) ‘将文本转换为数值型后赋值给变量x，y y = Val(Text2.Text) IF x 90 And y 60 Then 　　 Picture1.Print 血压偏低 ElseIF x = 140 And y = 90 Then 　　 Picture1.Print 血压正常 ElseIF x 160 And y 95 Then 　　 Picture1.Print 临界高血压 Else 　　 Picture1.Print 高血压 End IF End Sub Private Sub Command2_Click() End End Sub 例4-5 按照世界卫生组织(WHo)建议使用的血压标准是：凡正常成人收缩压应小于或等于140MmHg，舒张压小于或等于90MmHg。如果成人收缩压大于或等于160MmHg，舒张压大于或等于95MmHg为高血压；血压值在上述两者之间，亦即收缩压在141—159MmHg之间，舒张压在91-94MmHg之间，为临界高血压。低血压通常指血压低于90/60MmHg。运行界面与程序代码如下： * bjhk 例 已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？ 返回72 * bjhk 4.2.2 Select Case 语句 Select Case 语句是多分支结构的又一种表示形式，又称情况语句。 语句形式： 　Select Case 变量或表达式 　 Case 表达式列表1 　　　　语句块1 　　Case 表达式列表2 　　　　语句块2 　　　　…… 　　[Case Else 　　　　语句块n＋1] 　End Select F 表达式列表1 语句块1 表达式列表2 语句块2 表达式列表n 语句块n …. . 语句块n＋1 T T T Select语句流程示意图 F F …. . * bjhk Private Sub Command1_Click() Dim code As String code = Trim(Text2.Text) Select Case code 　Case + 　 Text4 .Text= Val(Text1) + Val(Text3) 　Case - 　　Text4.Text = Val(Text1) - Val(Text3) 　Case * 　　Text4.Text = Val(Text1) * Val(Text3 　Case / 　 IF