第5章数据输入输出.pptVIP

Move 0, 0, 4000, 4000 Text1.Move 0, 0, 1000, 1000 Command1.Move 1100, 0, 1000, 1000 * * 日期和字符串的格式化请参见帮助 MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。 Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# 以系统设置的长时间格式返回当前系统时间。 MyStr = Format(Time, Long Time) 以系统设置的长日期格式返回当前系统日期。 MyStr = Format(Date, Long Date) MyStr = Format(MyTime, h:m:s) 返回 17:4:23。 MyStr = Format(MyTime, hh:mm:ss AMPM) 返回 05:04:23 PM。 MyStr = Format(MyDate, dddd, mmm d yyyy) 返回 Wednesday, Jan 27 1993。 如果没有指定格式，则返回字符串。 MyStr = Format(23) 返回 23。 用户自定义的格式。 MyStr = Format(5459.4, ##,##0。00) 返回 5,459.40。 MyStr = Format(334。9, ###0。00) 返回 334.90。 MyStr = Format(5, 0。00%) 返回 500.00%。 MyStr = Format(HELLO, ) 返回 hello。 MyStr = Format(This is it, ) 返回 THIS IS IT。 * * * 第一组值 (0–5) 描述了对话框中显示的按钮的类型与数目；第二组值 (16, 32, 48, 64) 描述了图标的样式；第三组值 (0, 256, 512) 说明哪一个按钮是缺省值；而第四组值 (0, 4096) 则决定消息框的强制返回性。将这些数字相加以生成 buttons 参数值的时候，只能由每组值取用一个数字。 * * * 第5章 数据输入输出 教学内容： 5.1 数据输出-- Print方法 5.2 数据输入--InputBox函数 5.3 MsgBox函数和MsgBox语句 5.4 字形 5.5 打印机输出 5.1 数据输出-- Print方法 1. Print方法 功能：在窗体/立即窗口/图片框/打印机上输出信息 格式：[对象名称.] Print [表达式表] [ , | ; ] [对象]缺省为当前窗体，[输出项]缺省则打印一空白行 输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。两个输出区默认相隔14列。 Print 方法具有计算和输出双重功能,但无赋值功能。 每执行一次print方法要自动换行。为了仍在同一行显示，可在行尾加上一个分号或逗号。 例， Private Sub Form_Click() Print Print Tab(15); * Print Tab(13); *; Spc(1); *; Spc(1); *“ End Sub 5.1 数据输出-- Print方法 2 与Print方法有关的函数 1）Tab函数 格式：Tab（n） 参数n为数值表达式，是下一个输出位置的列号，最左边为1； 若n比行宽，显示位置为n mod 行宽。若小于1，则输出位置移到第一列。 当在一个print方法里面有多个TAB函数时，各输出项间用分号分隔。 逗号和分号作用同print 5.1 数据输出-- Print方法 2）Spc函数 格式：Spc（n） 3）空格函数 格式：Space（n） 4）cls方法 格式：[对象.]Cls 5）Move方法 格式： [对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 5.1 数据输出-- Print方法 5.1 数据输出-- Print方法 3. 格式输出 功能：使数值、日期或字符串按指定的格式输出 格式：Format$(表达式 [, 格式字符串]) 5.1 数据输出-- Print方法 5.2 数据的输入输出－数据输入 功能：生成输入对话框 ， 常用格式： InputBox(prompt[, title] [, default] [, xpos] [, ypos][.helpfile,context]) p