预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共49页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

会计学4.1数据(shùjù)的输入4.1.1InputBox函数调用格式InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos])(1)Prompt(提示信息,为必选项):字符串,长度不超过1024个字符,用来提示用户输入。(2)Title(标题):字符串,是对话框的标题,显示在对话框标题区。(3)Default(默认):字符串,如果在输入框中无输入时,则改默认值作为输入的内容。(4)Xpos,Ypos(坐标位置):两个整数值,确定对话框左上角在屏幕上的位置。如果省略,则对话框在屏幕上水平(shuǐpíng)居中,垂直方向上大约处于屏幕1/3处。例如:PrivatesubForm_Click()c1$=chr$(13)+chr$(10)str1$=“请输入一串字符:"str2$=“输入后按回车键,或单击确定按钮"msg$=str1$+c1$+str2$ss$=InputBox$(msg$,“输入函数(hánshù)InputBox示例”,“hello")Printss$EndSub(1)函数的返回值为一字符串。变量名=InputBox(参数表)输入数值时,函数值需利用Val函数转换为数值后,再参加运算。(2)每执行一次InputBox函数只能输入一个值。需要输入多个值,则必须(bìxū)多次执行或调用InputBox函数例:输入(shūrù)三角形的边长,求面积。4.2数据(shùjù)的输出4.2.1Print方法(fāngfǎ)(1)输出多个字符串①用逗号分隔,则按标准(biāozhǔn)输出格式显示各数据,以14个字符位置为单位把一个输出行分为若干个区段(输出区),逗号后的表达式在下一个区段输出。②用分号分隔,则按紧凑格式输出数据(2)输出数值(shùzí)在数值(shùzí)的左面有一个符号位,在数值(shùzí)的右侧有一个空格(3)每执行一次Print方法(fāngfǎ)要自动换行,除非末尾加上一个分号或逗号。(4)Print方法(fāngfǎ)后面无任何表达式,表示输出一个空行;如果上一个空Print方法(fāngfǎ)的末尾有逗号或分号时,则该Print语句表示结束上一个Print方法(fāngfǎ)末尾的逗号或分号.例如:PrivateSubForm_Click()a$="5":b$="8"Debug.Printb,a'每执行一次Print要自动换行Debug.Printa,b,Debug.Print13'和上一个Print在同一行输出Debug.Print"下面输出一个空行"Debug.Print'输出空行Debug.Printb;a;Debug.Print'结束上一个语句末尾的逗号或分号Debug.Printb,aEndSub功能:格式(géshi)化输出函数规定输出数据的格式(géshi),返回值是字符串。格式(géshi):Format(Expression,FormatSTR)说明:Expression:是要输出的内容,数值、日期或字符串类型的数;FormatSTR:是指定输出格式(géshi)的格式(géshi)字符串。Format()函数一般用于Print方法中。例如:PrintFormat(123.45,”###.##”)输出为:123.451.数值格式化将数值表达式的值按照指定的格式输出。若小数部分的位数多于格式字符串的小数位数,按四舍五入(sìshěwǔrù)处理。字符数值(shùzí)格式化举例:2.日期与时间(shíjiān)数据的格式化输出将日期和时间(shíjiān)数据按照指定的格式输出y注意:①m,mm:跟在h,hh后的时候表示分钟;否则表示月份(yuèfèn)②非格式说明符“-”、“/”、“:”等照原样输出举例:PrivateSubForm_Click()PrintFormat(Now,"yyyy-mm-dddddd")PrintFormat(Now,"ddddd")PrintFormat(Now,"yyyy-mm-ddddddhh-mm-ssam/pm")PrintFormat(Now,"ddmmmmyyyy")PrintFormat(Now,"h:mm:ss")PrintFormat(Now,"m/d/yyh:mm")EndSub3.字符串格式化输出(shūchū)例如(lìrú):PrivateSubForm_Click()PrintFormat(“HOWAREYOU”,"<")PrintFormat(“howareyou”,">")PrintFormat(“howareyou”,“@@@@@@@@@@@@@"