3.8过程及函数.ppt

VB程序设计 徐梅 3.7 Visual Basic数据的输入输出 输入输出函数 （1）输入函数： 变量=InputBox(提示信息[,对话框标题][,默认值][,X坐标, Y坐标]） （2）输出函数： 变量= MsgBox(提示信息 [,对话框类型] [,对话框标题]） 数据输出——Print方法 语法格式： [对象名称.]Print[{Spc(n)|Tab(n)}][表达式列表][{，|；}] 例如：print “abc”、print 2+5 表达式列表：是一个或多个表达式，可以是数值表达式或字符串。如果省略“表达式列表”，则输出一个空行。 Print方法具有计算和输出的双重功能，对于表达式，总是先计算后输出。 当输出多个表达式时，各表达式之间用逗号“，”或分号“；”隔开。控制各输出项输出位置 在语句行的未尾使用分号“；”或逗号“，”，控制下一个Print 输出的内容输出位置。如果省略，则Print方法将自动换行。 （1）Tab 函数 格式： Print 【Tab (n)；】[表达式列表][；|，] 指从n指定的列，开始输出数据。有多个输出项时用分号“；”隔开。 例如： Print Tab (10); “学号”; Tab (30) ; “姓名” 注意：如果当前的显示位置已经超过n，则自动下移一行。当n大于行的宽度时，显示位置为n Mod 行宽。 （2）Spc函数 格式： Print 【 Spc (n)；】[表达式列表][；|，] 表示在输出下一个表达式之前输入的n个空格。Spc 函数与输出项之间用分号隔开。例如： 例如：Print “ABC”;Spc(5); “DEF” ′输出ABC DEF 【例3.13】 编写程序在窗体上输出如图2 一 20 所示的图形。 Private Sub Form_Click() Print For i = 5 To 1 Step -1 Print Tab(5); Print Spc(10 - 2 * i); For j = 1 To 2 * i - 1 Print *; Space(1); Next j Print Spc(8); For k = 1 To 11 - 2 * i Print *; Space(1); Next k Print Next i End Sub 注意：String(n，“*”)函数的作用是连续输出n个“*”。可以改编上例。 Private Sub Form_Click( ) Dim I As Integer For i=1 to 5 Print tab(5+2*（i-1));String(9-2*(i-1),“* ”);Spc(8); String (1+2*(i-1), “* ”) Next i End Sub 如果 使用Print 方法输出如下图形，编码如何修改？ ? ***** * **** ** *** *** ** **** * ***** ? (3)Format 函数 使数值、日期或字符型数据按指定格式输出，其语法格式为： Print Format（表达式，格式字符串） 表达式：可以是数值型、日期型或字符型的表达式。 格式字符串：由专门的格式说明字符组成，决定输出项的输出格式和长度。格式字符串，必须放在双引号中。 主要有3种格式字符串：数值格式、日期格式、字符串格式。 Format 函数 常用的数值型格式说明字符如下： # - 数字占位符。表示保留小数和整数的位数.如果实际数字小于符号位数，则数字前后不加0。例如： Format (12.34,“###.###“) ′返回12.34 0 - 数字占位符，如果实际数字小于符号位数，则数字前后加0。例如： Format（12.34, “000.000”） ′返回012.340 注意：对于0和#格式符，如果实际数字的 整数部分大于符号位数，按实际数值显示； 若小数部分多于格式串，则四舍五入显示 . - 小数点占位符，加小数点；例如： Format（1234, “0000.00”）