PPT《第四章 控制结构》

0256512 VBDefaultButton1VBDefaultButton2VBDefaultButton3 默认按钮 关键信息图标 红色STOP标志询问信息图标?警告信息图标!信息图标i

16324864 VBCriticalVBQusetionVBExclsmationVBinformation 图标类型 只显示 确定 按钮显示 确定 取消 按钮显示 终止 重试 忽略 按钮显示 是 否 取消 按钮显示 是 否 按钮显示 重试 取消 按钮

012345 VBOkOnlyVBOkCancelVBAboutRetryignreVBYesNoCancelVBYesNoVBRetryCancel 按钮数目 描述 按钮值 内部常数 分组 其中Type为整型表达式,用来控制在消息框中显示的按钮、图标的种类、数量.其按钮、

图表设置值及意义 如下表所示: 变量%=MsgBox (Prompt[,Type] [,Title]) 例如:要显示 重试 、 取消按钮 、关键信息图标 红色stop图标,第一个按钮为默认、系统模式 type值为5+16+0+4096,或VBRetryCancel+VBCritical+VBDefualtButton+VBSystomModel t = vbRetryCancel + vbCritical + VBDefualtButton + VBSystomModelret = MsgBox( 消息框示例 , t, 消息框 ) 例msgBox.vbp MsgBox函数返回所选按钮整数值的意义如下表所示: 确定取消终止重试忽略是否

1234567 VBOkVBCancelVBAboutVBRetryVBIgnreVBYesVBNo 被单击的按钮 返回值 内部常数 若只需给出prompt参数,可以这样使用Ret=msgBox prompt 4.2选择结构 4.2.1 IF条件语句1.IF……Then 语句(单分支结构)语句形式: (1) IF <

表达式 >

Then 语句块 End IF (2) IF Then 语句块 表达式 语句块 F T 单分支结构流程示意图 其中:表达式一般为关系表达式、逻辑表达式,也可以为算术表达式.表达式的值按非零为True ,零为False 进行处理.语句块:可以是一条或多条语句.如果采用形式(2)表示则语句之间要用冒号分隔,并且一定写在同一行上. If 和end if 要成对出现 例4-3已知两个变量x和y,比较它们的大小,使x中的值大于y.(要实现两个变量中的数互相交换通常以使用第三变量为过渡,在此为t)语句如下: IF x <

y Then t=x '

将变量x中的值暂时存放于变量t中x=y '

用变量y中的值替代变量x中的值 y=t '

再将原变量x中的值替代变量y中的值End IF 或者 IF x <

y Then t=x : x=y: y=t 2.IF……..Then……Else(双分支结构)语句形式: IF Then Else End IF 或者:IF Then Else 如果表达式的值为非零或True执行语句块1,否则执行语句块2. 表达式 语句块1 语句块2 F T 双分支结构流程示意图 例4-2 编写一医生工作站的登录检验程序,运行界面如图4-3.对登录名(医生工号)和密码的规定如下:(1)医生工号不超过6位数字,密码为6位字符,密码输入时显示为 * .本题假设密码为 cljuan .(2)当医生工号输入非数字字符,密码不正确时,显示相关信息. (3)若单击 重试 按钮,则清除原来输入的内容,焦点定位在原输入文本框,等待用户输入.若单击取消按钮,程序停止运行. 本程序运行结果如图所示,程序代码见后页. 例4-2 程序代码如下: Private Sub Command1_Click()Dim I As IntegerIF Not Text2 = cljuan Then I= MsgBox( 密码错误 ,

5 +64+

0 + VBSystemModel, 登录密码 ) IF I =

2 Then End Else Text2 用户单击 取消 按钮返回按钮值 text2=用户单击 重试 按钮文本框置空,等待用户重新输入 Text2.SetFocus '

将焦点设置在文本框2上,方便用户输入End IFEnd SubPrivate Sub Text1_LostFocus(焦点离开文本框1时触发LostFocus事件IF Not IsNumeric(Text1) Then '

利用IsNumeric()函数判断文本框中输入的是否为数字字符 MsgBox 医生工号必须是数字字符 Text1 = Text1.SetFocusEnd IFEnd Sub 3.IF……Then……ElseIF(多分支结构)语句形式: IF Then ElseIF Then ???? ???? [Else ] End IF T T T T T T 表达式1 表达式2 表达式n 语句块1 语句块2 语句块n 语句块n+1 F F F 多分支结构流程示意图 … … 不管有几个分支,依次判断,当某条件满足,执行相应的语句,其余分支不再执行;