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

1、5.1 赋值语句5.2 Inputbox 函数5.3 msgbox 函数5.4 Print 方法201420145.1 赋值语句赋值语句1.赋值语句赋值语句赋值语句是程序设计中最基本的语句，赋值语句的赋值语句是程序设计中最基本的语句，赋值语句的一般形式是：一般形式是： Var=Var可以是变量名或可以是变量名或对象的属性名。对象的属性名。如：如： x=“NanJing” Label1.caption=“工作单位工作单位:”使用赋值语句还可获取对象返回的当前属性值：使用赋值语句还可获取对象返回的当前属性值： Var=Object.Property如：如： x=text1.text2. 不同数据类

2、型间数据的赋值不同数据类型间数据的赋值（重点）（重点）（1）当表达式为数值型而与变量精度不同时，强制转换成左边变）当表达式为数值型而与变量精度不同时，强制转换成左边变量的精度；量的精度；（2）当表达式是数字字符串，左边变量是数值类型，自动转换成）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式中有非数字字符或空串，则出错。数值类型再赋值，但当表达式中有非数字字符或空串，则出错。（3）任何非字符类型赋值给字符类型，自动转换为字符类型；）任何非字符类型赋值给字符类型，自动转换为字符类型；（4）当逻辑型赋值给数值型时，）当逻辑型赋值给数值型时，True转换为转换为 -1

3、，False转换为转换为0；当数值型赋值给逻辑型时，非当数值型赋值给逻辑型时，非0转换为转换为True，0转换为转换为False； 注意注意1： 赋值语句不同于数学里的等式，赋值语句代表了一赋值语句不同于数学里的等式，赋值语句代表了一个操作，即用赋值号右边的表达式的值去改写赋值个操作，即用赋值号右边的表达式的值去改写赋值号左边变量的值，改写成功后，变量原有的值即被号左边变量的值，改写成功后，变量原有的值即被覆盖覆盖 例如：例如： x=x+1 赋值语句的执行包含以下三个步骤，若其中一个步赋值语句的执行包含以下三个步骤，若其中一个步骤执行失败，则整个赋值语句执行失败：骤执行失败，则整个赋值语句执行

4、失败： Step1：计算表达式的值：计算表达式的值 Step2：将表达式的类型转换为变量的类型：将表达式的类型转换为变量的类型 Step3：修改变量的值：修改变量的值例如：例如： x& = 200*200 无法完成表达式的计算无法完成表达式的计算 x% = “” 空串不能转换为空串不能转换为Integer 注意注意2： 赋值号与关系运算符中的赋值号与关系运算符中的“=”形式相同，但意义形式相同，但意义完全不同，区分的要领为：完全不同，区分的要领为：赋值号连接的是一个完整的语句赋值号连接的是一个完整的语句关系运算符连接的是一个表达式关系运算符连接的是一个表达式例如：例如：a=b a =

5、b = c例题：以下程序段的输出结果是例题：以下程序段的输出结果是 。 Dim a As Integer, b As Integer, c As Single c = 3.5 b = c a = b = c Print a05.2 InputBox函数函数 InputBox函数用来接受用户通过键盘输入的数据。它的使用形式是：函数用来接受用户通过键盘输入的数据。它的使用形式是：V=InputBox(prompt, title , default , xpos , ypos , helpfile, context)Prompt 必需的。必需的。作为对话框消息出现的字符串表达式作为对话框消息出现的字

6、符串表达式。其最大其最大长度约为长度约为1024个字符个字符Title 可选的。显示对话框标题栏中的字符串表达式可选的。显示对话框标题栏中的字符串表达式。 X、y 可选的。成对出现，指定对话框在屏幕上显示时的位置可选的。成对出现，指定对话框在屏幕上显示时的位置。 V 可以是变体变量或字符串型变量、数值型变量。可以是变体变量或字符串型变量、数值型变量。 Helpfiel、Context 帮助文件名及帮助主题号。帮助文件名及帮助主题号。Default 可选的。显示文本框中的字符串表达式，在没有其它输入时可选的。显示文本框中的字符串表达式，在没有其它输入时为缺省值。如果省略为缺省值。如果省略 def

7、ault，则文本框为空。，则文本框为空。 在在InputBox函数所显示的对话框中，各参数的函数所显示的对话框中，各参数的作用如图所示。作用如图所示。TitlePrompt数值输入区数值输入区编写一程序，用编写一程序，用InputBoxInputBox函数输入两个整数，输出其函数输入两个整数，输出其和。和。例题例题Private Sub Form_Click() Dim a, b, c As Integer a = InputBox(请给变量请给变量a输入一个值：输入一个值：) b = InputBox(请给变量请给变量b输入一个值：输入一个值：) c = Val(a) + Val(b) Pr

8、int cEnd Sub 注意注意 InputBox函数的返回值是字符串型。函数的返回值是字符串型。例如例如Dim v As IntegerV=InputBox(“请输入一个正整数请输入一个正整数”)如果用户在对话框中什么也没输入，或者按如果用户在对话框中什么也没输入，或者按“取消取消”键返回，实际上将返回空串，程序键返回，实际上将返回空串，程序将出现将出现“类型不匹配类型不匹配”的错误。的错误。5.3 MsgBox函数函数 MsgBox函数用来向用户发布提示消息，并要求用户作出必要函数用来向用户发布提示消息，并要求用户作出必要的响应。它的使用形式是：的响应。它的使用形式是：MsgBox(pr

9、ompt, buttons , title , helpfile, context)Prompt 必需的。字符串表达式，作为显示在对话框中的消息。必需的。字符串表达式，作为显示在对话框中的消息。 Buttons 可选的。可选的。C1+C2+C3+C4，由，由4个数值常量相加组成的式子。如个数值常量相加组成的式子。如果省略，则果省略，则 buttons 的缺省值为的缺省值为 0。 C1：指定显示按钮的数目及形式，：指定显示按钮的数目及形式， C2：使用的图标样式，：使用的图标样式， C3：缺省按钮是什么：缺省按钮是什么 C4：对话框模式：对话框模式Title 可选的。在对话框标题栏中可选的。在对

10、话框标题栏中显示显示的字符串表达式。如果缺省，则的字符串表达式。如果缺省，则显示当前工程的名称属性显示当前工程的名称属性 。常数常数值值描述描述vbOKOnly0只显示确定按钮。只显示确定按钮。vbOKCancel1显示确定和取消按钮。显示确定和取消按钮。vbAbortRetryIgnore2显示放弃、重试和忽略按钮。显示放弃、重试和忽略按钮。vbYesNoCancel3显示是、否和取消按钮。显示是、否和取消按钮。vbYesNo4显示是和否按钮。显示是和否按钮。vbRetryCancel5显示重试和取消按钮。显示重试和取消按钮。vbCritical16显示临界信息图标。显示临界信息图标。vbQ

11、uestion32显示警告查询图标。显示警告查询图标。vbExclamation48显示警告消息图标。显示警告消息图标。vbInformation64显示信息消息图标。显示信息消息图标。vbDefaultButton10第一个按钮为默认按钮。第一个按钮为默认按钮。vbDefaultButton2256第二个按钮为默认按钮。第二个按钮为默认按钮。vbDefaultButton3512第三个按钮为默认按钮。第三个按钮为默认按钮。vbDefaultButton4768第四个按钮为默认按钮。第四个按钮为默认按钮。vbApplicationModal0应用程序模式：用户必须响应消息框才能继续在当应用程序

12、模式：用户必须响应消息框才能继续在当前应用程序中工作。前应用程序中工作。vbSystemModal4096系统模式：在用户响应消息框前，所有应用程序都系统模式：在用户响应消息框前，所有应用程序都被挂起。被挂起。Buttons 参数的取值参数的取值C1：第一组值：第一组值 (0 - 5) 用于描述对话用于描述对话框中显示的按钮类型与数目；框中显示的按钮类型与数目；C2：第二组值：第二组值 (16, 32, 48, 64) 用于用于描述图标的样式；描述图标的样式；C3：第三组值：第三组值 (0, 256, 512,768) 用于用于确定默认按钮；确定默认按钮；C4：第四组值：第四组值 (0, 40

13、96)则决定消息则决定消息框的样式。框的样式。该返回值是一个整数，这个整数反应了用户点击该返回值是一个整数，这个整数反应了用户点击MsgBox上的哪一个按钮。其具体返回值见下表。上的哪一个按钮。其具体返回值见下表。常数常数值值按钮按钮vbOK1确定确定vbCancel2取消取消vbAbort3放弃放弃vbRetry4重试重试vbIgnore5忽略忽略vbYes6是是vbNo7否否MsgBox 函数的返回值函数的返回值 Print方法的使用形式是：方法的使用形式是：Object.Print p1p2.s s是输出项之间的分隔符是输出项之间的分隔符, ,可以是逗号或分号可以是逗号或分号5.4 Pr

14、int方法方法Print方法用于将文本输出到方法用于将文本输出到窗体窗体上或上或图片框图片框上。如上。如果果Print方法不带有控件对象名时，它将把输出内容方法不带有控件对象名时，它将把输出内容输出到窗体上。输出到窗体上。p1,p2,.p1,p2,.是输出项是输出项当采用逗号作分隔符时，两个输出项分别输出到两个当采用逗号作分隔符时，两个输出项分别输出到两个标准分区；标准分区；而采用分号作分隔符时，两个输出项将紧接着输出。而采用分号作分隔符时，两个输出项将紧接着输出。可以使用可以使用Tab函数和函数和Spc函数配合定位输出。函数配合定位输出。Tab可实现绝对定位，可实现绝对定位，Spc可插入空格

15、。可插入空格。例例Private Sub Form_Click() Print 12345678901234567890 Print a; b; c; d Print a, b; Print c, d Print Tab(3); a; Tab(7); b Print Tab(3); a, Tab(18); b Print Tab(3); a, Tab(7); b Print a; Spc(3); b Print a ; Spc(3), b End SubCls 方法方法它的作用是清除绘图语句和它的作用是清除绘图语句和Print语句产生的文字和图形。语句产生的文字和图形。 语法格式：语法格式：o

16、bject. Clsobject指清除的对象，可以是窗体或图片框。缺省则为窗指清除的对象，可以是窗体或图片框。缺省则为窗体。体。注意：注意：Cls方法只能清除用方法只能清除用Print语句打印到对象语句打印到对象上面的文字，不能清除窗体中的标签控件上面的文字，不能清除窗体中的标签控件 注意： 若Print语句末尾有分隔符，则光标不换行，下一条Print语句从本行结束的地方开始 若Print语句的末尾没有分隔符，则光标另起一行，下一次Print语句从新的行开始 不含数据项的Print语句会打印一个空行例如(1) Print “123” ; Print “456” (2) Print “123”

17、Print “456” (3) Print “123” Print Print “456” 123456123456123456格式化格式化函数函数FormatFormat函数用于制定字符串或数字的输出格式函数用于制定字符串或数字的输出格式语法格式：语法格式：Format(数值表达式数值表达式,格式字符串格式字符串)(0) 数字占位符。显示一位数字或是零。数字占位符。显示一位数字或是零。占位符0的个数比要显示的位数多，在左边以0补齐。占位符0的个数比要显示的位数少，则“不够补到够”(#) 数字占位符。显示一位数字或什么都不显示。数字占位符。显示一位数字或什么都不显示。占位符0的个数比要显示的位

18、数多，多余的#作废。占位符0的个数比要显示的位数少，则“不够补到够” (.) 小数点占位符。显示小数位数。小数点占位符。显示小数位数。 (%) 百分比符号占位符。表达式乘以百分比符号占位符。表达式乘以 100。而百分比字符。而百分比字符 (%) 会插入到格式会插入到格式字符串中出现的位置上。字符串中出现的位置上。 (,) 千分位符号占位符。千位符号主要是把数值小数点左边超过四位数以上分千分位符号占位符。千位符号主要是把数值小数点左边超过四位数以上分出千位，小数部分不分位出千位，小数部分不分位。格式字符串的符号主要有以下一些：格式字符串的符号主要有以下一些：(+)显示正号。通常放在格式字符串的开头。显示正号。通常放在格式字符串的开头。(-)显示负号。通常放在格式