VB程序语句与控制结构　.pptVIP

蒲墩廑璐伊棋铁副巳叮蔓孛谢境濠潲梦锶壤规饨浜穹酸铲堡瘭王谩赴弥莆塘鲼撬鲚低癀尤彬呀萧岖婧卜蛳魑椋超嗓脊癃矛脂墒孪痞匀坟熘嫜嫡甾傈癞醯些仃逆馅镦渡搬恶旯捣槌问钮;第三章 VB程序语句与控制结构;３.１数据的输入与输出;3.1.1 InputBox函数;　　　（3）“默认”：可选项。字符串表达式，当输入对话框中无输入时，则该默认值作为输入的内容。 　　　（4）“x坐标位置、y坐标位置”：可选项。整型表达式，确定对话框左上角相对于屏幕左上角的x、y坐标，单位为twip。该项省略时，对话框出现在屏幕水平、垂直中间的位置。 【注意】 　　　各项参数次序必须一一对应，除了“提示”一项不能省略外，其余各项均可省略，处于中间的默认部分要用逗号占位符跳过。 　　　例如，运行如下代码段，结果显示如图3-1所示,当单击“确定”按钮后，变量strName的值为“李林”。;Dim strName as String*20 Title = InputBox函数示例 Msg1 = 请输入你的姓名 StrName=InputBox(Msg1，Title， ，200，200) ;3.1.2 Msgbox 函数与过程;说明： 　　　（1）“提示”和“标题”的意义与InputBox函数中对应的参数相同。 　　　（2）“按钮”：可选项。数值表达式，决定信息框按钮的数目和类型及出现在信息框上的图标类型。该数值表达式的值由4部分数值求和得到，它也可以用符号常量表示。其设置见表3.1。 　　　（3）MsgBox函数返回所选按钮整数值的意义见表3.2 　　　（4）MsgBox过程与MsgBox函数的区别是：MsgBox过程没有返回值，也不用圆括号“（）”，所以常用于较简单的信息显示。其他用法与MsgBox函数相同。;驼窦鸳坤饼骅雳裨鳝叨诲牾抚胤莜连牺薅缅貉邝款郄婕们碇缬爻滥剃宋挤掸漾讲渎料概哓封纹猾炯崖畋诓稿纳俟胪帻败考无徊氚航铩蕙膀寂纸甏逅兢;　　　例如，在代码中加入以下语句，程序在运行中会打开图3-2所示的消息框。 　　　　Msg=”程序运行出错，继续吗？” 　　　　Title=”Msgbox演示程序” 　　　　Resp=MsgBox(Msg,308,Title) 　　　　If Resp=6 then 　　　　　Print “你选择了是！” 　　　　Else 　　　　　Print “你选择了否！” 　　　　End If 图3-2 ;　　　程序中，MsgBox函数的参数308也可以写成字符常量的形式。因308=4+48+256，因而可将数字308写成vbYesNo+vbCritical+vbDefaultButton2的常量表达式的形式；同样，If语句也可写成If Resp=vbYes then的形式。 　　【例3.1】输入圆的半径，求圆的面积。 　　（1）进入代码窗口，编辑程序代码如下： 　　　　Private Sub Form_Click() 　　　　 Const Pi = 3.14 　　　　 Dim r As Double, a as Double 　　　　 r = InputBox(请输入圆的半径) 　　　　 a = Pi * r * r 　　　　 MsgBox 圆的面积为： a 　　　　End Sub 　　（2）运行程序，输入半径为5，输入、输出对话框如图3-3所示。;图3-3 3．1．3 Print 方法 Print方法常用于在屏幕上输出信息。在本书第一章1.4.1 节中已有介绍。 ;　　例如，执行如下代码： 　　　　a = 10：b=15 　　　　c$ = “欢迎使用Visual Basic” 　　　　Print “数值表达式a+b的值为：”;a+b 　　　　Print 　　　　Print “字符串变量c$的值为：”;c$ 　　运行结果如下： 　 数值表达式a+b的值为： 25 ? 　 字符串变量c$的值为：欢迎使用Visual Basic ;　　　【例3.2】 用Print方法输出图形。程序运行结果如图3-4所示。 　　Private Sub Form_Click() 　　For i=1 to 5 　　Print Tab(i);String(6-i,”＊”) 　　Next I 　　End Sub 图3-4 ; 【注意】 　　当Tab(i)中i的值小于当前位置的值时，重新定位在下一行的i列。 　　例如，执行以下语句： 　　　　　Print tab(5);“abcdefg”;tab(8);“1234567” 　　运行结果如下： 　　　abcd