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$EndSub1)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<bThenMsgBox("不能构成三角形，请重新输入个边")GoTostartEndIft=(a+b+c)/2:s=Sqr(t*(t-a)*(t-b)*(t-c))Print"该三角形的面积：";sEndSub4.2.1Print方法Print方法的格式如下:[对象名称.]Print[表达式表][,|;]1）对象名称是窗体、图片框、打印机或立即窗口，“对象名称”省略时为窗体2）“表达式”是被输出的内容，可以是数值表达式或字符表达式例如：Debug.Print“在立即窗口输出数据”Print5+7例：新建工程，当单击窗体时在立即窗口中输出数据PrivateSubForm1_Click()a$=“儒风海韵”b$=“容纳百川”Debug.Printa$Debug.Printb$EndSub3)多个表达式时，用逗号、分号隔开①用逗号分隔，则按标准输出格式显示各数据，以14个字符位置为单位把一个输出行分为若干个区段（输出区），逗号后的表达式在下一个区段输出。②用分号分隔，则按紧凑格式输出数据例如：PrivateSubForm1_Click()a=12:b=-3c$=“求实创新”:d$="海纳百川"Debug.Printc$,d$'分区输出Debug.Printc$;d$'紧凑格式输出Debug.Printa,b'分区输出Debug.Printa;b+aEndsub④Print方法具有计算和输出的双重功能⑤每执行一次Print方法要自动换行,除非末尾加上一个分号逗号⑥Print方法后面无任何表达式,表示输出一个空行;如果上一个空Print方法的末尾有逗号或分号时，则该Print语句表示结束上一个Print方法末尾的逗号或分号例如：PrivateSubForm_Click()a$=“5”:b$=“8”Debug.Print“下面输出一个空行”Debug.PrintDebug.Printb;a;Debug.PrintDebug.Printb,aEndSub格式:Format(Expression,FormatSTR)Expression是要输出的内容,数值、日期或字符串类型的数据FormatSTR是指定输出格式的格式字符串Format()函数一般用于Print方法中,返回值是字符串1.数值格式化将数值表达式的值按照指定的格式输出,若小数部分的位数多于格式字符串的位数，按四舍五入处理字符2．日期与时间数据的格式化输出将日期和时间数据按照指定的格