控制结构课件.pptVIP

4)变量为逻辑型，表达式为数值型时，非0转换成true，0转换成false后赋值给变量 Dim Boolean b b=21 b?true 5)变量为字符型，表达式为非字符型时，表达式的结果自动转换为字符型后赋值给变量 Dim s as String s=123 s?”123” 使用赋值语句时应注意： 以下的赋值语句均是错误的: 5=x+y 常量在左边 x+y=5 表达式在左边 Sin(x)=x+y 不能在一句赋值语句中为多个变量赋值： 正确 x=1 y=1 z=1 错误：x=y=z=1 4.1.2人机交互函数和过程 Vb程序与用户之间的直接交互可以通过InputBox ( )函数、MsgBox ( )函数和Msg过程进行。 1.InputBox（）函数 InputBox（）函数可以产生一个对话框，这个对话框作为输入数据的界面,等待用户输入数据，当用户单击“确定“按钮或回车时，函数返回输入的值，类型为字符型。函数格式如下： 变量$＝InputBox（Prompt[,Title][,Default][,XPos][,YPose]） 例4-1 应用InputBox函数进行患者信息的输入，运行界面如图 程序代码如下： Private Sub Form_Click() Dim cl$, msg1$, msg2$, msg3$, msg$, I$ cl = Chr(13) + Chr(10) ‘回车、换行 msg1 = 请输入患者姓名 msg2 = 输入后单击确定按钮 msg3 = 或按回车键 msg = msg1 + cl + msg2 + cl + msg3 I = InputBox (msg, 患者信息输入框, 张三, 400, 400) End Sub 注意　 各项参数次序必须一一对应，Prompt项不可省略， 其他项可以省略，但处于中间的默认参数要用逗号占位符跳过 该函数返回的值为字符型，如果需要输入数值并参加运算时，在运算前运用Val(c)函数将其类型转换为数值类型 例：inputBox.vbp 2.MsgBox（）函数和MsgBox过程 MsgBox（）函数可以产生一个消息框，等待用户选择按钮，当用户单击某个按钮时，函数返回按钮的值，类型为整型。函数格式如下： 变量％＝MsgBox （Prompt[,Type] [,Title]） Promp:字符串表达式，用于提示信息 Type：消息框类型 Title：字符串表达式，在标题栏中显示 4.1.2人机交互函数和过程 分组 内部常数 按钮值 描述 按钮数目 VBOkOnly VBOkCancel VBAboutRetryignre VBYesNoCancel VBYesNo VBRetryCancel 0 1 2 3 4 5 只显示“确定”按钮 显示“确定”“取消”按钮 显示“终止”“重试”“忽略”按钮 显示“是”“否”“取消”按钮 显示“是”“否”按钮 显示“重试”“取消”按钮 图标类型 VBCritical VBQusetion VBExclsmation VBinformation 16 32 48 64 关键信息图标 红色STOP标志 询问信息图标？ 警告信息图标！ 信息图标i 默认按钮 VBDefaultButton1 VBDefaultButton2 VBDefaultButton3 0 256 512 第1个按钮为默认 第2个按钮为默认 第3个按钮为默认 模式 VBApplicationModel VBSystemModel 0 4096 应用模式 系统模式 其中Type为整型表达式，用来控制在消息框中显示的按钮、图标的种类、数量。其按钮、图表设置值及意义 如下表所示： 变量％＝MsgBox （Prompt[,Type] [,Title]） 例如:要显示“重试”、“取消按钮”、关键信息图标 红色stop图标，第一个按钮为默认、系统模式 type值为5+16+0+4096,或 VBRetryCancel+VBCritical+VBDefualtButton+VBSystomModel t = vbRetryCancel + vbCritical + VBDefualtButton + VBSystomModel ret = MsgBox(消息框示例, t, 消息框) 例 msgBox.vbp MsgBox函数返回所选按钮整数值的意义如下表所示： 内部常数 返回值 被单击的按钮 VBOk VBCancel VBAbout VBRetry VBIgnre VBYes VBNo 1