《可视化编程语言中数据的输入输出.》由会员分享，可在线阅读，更多相关《可视化编程语言中数据的输入输出.（47页珍藏版）》请在金锄头文库上搜索。
1、第第4 4章章 数据输入输出数据输入输出 4.1 数据输出-Print方法 4.2 数据输入-InputBox函数 4.3 MsgBox函数和MsgBox语句 4.4 字形 4.1 4.1 数据输出数据输出-Print-Print方法方法 1Print方法 Print方法的语法格式如下： .Print Spc(n)|Tab(n);|, 说明： （1）可以是窗体、图片框或打印机，如果是当前 窗体可省略； （2）中的表达式可以是算术表达式、字符串 表达式、关系表达式或布尔表达式。如果是字符串，则原 样输出（将双引号去掉后直接输出）；如果是正数，在数 值前有一个空格； 例如： Print 23*2=
2、；23*2 在当前窗体上输出23*2= 46 Picture1.Print Good “ 在图片框Picture1上输出Good Printer.Print Morning 在打印机上输出Morning （4）如果Print方法的行尾有逗号，则下一个Print方法的输出 内容，接着当前输出内容的后面，以标准格式输出；如果 Print方法的行尾有分号，则下一个Print方法的输出内容，接 着当前输出内容的后面，以紧凑格式输出；如果Print方法的 行尾，既没有逗号也没有分号，则自动换行； （5）如果省略表达式，则输出一个空行； （3）当输出多个表达式时，如果表达式之间用逗号“,”分 隔，则以标准
3、格式（14个字符的宽度）输出；如果表达式 之间用分号“;”分隔，则以紧凑格式（连续）输出； 5 例如： Print 1；2；3 Print 4，5， Print 6 Print 7，8 Print Print 9，10 1 2 3 4 5 6 7 8 9 10 6 (5) Print方法具有计算和输出双重功能，对于表达式， 先计算后输出。 例如：x=5:y=10 Print (x+y)/3 注： Print没有赋值功能。所以不能写成： Print z=(x+y)/3 2与Print方法有关的函数 1）. Tab函数 Tab函数的格式： Tab(n) 从输出对象左边的第n列或第n个字符的位置开始
4、输出。 其中n为整数表达式，用它来指定输出的起始位置。 在使用Tab函数时，要将输出的内容放在Tab函数的后面， 并用“；”隔开。 例如： Print Tab(25);800 说明 1) 通常最左边的列号为1，如果当前的显示位置已经超过n， 则自动下移一行。 2) 当在一个Print方法中有多个Tab函数时，每个Tab函数对应 一个输出项，各输出项之间用分号隔开。 3) Tab函数中的参数可以省略，在这种情况下，Tab与逗号的作 用相同。 2）. Spc函数 Spc函数格式： Spc(n) 其中n为整数表达式，表示在下一个输出项之前插入的空格 数，Spc函数与各输出项之间必须用“；” 隔开。
5、例如： Print “ABC”;spc(8);”DEF” 先输出“ABC”，然后跳过8个空格，显示“DEF” 注意：Tab函数需要从对象的左端开始计数；Spc函数只表示 两个输出项之间的间隔。 3窗体或图片框的清除方法 Cls方法可以清除窗体或图片框中用Print方法和图形方法 在程序运行时所产生的文本或图形，清除后的区域以背景 色填充。Cls方法的语法格式如下： .Cls 其中，可以是窗体或图片框，如果省略， 则清除当前窗体上用Print方法和图形方法在程序运行时所 产生的文本或图形。 4.格式输出函数 format 使用格式化函数Format（）可以使数值、日期或 字符型数据按指定的格式输
6、出。 函数格式: Format(数值表达式,格式字符串) 函数功能: 按格式字符串指定的格式输出数值表达式的值。 格式说明字符： “格式字符串”是一字符串,它由专门的格式说明 字符组成。“格式字符串”的形式可以是变量、 常量。 数值型说明： (1)“#”：表示一位数字，要用几位数字就用几个# 号。 如果要显示的位数少于 # 的个数，则该数靠左显 示，多余的#位作废，不补。 如果要显示的位数多于 # 的个数，则数值照原样 输出，即“不够补到够”。 例：Print format(1234,#) 显示结果为： 1234 (2)“0”：与#功能相同，只是多余位在前面以0补 齐。 例：Print for
7、mat(1234,000000) 显示结果为：001234 (3)“.”：显示小数位。 小数位与#或0结合使用。小数太长四舍五入，多 余的小数位#作废、0则后补0。 例：Print format(12.34567,#.#) 显示结果为：12.346 Print format(12345.67,00000.000) 显示结果为：12345.670 (4)“,”：逗号。起千位分位作用，即从小数点左边 第一位开始，每3位整数用一个逗号分开，小数不 分位。 例1： Print format(1234567.12345,#,#.#) 显示结果为： 1,234,567.12345 注意：逗号必须放在整数部
8、分中间，但不能放在整 数部分的开头、结尾，更不能放在小数部分。 (5)“%”：显示百分号。通常放在格式字符串的尾 部，输出百分号。 例：Print format(0.123,00.00%) 显示结果为：12.30% (6)“$”：显示美元符号。放在格式字符串的最开头 。 例：Print format(123.4,$#00.000) 显示结果为：$123.400 (7)“+”：显示正号。通常放在格式字符串的开头 。 (8)“-”：显示负号。通常放在格式字符串的开头。 (9)“E+(E-)”：用指数形式显示数值。 例：Print format(1234.56,0.00E+00) 显示结果为：1.2
9、3E+03 4.2 4.2 数据输入数据输入-InputBox-InputBox函数函数 用InputBox函数（输入框函数）产生一个输入框，可以输入 一个数据（文本），用户输入数据后，按回车键或单击“确定 ”按钮，将输入数据赋给赋值符号前的变量。其语法格式如下 ： 变量名=InputBox(,) 提示信息 标题 默认值 其中，是必选参数，是字符串表达式，在对话 框中作为提示信息。若要在多行显示提示信息，则可以在 各行之间用vbNewLine或chr(13)来分隔，vbNewLine是代表 换行的常量。 例如：InputBox (第一行 Tab(8); 姓名; Tab(16); 年龄; Tab
10、(24); 籍贯 Print 0501; Tab(8); 李美; Tab(16); 18; Tab(24); 湖南 Print 0502; Tab(8); 王强; Tab(16); 19; Tab(24); 上海 End Sub 例：从键盘上输入4个数，编写程序，计算并输出这 4个数的和及平均数。通过inputbox函数输入数据 ，在窗体上单击时，显示和及平均数。 Private Sub Form_Click() Dim a%, b%, c%, d%, s%, v! a = InputBox(输入第一个数：) b = InputBox(输入第一个数：) c = InputBox(输入第一个数：
11、) d = InputBox(输入第一个数：) s = a + b + c + d v = s / 4 Print 所输入4个数字分别为：; a, b, c, d Print 4个数的和为：; s Print 4个数的平均值为：; v End Sub 例子：要求单击窗体时弹出输入框，提示输入客户名字，并例子：要求单击窗体时弹出输入框，提示输入客户名字，并 将输入内容输出到屏幕上。如下图：将输入内容输出到屏幕上。如下图： 过程代码： Private Sub Form_Click() msg1$ = 输入雇客名字: msg2$ = 输入后按回车键 msg3$ = 或单击确定按钮 msg$ = ms
12、g1$ + Chr(13) + msg2$ + Chr(13) + msg3$ custname$ = InputBox(msg$, “测试输入函数, “TOM) Print custname$ End Sub 例:编程程序，试验Msgbox函数的功能。出现如下对话框。 并将Msgbox函数的返回值输出到屏幕上。 过程代码： Private Sub Form_Click() Dim a, msg1, msg2 As String msg1 = 确认继续吗？ msg2 = 操作对话框 a = MsgBox(msg1, 34, msg2) Print a End Sub 【例】营业员工资计算。要求：基本工资 与营业额通过inputbox函数输入，并在文本 框 中显示。 某商场的营业员的工资由基本工资和营业额提成两部分 构成，其中营业额提成为营业额的5%。 Private Sub Command1_Click() Dim a!, b!, c! a = InputBox(员工工资, 输入信息, 55) Text1.Text = a b = InputBox(员工营业额, 输入信息, 55) Text2.Text = b c = a + b * 0.05 Text3.Text = c End Sub
