第5章-数据的输入与输出

第五章数据的输入与输出5.1赋值语句5.2Inputbox函数5.3msgbox函数5.4Print方法20145.1赋值语句1.赋值语句赋值语句是程序设计中最基本的语句，赋值语句的一般形式是：

Var=<表达式>Var可以是变量名或对象的属性名。如：

x=“NanJing”Label1.caption=“工作单位:”使用赋值语句还可获取对象返回的当前属性值：

Var=Object.Property如：

x=text1.text2.不同数据类型间数据的赋值（重点）（1）当表达式为数值型而与变量精度不同时，强制转换成左边变量的精度；（2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式中有非数字字符或空串，则出错。（3）任何非字符类型赋值给字符类型，自动转换为字符类型；（4）当逻辑型赋值给数值型时，True转换为-1，False转换为0；当数值型赋值给逻辑型时，非0转换为True，0转换为False；注意1：赋值语句不同于数学里的等式，赋值语句代表了一个操作，即用赋值号右边的表达式的值去改写赋值号左边变量的值，改写成功后，变量原有的值即被覆盖例如：x=x+1赋值语句的执行包含以下三个步骤，若其中一个步骤执行失败，则整个赋值语句执行失败：Step1：计算表达式的值Step2：将表达式的类型转换为变量的类型Step3：修改变量的值例如：x&=200*200‘无法完成表达式的计算x%=“”‘空串不能转换为Integer注意2：赋值号与关系运算符中的“=”形式相同，但意义完全不同，区分的要领为：赋值号连接的是一个完整的语句关系运算符连接的是一个表达式例如：a=b

a=b=c例题：以下程序段的输出结果是

。DimaAsInteger,bAsInteger,cAsSinglec=3.5b=ca=b=cPrinta05.2InputBox函数InputBox函数用来接受用户通过键盘输入的数据。它的使用形式是：V=InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])Prompt必需的。作为对话框消息出现的字符串表达式。其最大长度约为1024个字符Title

可选的。显示对话框标题栏中的字符串表达式。X、y

可选的。成对出现，指定对话框在屏幕上显示时的位置。V可以是变体变量或字符串型变量、数值型变量。

Helpfiel、Context

帮助文件名及帮助主题号。Default可选的。显示文本框中的字符串表达式，在没有其它输入时为缺省值。如果省略default，则文本框为空。

在InputBox函数所显示的对话框中，各参数的作用如图所示。TitlePrompt数值输入区编写一程序，用InputBox函数输入两个整数，输出其和。例题PrivateSubForm_Click()Dima,b,cAsIntegera=InputBox("请给变量a输入一个值：")b=InputBox("请给变量b输入一个值：")c=Val(a)+Val(b)PrintcEndSub注意InputBox函数的返回值是字符串型。例如 DimvAsInteger V=InputBox(“请输入一个正整数”)如果用户在对话框中什么也没输入，或者按“取消”键返回，实际上将返回空串，程序将出现“类型不匹配”的错误。5.3MsgBox函数MsgBox函数用来向用户发布提示消息，并要求用户作出必要的响应。它的使用形式是：MsgBox(prompt[,buttons][,title][,helpfile,context])Prompt必需的。字符串表达式，作为显示在对话框中的消息。

Buttons

可选的。C1+C2+C3+C4，由4个数值常量相加组成的式子。如果省略，则buttons的缺省值为0。

C1：指定显示按钮的数目及形式，

C2：使用的图标样式，C3：缺省按钮是什么C4：对话框模式Title可选的。在对话框标题栏中显示的字符串表达式。如果缺省，则显示当前工程的名称属性。常数值描述vbOKOnly0只显示确定按钮。vbOKCancel1显示确定和取消按钮。vbAbortRetryIgnore2显示放弃、重试和忽略按钮。vbYesNoCancel3显示是、否和取消按钮。vbYesNo4显示是和否按钮。vbRetryCancel5显示重试和取消按钮。vbCritical16显示临界信息图标。vbQuestion32显示警告查询图标。vbExclamation48显示警告消息图标。vbInformation64显示信息消息图标。vbDefaultButton10第一个按钮为默认按钮。vbDefaultButton2256第二个按钮为默认按钮。vbDefaultButton3512第三个按钮为默认按钮。vbDefaultButton4768第四个按钮为默认按钮。vbApplicationModal0应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。vbSystemModal4096系统模式：在用户响应消息框前，所有应用程序都被挂起。Buttons参数的取值C1：第一组值(0-5)用于描述对话框中显示的按钮类型与数目；C2：第二组值(16,32,48,64)用于描述图标的样式；C3：第三组值(0,256,512,768)用于确定默认按钮；C4：第四组值(0,4096)则决定消息框的样式。该返回值是一个整数，这个整数反应了用户点击MsgBox上的哪一个按钮。其具体返回值见下表。常数值按钮vbOK1确定vbCancel2取消vbAbort3放弃vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否MsgBox函数的返回值

Print方法的使用形式是：[Object.]Printp1<s>p2<s>...s是输出项之间的分隔符,可以是逗号或分号5.4Print方法Print方法用于将文本输出到窗体上或图片框上。如果Print方法不带有控件对象名时，它将把输出内容输出到窗体上。p1,p2,...是输出项当采用逗号作分隔符时，两个输出项分别输出到两个标准分区；而采用分号作分隔符时，两个输出项将紧接着输出。可以使用Tab函数和Spc函数配合定位输出。Tab可实现绝对定位，Spc可插入空格。例PrivateSubForm_Click()Print"12345678901234567890"Print"a";"b";"c";"d"Print"a","b";Print"c","d"PrintTab(3);"a";Tab(7);"b"PrintTab(3);"a",Tab(18);"b"PrintTab(3);"a",Tab(7);"b"Print"a";Spc(3);"b"Print"a";Spc(3),"b"EndSubCls方法它的作用是清除绘图语句和Print语句产生的文字和图形。语法格式：object.Clsobject指清除的对象，可以是窗体或图片框。缺省则为窗体。注意：Cls方法只能清除用Print语句打印到对象上面的文字，不能清除窗体中的标签控件注意：若Print语句末尾有分隔符，则光标不换行，下一条Print语句从本行结束的地方开始若Print语句的末尾没有分隔符，则光标另起一行，下一次Print语句从新的行开始不含数据项的Print语句会打印一个空行例如(1)Print“123”;Print“456”(2)Print“123”Print“456”(3)Print“123”PrintPrint“456”123456123456123456格式化函数FormatFormat函数用于制定字符串或数字的输出格式语法格式：Format(数值表达式,格式字符串)(0)数字占位符。显示一位数字或是零。占位符0的个数比要显示的位数多，在左边以0补齐。占位符0的个数比要显示的位数少，则“不够补到够”(#)数字占位符。显示一位数字或什么都不显示。占位符0的个数比要显示的位数多，多余的#作废。占位符0的个数比要显示的位数少，则“不够补到够”

(.)小数点占位符。显示小数位数。(%)百分比符号占位符。表达式乘以100。而百分比字符(%)会插入到格式字符串中出现的位置上。(,)千分位符号占位符。千位符号主要是把数值小数点左边超过四位数以上分出千位，小数部分不分位。格式字符串的符号主要有以下一些：(+)显示正号。通常放在格式字符串的开头。(-)显示负号。通常放在格式字符串的开头。MyStr=Format(5459.4,”00000.00“)‘返回”05459.40"MyStr=Format(545