参考课件msgbox函数与选择结构祥解.pptVIP

* 1、编写程序计算话费， 0.5 a=3 y= 0.5+(a-3) x 0.2 3a=10 0.5+(10-3) x 0.2+(a-10) x 0.1 10a 2、 X=inputbox(“enter x”) Select case sgn(x)+2 case 1 print “y=“;x^2 case 2 print “y=“;x case 3 print “y=“;x^3 End select (当x的输入值为 5 , -9 , 0） * 3、x=inputbox(“enter x”) select case x case 1,-51 to -3 y=x/4+6 case 2 to 13 y=x^3/2 case is=20 y=x case else y=0 End select Print “y(“;x;”)=”;y (当x的输入值为1.5 , -5, 9 , -2 , 25 ) 人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。 * * 消息框函数(MsgBox) 选择结构 * 在windows中，如果操作有误，通常会在屏幕上显示一个对话框，提示用户进行选择，然后系统根据选择确定其后的操作。 VB提供的MsgBox函数可以实现此功能，它可以向用户传送信息，并可以接收用户在对话框上的选择，以此作为程序继续执行的依据。 消息框函数(MsgBox) 格式： MsgBox(提示信息[,按钮类型][,对话框标题]) 功能：在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。 * 分类 按钮值 系统定义符号常量 含义 按钮类型 0 vbOKOnly 只显示“确定”按钮 1 vbOKCancel 显示“确定”、“取消”按钮 2 vbAbortRetryIgnore 显示“终止”、“重试”、“忽略”按钮 3 vbYesNoCancel 显示“是”、“否”、“取消”按钮 4 vbYesNo 显示“是”、“否”按钮 5 vbRetryCancel 显示“重试”、“取消”按钮 图标类型 16 vbCritical 显示停止图标 x 32 vbQuestion 显示询问图标 ? 48 vbExclamation 显示警告图标 ！ 64 vbInformation 显示信息图标i 默认按钮 0 vbDefaultButton1 第一个按钮是默认按钮 256 vbDefaultButton2 第二个按钮是默认按钮 512 vbDefaultButton3 第三个按钮是默认按钮 “按钮类型”的设置值及含义 * MsgBox函数的返回值 系统符号常量 返回值 按键 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 若不需要返回值,则可以使用MsgBox语句, 其格式为: MsgBox 提示信息 [,按钮类型][,对话框标题] * 例: Private Sub Command1_Click( ) a= MsgBox(“提示信息”) End Sub Private Sub Command1_Click( ) a= MsgBox(“提示信息” Chr(13) “换行显示”) End Sub 只显示“提示信息” 提示信息换行 * Private Sub Command1_Click( ) a= MsgBox(“提示信息” , ,“标题”) End Sub 省略第二个参数“按钮类型”,但逗号不能省略 Private Sub Command1_Click(