VB程序设计第4章

1、第第 4 章章 数据输入输出数据输入输出 Print方法、InputBox函数和MsgBox函数、 语句； 理解Format函数和Tab与Spc函数;程 序控制流程；了解应用程序开发基本方法。 Print方法及其tab()、spc()、format()函数 的使用。InputBox函数、MsgBox函数和语 句。 2课时 v 4.1 数据输入输出控件数据输入输出控件 v 4.2 数据输出方法数据输出方法 v 4.3 数据输入输出函数和过程数据输入输出函数和过程 v 4.4 字体、字形和颜色字体、字形和颜色 v 4.5 打印机输出打印机输出 数据输入输出控件控件： 数据输出方法方法 方法的使用和

2、输出结果， Tab()、 Spc()、 Format()函数的用法。 数据输入输出函数函数和过程过程 的用法和返回值处理及过程的用法 P63例题4-1 利用两个标签控件，显示具有浮雕效果的文 字。 原理：浮雕效果实际上是使显示的文字利用白色和黑色的错 位叠加来实现。 4.1.14.1.1 用标签输出数据用标签输出数据 4.1.24.1.2 用文本框输入输出数据用文本框输入输出数据 P64例题4-2 文本框1输入字符时，文本框2中显示相应 的Ascii码值。 思考：如果改为思考：如果改为ChangeChange事件，要实现同样功能代码该如何改写？事件，要实现同样功能代码该如何改写？ P64例题4

3、-3 利用文本框对输入的非数字数据进行字符串连接。 IsNumeric 4.2.1 Print 4.2.1 Print 方法方法 窗体(如form1)、图片 框(如picture1)、打印 机(printer)、立即窗口 (debug) l变量存放在变量里的值 l表达式计算后输出 l字符串原样输出 l无输出空行 标准格式标准格式 紧凑格式紧凑格式 每每1414列作为一个输出区段列作为一个输出区段 Private Sub form_click() x = 3: y =- 6 Print 0123456789012345678901234567890123456789 Print x; y Pri

4、nt x,y print Print “x*y; x*y Print 1, 2, Print 3; Print 4 End Sub ，以，以1414列分区段输出。列分区段输出。 ；紧凑输出紧凑输出 数字前面是符号位数字前面是符号位, ,后面是空格；后面是空格； 字符前后无空格；字符前后无空格； 无空行无空行 表示一行的输出表示一行的输出“未完待续未完待续”, ,继续在同继续在同 一行按标准或紧凑格式输出下一个信息。一行按标准或紧凑格式输出下一个信息。 4.2.2 4.2.2 与与Print Print 方法有关的函数方法有关的函数 格式：格式：TabTab（n n） 作用：作用：与与Print

5、Print方法一起使用，在参数方法一起使用，在参数n n指定的位置输指定的位置输 出其后的表达式的值出其后的表达式的值。 说明：说明： 1 1） n n是数值表达式，值为整数，若省略，则将输出点移动是数值表达式，值为整数，若省略，则将输出点移动 到下一个输出区的起点。到下一个输出区的起点。 2 2）若）若n n小于小于1 1，则，则tabtab将输出位置移动到第将输出位置移动到第1 1列。若列。若行宽，行宽， 从从n mod n mod 行宽行宽 列输出列输出. . 3 3）一个）一个printprint方法中使用多个方法中使用多个TabTab函数时，每个函数时，每个TabTab函函 数对应一

6、个输出项，数对应一个输出项，各项之间用分号隔开各项之间用分号隔开。 例例:Tab:Tab函数：函数：Print Print Tab(4);“Hello”;tab;”World”Tab(4);“Hello”;tab;”World” 1 1、TabTab函数函数 格式：格式：Spc(n)Spc(n) 作用：使光标从当前位置跳过作用：使光标从当前位置跳过n n个空格，对输出进行定位。个空格，对输出进行定位。 例：比较例：比较Tab()Tab()和和spc()spc()： 3、Format函数函数 格式：格式：Format$(Format$(数值表达式数值表达式, ,格式字符串格式字符串) ) 作用：

7、使数值表达式的值按作用：使数值表达式的值按“格式字符串格式字符串”制定的格式输出。制定的格式输出。 数值格式化输出：数值格式化输出：P68P68表表4 43 3 日期和时间格式化：日期和时间格式化：P69P69表表4 44 4 例：例： Print format(12345.6,”000,000.00”)Print format(12345.6,”000,000.00”) Print format(12345.6,”#,#.#”) Print format(12345.6,”#,#.#”) Print format(12345.6,”$#,#0.00”) Print format(12345.

8、6,”$#,#0.00”) Print format(0.123,” 0.00%”) Print format(0.123,” 0.00%”) Print format(12345.6,” 0.00E+00”) Print format(12345.6,” 0.00E+00”) 0-0-整数：数据位整数：数据位符号位原样显示符号位原样显示,符号位四舍五入，符号位四舍五入，符号位四舍五入，符号位四舍五入，则原样输出。则原样输出。 ，- -千分位分隔符千分位分隔符 - -英文小写英文小写 - -数据位数据位符号位时，左端补空格。符号位时，左端补空格。 作用作用:产生一个对话框，等待用户输入数据或按

9、下按钮，并返回所输产生一个对话框，等待用户输入数据或按下按钮，并返回所输 入的内容。入的内容。 格式： 变量变量=Inputbox (=Inputbox (提示提示, ,标题标题,缺省值缺省值, , ,x,y) ,x,y) S=InputBox(“S=InputBox(“请输入请输入0 0或或1 1以代表硬币的正反面以代表硬币的正反面”，“猜硬猜硬 币币”，“0”“0”,10,10,10,10） 提示如果要提示如果要多行显示多行显示，可以使用，可以使用vbcrLfvbcrLf或或chr(13)+chr(10)chr(13)+chr(10) 标题 4.3.1 InputBox4.3.1 Inpu

10、tBox函数函数 ( (返回值是字符串）返回值是字符串） 缺省值 提示 字符串 编写一个程序，窗体上有一个命令按钮（标题为 “输入学生成绩”,出现如上图所示的学生成绩输入对 话框，输入一个成绩，将成绩打印在窗体上。 Private Sub Command1_Click() Dim s As _ 定义变量S s = _ 显示输入对话框 Print _ 打印输入的成绩 End Sub 注意：注意： Private Sub Form_Click()Private Sub Form_Click() x = InputBox(“x = InputBox(“请输入整数：请输入整数：”, “”, “inpu

11、t”input”，100)100) y = InputBox (“y = InputBox (“请输入整数：请输入整数：”,“”,“input”input”，100100） Print x + yPrint x + y End SubEnd Sub : :运行后输入运行后输入2 2个个10001000，窗体上将显示：，窗体上将显示： ( (A) 1000A) 1000(B)2000(B)2000(C)10001000(C)10001000(D)(D)出错出错 ：输入：输入2 2个个10001000，要得到，要得到2000,2000,PrintPrint语句应该如何更改？语句应该如何更改？ ：每

12、个：每个InputBoxInputBox函数可输入几个数据：函数可输入几个数据： ( (A)A)个个( (B)B)个个( (C)C)最多最多1010个个( (D)D)任意任意 在在VBVB中，它是用中，它是用函数或语句产生的！函数或语句产生的！ 作用：作用：向用户传送信息，接收用户的响应，返回一个整数值，以 决定其后的操作。 格式：格式： 参数说明： 1、msg 提示字符串； 2、type 为 ，用来控制在对话框内显示的按钮、图标的种类及数 量。包括三部分：； 3、title 用来显示对话框 标题的字符串。 a=MsgBox(程序运行完毕”,vbOKOnly+vbCritical,暂停) 常数

13、常数值值描述描述 vbOKOnlyvbOKOnly 0 0 只显示只显示 OK OK 按钮。按钮。 vbOKCancelvbOKCancel 1 1 显示显示 OK OK 及及 Cancel Cancel 按钮。按钮。 vbAbortRetryIgnorevbAbortRetryIgnore 2 2 显示显示 AbortAbort、Retry Retry 及及 Ignore Ignore 按钮按钮。 vbYesNoCancelvbYesNoCancel 3 3 显示显示 YesYes、No No 及及 Cancel Cancel 按钮。按钮。 vbYesNovbYesNo 4 4 显示显示 Y

14、es Yes 及及 No No 按钮。按钮。 vbRetryCancelvbRetryCancel 5 5 显示显示 Retry Retry 及及 Cancel Cancel 按钮按钮。 vbCriticalvbCritical 1616 显示显示 关键信息关键信息 图标图标。 vbQuestionvbQuestion 3232 显示显示 图标图标? ?。 vbExclamationvbExclamation 4848 显示显示 图标图标! !。 vbInformationvbInformation 6464 显示图标显示图标i i。 vbDefaultButton1vbDefaultButt

15、on1 0 0 第一个按钮是缺省值。第一个按钮是缺省值。 vbDefaultButton2vbDefaultButton2 256256 第二个按钮是缺省值。第二个按钮是缺省值。 vbDefaultButton3vbDefaultButton3 512512 第三个按钮是缺省值。第三个按钮是缺省值。 vbDefaultButton4vbDefaultButton4 768768 第四个按钮是缺省值。第四个按钮是缺省值。 P73 P73 表表4-64-6 a=MsgBox(a=MsgBox(程序是否继续程序是否继续,33,33,问题问题) ) a=MsgBox(“a=MsgBox(“程序是否继续

16、程序是否继续”,2+48+0,”,2+48+0,中断中断) ) 按“终止”后，返回值 a=? 1+32+0 常数常数值值描述描述 vbOKvbOK1OKOK vbCancelvbCancel2CancelCancel vbAbortvbAbort3AbortAbort vbRetryvbRetry4RetryRetry vbIgnorevbIgnore5IgnoreIgnore vbYesvbYes6YesYes vbNovbNo7NoNo Msgbox函数返回值（即上面例子中的a）是一个， 这个整数与所选择的命令按钮有关。 格式：格式： MsgBox Msg ,type ,titleMsgB

17、ox Msg ,type ,title 说明：说明： 各参数的含义及作用与各参数的含义及作用与MsgBoxMsgBox函数相同。函数相同。 ：，因此常被用于简单的因此常被用于简单的 信息显示。信息显示。 类似于类似于的使用。的使用。 例题：通过输入对话框输入一个学生的成绩，例题：通过输入对话框输入一个学生的成绩， 再将这个学生的成绩用再将这个学生的成绩用msgboxmsgbox过程显示出来。过程显示出来。 4.4.1 属性列表的属性列表的FontFont属性属性 工程设计阶段，可直接在属性窗口中选择“Font” 属性来设置显示文本的字形。 4.4.2 字体类型和大小字体类型和大小 字体类型：

18、窗体.控件. FontName =“字体类型” 字体大小： FontSize= (小四是错误的） 粗体字： FontBold=Boolean 斜体字： FontItalic=Boolean 加中划线： FontStrikethru=Boolean 加下划线： FontUndeline=Boolean 重叠显示： FontTransparent=Boolean 以上属性均以Boolean为True时生效，为False则反之。 1. 通过调色板可视化地设置颜色 2. 程序运行时使用颜色参数设置颜色： 直接输入颜色数值 &HBBGGRR& 例： form1. forecolor= RGB(0,255,0) 绿色 form1.forecolor= QBColor(2) form1.forecolor= vbGreen form1. forecolor=&HFF00& 格式： 表达式 功能：将表达式的值在打印机上打印出来。 在打印机对象中的其他方法和属性 Printer.Page 返回当前页