《VB的输入和输出》PPT课件.ppt

1,第6讲,数据的输入输出,本章内容及要求：,数据的输入函数 常用的格式定位函数 常用的数据输出函数,重点：常用的输入输出函数，键盘与鼠标事件过程,难点：Inputbox、Msgbox函数,2,4.1 数据输入,一、 InputBox函数,变量名=InputBox(， , ) 例如，要在屏幕上显示如下的对话框:,3,【说明】 该函数的返回值默认为字符串，如果要把返回值进行其他类型的处理，要么事先声明返回值的类型，要么对返回的字符串进行类型转换。 注意：一个InputBox函数只接受一个值的输入。 ：必选项，提示用户在输入框中输入信息，长度不能超过1 024个字节。 ：在对话框的标题栏显示的标题信息，如果默认，则标题为“工程1”。,4,：指用户在输入框输入信息之前在其中显示的内容。无论是否输入新的信息，单击“确定”按钮后，返回输入框的当前值；单击“取消”按钮，则返回长度为零的字符串。 ：确定对话框的位置，分别表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现。,5,【例4-1】 在对话框中输入圆的半径，如图4-1所示，计算并输出圆的面积，如图4-2所示。,图 4-1 输入圆的半径,6,图4-2 计算并输出圆的面积,7,“面积计算”命令按钮对应代码如下： Private Sub Command1_Click() Dim r, s As Single r = InputBox(“请输入半径：“, “计算圆的面积“, 1) s = 3.14 * r * r Print Print “ 圆的面积是 ： “; s End Sub,8,4.1.2 MsgBox()函数 格式：变量= MsgBox( , ,) 其中:对话框类型=按钮图标+ 缺省按钮+模式,9,说明： 消息对话框用于提示用户进行后面操作的选择，作为继续执行程序的依据。 ：必选项，提示用户在输入框中输入信息，长度不能超过1 024个字节。,10,：为整数或符号常量，用于指定对话框中出现的控制按钮和图标的种类和数量，一般有4个参数，用“”号相连，参数的取值可以是数字形式和符号常量形式。如果默认某个参数，不能省略逗号，要以逗号标识是哪个默认。第1个参数表示对消息框中按钮数目的选择，第2个参数表示对消息框中图标类型的选择，第3个参数表示对消息框中默认按钮的选择，第4个参数表示消息框的模式值。参数的取值和含义分别如表4-1、表4-2和表4-3所示。,11,表4-1 第1个参数按钮类型,12,表4-2 第2个参数图标类型,13,表4-3 第3个参数默认按钮,14,MsgBox函数的返回值反映了用户选择的按钮，返回值与按钮类型的对应情况如表4-4所示。 表4-4 返回值与按钮类型的对应情况,15,【例4-2】 显示如图4-3（a）所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，默认按钮为“是(Y)”按钮。单击“是(Y)”按钮，显示如图4-3（b）所示的消息框，显示“正在保存”；单击“否(N)”按钮，显示如图4-3（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。,16,图4-3 执行结果,17,Private Sub Form_Click() choice = MsgBox(“数据已经修改，是否保存？“, _ vbYesNoCancel + vbQuestion + vbDefaultButton1, “提示“) If choice = vbYes Then MsgBox “正在保存“ Else If choice = vbNo Then MsgBox “不保存退出“ End If End If End Sub,18,4.1.3 MsgBox语句 如果MsgBox函数不需要返回值，可以省略圆括号，则变形为MsgBox语句。在例4-2中，后两个消息框的输出采用的是MsgBox语句。MsgBox语句与MsgBox函数的作用相似，各参数的含义与MsgBox函数相同。,19,【格式】 MsgBox , , 【说明】 执行MsgBox语句后，打开一个对话框，用户必须按下Enter键或单击对话框中的某个按钮，才能继续进行后面的操作。与MsgBox函数不同的是，MsgBox语句没有返回值，通常适合用来显示较简单的信息。,20,【例4-3】 编写程序，使用MsgBox语句显示对话框，运行结果如图4-4所示。,图4-4 运行结果,21,Form Click事件代码为： Private Sub Form_Click() msg = “欢迎学习Visual Basic！“ Title = “MsgBox语句示例“ MsgBox msg, 0, Title End Sub,22,4.2 数据输出,4.2.1 Print方法 【格式】对象.PrintSpc(n)|Tab(n)表达式列表；|， 【作用】 在对象上输出信息。,分号紧凑输出 逗号以14个字符为一个输出区域（打印区）输出,23,4.2.2 与Print有关的函数 1Tab( n ) 绝对定位 Tab函数从第一列开始计数，用于把光标向后移动n个字符的位置，与输出的内容要用分号隔开。如果n大于行宽，显示位置为n Mod行宽；如果n小于0，从第一列输出；如果当前光标的位置超过了n，光标则下移一行。,24,【例4-4】 用Print方法输出窗体中的信息如图4-5所示。“商品名称”一列从窗体的第二行第10列开始输出，每列的起始字符之间相差10列，每行之间间隔一空行，利用函数Tab进行控制。,图4-5 输出窗体中的信息,25,Private Sub Form_Click() Print Print Tab(10); “商品名称“; Tab(20); “单价“; Tab(30); “数量“ Print Print Tab(10); “电视机“; Tab(20); “2568“; Tab(30); “150“ Print Print Tab(10); “电冰箱“; Tab(20); “1600“; Tab(30); “85“ End Sub,26,2. Spc(n) 相对定位 与Tab函数类似，用于跳过n个空格输出。但与Tab函数不同的是：Tab函数从第一列开始计数，n是绝对偏移量；Spc函数从前面的输出项后开始计数，n是相对偏移量。 【例4-5】利用Spc函数进行控制的程序代码如下：,27,Private Sub Form_Click() Print Print Spc(10); “商品名称“; Spc(2); “单价“; Spc(6); “数量“ Print Print Spc(10); “电视机“; Spc(4); “2568“; Spc(6); “150“ Print Print Spc(10); “电冰箱“; Spc(4); “1600“; Spc(6); “85“ End Sub,28,3Space ( n ) Space函数用来返回n个空格组成的字符串。在进行格式化输出时非常有用。 【例4-6】 编写窗体的Click事件过程。 Private Sub Form_Click() Dim s1,s2 as string s1 = Space(10) Print s2 = Space(5) & “Hello“ & s1 & “World“ Print s2 End Sub,29,4.2.3 打印机输出,1. 直接输出 Printer.pr