第4章数据的输入输出.ppt

4.1.1InputBox函数
InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos][,Helpfile,Context])
1)Prompt:字符串,长度不超过1024个字符,用来提示用户输入。文本
可自动换行。如想强制插入回车换行则用：Chr$(13)+Chr$(10)
2)Title：字符串，是对话框的标题，显示在对话框顶部的标题区
3)Default:字符串，用来显示输入缓冲区的默认信息
4)Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；
如果省略，则对话框显示在屏幕中心线向下约1/3处
5)Helpfile，Context：Helpfile是字符串表示帮助文件的名字；
Context是数值变量或表达式，表示相关帮助主题的帮助目录号
例如：
PrivatesubForm_Click()
c1$=chr$(13)+chr$(10)
str1$=“请输入一串字符:"
str2$=“输入后按回车键,或单击确定按钮"
msg$=str1$+c1$+str2$
ss$=InputBox$(msg$,“输入函数InputBox示例”,“hello")
Printss$
EndSub

1)Default表示输入的初始默认值，如果直接按下回车键或单击“确定”按钮，函数的返回值（函数值）为该默认值
2）变量名=InputBox(参数表）
输入数值时，函数值利用Val函数转换为数值后，再参加运算。如果变量已被正确地定义了类型时，则不必进行类型转换
3）输入数据后，按回车键或单击“确定”按钮表示确认，并返回在文本框中输入的数据；如果单击“取消”按钮（或按Esc键）时，则取消当前的输入，此时该函数返回一个空字符串
4）需要输入多个值，则必须多次执行或调用InputBox函数

PrivateSubForm_Click()
Dima!,b!,c!,s!,t!
Start:
a=val(InputBox(“输入1边长：”))
b=val(InputBox(“输入2边长：”))
c=val(InputBox(“输入3边长：”))
Ifa+b<cOrb+c<aOra+c<bThen
MsgBox("不能构成三角形，请重新输入个边")
GoTostart
EndIf
t=(a+b+c)/2:s=Sqr(t*(t-a)*(t-b)*(t-c))
Print"该三角形的面积：";s
EndSub
4.2.1Print方法
Print方法的格式如下:
[对象名称.]Print[表达式表][,|;]
1）对象名称是窗体、图片框、打印机或立即窗口，“对象名称”省略时为窗体
2）“表达式”是被输出的内容，可以是数值表达式或字符表达式
例如：Debug.Print“在立即窗口输出数据”
Print5+7

例：新建工程，当单击窗体时在立即窗口中输出数据
PrivateSubForm1_Click()
a$=“儒风海韵”
b$=“容纳百川”
Debug.Printa$
Debug.Printb$
EndSub
3)多个表达式时，用逗号、分号隔开
①用逗号分隔，则按标准输出格式显示各数据，以14个字符位置为单位把一个输出行分为若干个区段（输出区），逗号后的表达式在下一个区段输出。
②用分号分隔，则按紧凑格式输出数据
例如：PrivateSubForm1_Click()
a=12:b=-3
c$=“求实创新”:d$="海纳百川"
Debug.Printc$,d$'分区输出
Debug.Printc$;d$'紧凑格式输出
Debug.Printa,b'分区输出
Debug.Printa;b+a
Endsub④Print方法具有计算和输出的双重功能
⑤每执行一次Print方法要自动换行,除非末尾加上一个分号逗号
⑥Print方法后面无任何表达式,表示输出一个空行;如果上一个空Print方法的末尾有逗号或分号时，则该Print语句表示结束上一个Print方法末尾的逗号或分号
例如：PrivateSubForm_Click()
a$=“5”:b$=“8”
Debug.Print“下面输出一个空行”
Debug.Print
Debug.Printb;a;
Debug.Print
Debug.Printb,a
EndSub
格式:Format(Expression,FormatSTR)
Expression是要输出的内容,数值、日期或字符串类型的数据FormatSTR是指定输出格式的格式字符串
Format()函数一般用于Print方法中,返回值是字符串
1.数值格式化
将数值表达式的值按照指定的格式输出,若小数部分的位数多于格式字符串的位数，按四舍五入处理
字符2．日期与时间数据的格式化输出
将日期和时间数据按照指定的格