《VB的输入和输出》.ppt

VB 及及动动态态网网页页设设计计第第6 6讲讲数据的输入输出数据的输入输出本章内容及要求：本章内容及要求：(1)数据的输入函数数据的输入函数(2)常用的格式定位函数常用的格式定位函数(3)常用的数据输出函数常用的数据输出函数重点：重点：常用的输入输出函数，键盘与鼠标事件过程常用的输入输出函数，键盘与鼠标事件过程难点：难点：InputboxInputbox、MsgboxMsgbox函数函数1精选课件ppt第第四四章章4.1 4.1 数据输入数据输入一、一、InputBox函数函数默认值默认值对对话话框框标标题题提提 示示 信信息息变量名变量名=InputBox(=InputBox(，,)例如，要在屏幕上显示如下的对话框例如，要在屏幕上显示如下的对话框:2精选课件ppt第第四四章章【说明说明】该函数的返回值默认为该函数的返回值默认为字符串字符串，如果要把，如果要把返回值进行其他类型的处理，要么事先声明返回值的返回值进行其他类型的处理，要么事先声明返回值的类型，要么对返回的字符串进行类型转换。类型，要么对返回的字符串进行类型转换。注意：一个注意：一个InputBoxInputBox函数只接受一个值的输入。函数只接受一个值的输入。：必选项，提示用户在输入框中输入信息，：必选项，提示用户在输入框中输入信息，长度不能超过长度不能超过1 0241 024个字节。个字节。：在对话框的标题栏显示的标题信息，：在对话框的标题栏显示的标题信息，如果默认，则标题为如果默认，则标题为“工程工程1”1”。3精选课件ppt第第四四章章 ：指用户在输入框输入信：指用户在输入框输入信息之前在其中显示的内容。无论是否输入新息之前在其中显示的内容。无论是否输入新的信息，单击的信息，单击“确定确定”按钮后，返回输入框按钮后，返回输入框的当前值；单击的当前值；单击“取消取消”按钮，则按钮，则返回长度返回长度为零的字符串。为零的字符串。：确定对话框的位置，分别表：确定对话框的位置，分别表示对话框的左上角到屏幕左边界和上边界的示对话框的左上角到屏幕左边界和上边界的距离，距离，必须成对出现必须成对出现。4精选课件ppt第第四四章章【例例4-14-1】在对话框中输入圆的半径，如在对话框中输入圆的半径，如图图4-14-1所示，计算并输出圆的面积，如图所示，计算并输出圆的面积，如图4-24-2所示。所示。图图 4-1 4-1 输入圆的半径输入圆的半径 5精选课件ppt第第四四章章 图图4-2 4-2 计算并输出圆的面积计算并输出圆的面积 6精选课件ppt第第四四章章“面积计算面积计算”命令按钮对应代码如下：命令按钮对应代码如下：Private Sub Command1_Click()Dim r,s As Single r=InputBox(请输入半径：请输入半径：,计算圆的面积计算圆的面积,1)s=3.14*r*r Print Print 圆的面积是圆的面积是：;sEnd Sub7精选课件ppt第第四四章章4.1.2 MsgBox()4.1.2 MsgBox()函数函数 格格式式：变变量量=MsgBox(MsgBox(,)其其中中:对对话话框框类类型型=按钮图标+缺省按钮+模式图标标题提示信息命令按钮8精选课件ppt第第四四章章说明：说明：消息对话框用于提示用户进行后面操作的选择，作消息对话框用于提示用户进行后面操作的选择，作为继续执行程序的依据。为继续执行程序的依据。：必选项，提示用户在输入框中输入信：必选项，提示用户在输入框中输入信息，长度不能超过息，长度不能超过1 0241 024个字节。个字节。9精选课件ppt第第四四章章 ：为整数或符号常量，用于指：为整数或符号常量，用于指定对话框中出现的控制按钮和图标的种类和定对话框中出现的控制按钮和图标的种类和数量，一般有数量，一般有4 4个参数，用个参数，用“”号相连，参号相连，参数的取值可以是数字形式和符号常量形式。数的取值可以是数字形式和符号常量形式。如果默认某个参数，不能省略逗号，要以逗如果默认某个参数，不能省略逗号，要以逗号标识是哪个默认。第号标识是哪个默认。第1 1个参数表示对消息框个参数表示对消息框中按钮数目的选择，第中按钮数目的选择，第2 2个参数表示对消息框个参数表示对消息框中图标类型的选择，第中图标类型的选择，第3 3个参数表示对消息框个参数表示对消息框中默认按钮的选择，第中默认按钮的选择，第4 4个参数表示消息框的个参数表示消息框的模式值。参数的取值和含义分别如表模式值。参数的取值和含义分别如表4-14-1、表、表4-24-2和表和表4-34-3所示。所示。10精选课件ppt第第四四章章表表4-1 4-1 第第1 1个参数个参数按钮类型按钮类型取取 值值符符 号号 常常 量量意意 义义0 0VbOkOnlyVbOkOnly“确定确定”按钮按钮1 1VbOkCancelVbOkCancel“确定确定”和和“取消取消”按按钮钮2 2vbAbortRetryIgvbAbortRetryIgnorenore“终止终止”、“重试重试”和和“忽略忽略”按钮按钮3 3VbYesNoCancelVbYesNoCancel“是是”、“否否”和和“取取消消”按钮按钮4 4VbYesNoVbYesNo“是是”和和“否否”按钮按钮5 5VbRetryCancelVbRetryCancel“重试重试“和和“取消取消”按按钮钮11精选课件ppt第第四四章章表表4-2 4-2 第第2 2个参数个参数图标类型图标类型取取 值值符符 号号 常常 量量意意 义义1616VbCriticalVbCritical停止图标停止图标3232VbQuestionVbQuestion问号图标问号图标4848VbExclamationVbExclamation感叹号图标感叹号图标6464VbInformationVbInformation消息图标消息图标12精选课件ppt第第四四章章表表4-3 4-3 第第3 3个参数个参数默认按钮默认按钮取取 值值符符 号号 常常 量量意意 义义0 0VbDefaultButton1VbDefaultButton1默认按钮为第一个按默认按钮为第一个按钮钮256256VbDefaultButton2VbDefaultButton2默认按钮为第二个按默认按钮为第二个按钮钮512512VbDefaultButton3VbDefaultButton3默认按钮为第三个按默认按钮为第三个按钮钮13精选课件ppt第第四四章章MsgBoxMsgBox函数的返回值反映了用户选择的按钮，返回函数的返回值反映了用户选择的按钮，返回值与按钮类型的对应情况如表值与按钮类型的对应情况如表4-44-4所示。所示。表表4-4 4-4 返回值与按钮类型的对应情况返回值与按钮类型的对应情况取取 值值符符 号号 常常 量量意意 义义1 1VbOkVbOk“确定确定”按钮按钮2 2VbCanceVbCancel l“取消取消”按钮按钮3 3VbAbortVbAbort“终止终止”按钮按钮4 4VbRetryVbRetry“重试重试”按钮按钮5 5VbIgnorVbIgnore e“忽略忽略”按钮按钮6 6VbYesVbYes“是是”按钮按钮7 7VbNoVbNo“否否”按钮按钮14精选课件ppt第第四四章章【例例4-24-2】显示如图显示如图4-34-3（a a）所示的消息框，提）所示的消息框，提示信息示信息“数据已经修改，是否保存？数据已经修改，是否保存？”，有，有“是是(Y)”(Y)”、“否否(N)”(N)”和和“取消取消”3 3个命令按钮，默认个命令按钮，默认按钮为按钮为“是是(Y)”(Y)”按钮。单击按钮。单击“是是(Y)”(Y)”按钮，显按钮，显示如图示如图4-34-3（b b）所示的消息框，显示）所示的消息框，显示“正在保存正在保存”；单击；单击“否否(N)”(N)”按钮，显示如图按钮，显示如图4-34-3（c c）所）所示的消息框，显示示的消息框，显示“不保存退出不保存退出”；单击；单击“取消取消”，则直接退出。，则直接退出。15精选课件ppt第第四四章章 图图4-3 4-3 执行结果执行结果16精选课件ppt第第四四章章Private Sub Form_Click()choice=MsgBox(数据已经修改，是否保存？数据已经修改，是否保存？,_ vbYesNoCancel+vbQuestion+vbDefaultButton1,提示提示)If choice=vbYes Then MsgBox 正在保存正在保存 Else If choice=vbNo Then MsgBox 不保存退出不保存退出 End If End IfEnd Sub17精选课件ppt第第四四章章4.1.3 MsgBox4.1.3 MsgBox语句语句如果如果MsgBoxMsgBox函数不需要返回值，可以省略圆括函数不需要返回值，可以省略圆括号，则变形为号，则变形为MsgBoxMsgBox语句。在例语句。在例4-24-2中，后两中，后两个消息框的输出采用的是个消息框的输出采用的是MsgBoxMsgBox语句。语句。MsgBoxMsgBox语句与语句与MsgBoxMsgBox函数的作用相似，各参数的含义函数的作用相似，各参数的含义与与MsgBoxMsgBox函数相同。函数相同。18精选课件ppt第第四四章章【格式格式】MsgBox MsgBox ,【说明说明】执行执行MsgBoxMsgBox语句后，打开一个对话框，语句后，打开一个对话框，用户必须按下用户必须按下EnterEnter键或单击对话框中的某个按钮，键或单击对话框中的某个按钮，才能继续进行后面的操作。与才能继续进行后面的操作。与MsgBoxMsgBox函数不同的是，函数不同的是，MsgBoxMsgBox语句没有返回值语句没有返回值，通常适合用来显示较简单，通常适合用来显示较简单的信息。的信息。19精选课件ppt第第四四章章【例例4-34-3】编写程序，使用编写程序，使用MsgBoxMsgBox语句显示语句显示对话框，运行结果如图对话框运行结果如图4-44-4所示。所示。图图4-4 4-4 运行结果运行结果20精选课件ppt第第四四章章Form Click事件代码为：事件代码为：Private Sub Form_Click()msg=欢迎学习欢迎学习Visual Basic！Title=MsgBox语句示例语句示例 MsgBox msg,0,TitleEnd Sub21精选课件ppt第第四四章章4.2 4.2 数据输出数据输出4.2.1 Print4.2.1 Print方法方法【格式格式】对象对象.PrintSpc(n)|Tab(n).PrintSpc(n)|Tab(n)表达式表达式列表列表；|，【作用作用】在对象上输出信息。在对象上输出信息。分号紧凑输出分号紧凑输出逗号以逗号以14个字符为一个输出区域（打印区）个字符为一个输出区域（打印区）输出输出22精选课件ppt第第四四章章4.2.2 4.2.2 与与PrintPrint有关的函数有关的函数1 1Tab(n)Tab(n)绝对定位绝对定位 TabTab函数从第一列开始计数，用于把光标向后移动函数从第一列开始计数，用于把光标向后移动n n个字符的位置，与输出的内容要用分号隔开。如个字符的位置，与输出的内容要用分号隔开。如果果n n大于行宽，显示位置为大于行宽，显示位置为n Modn Mod行宽；如果行宽；如果n n小于小于0 0，从第一列输出；如果当前光标的位置超过了，从第一列输出；如果当前光标的位置超过了n n，光标则下移一行。，光标则下移一行。23精选课件ppt第第四四章章【例例4-44-4】用用PrintPrint方法输出窗体中的信息如方法输出窗体中的信息如图图4-54-5所示。所示。“商品名称商品名称”一列从窗体的第二行一列从窗体的第二行第第1010列开始输出，每列的起始字符之间相差列开始输出，每列的起始字符之间相差1010列，列，每行之间间隔一空行，利用函数每行之间间隔一空行，利用函数TabTab进行控制。进行控制。图图4-5 4-5 输出窗体中的信息输出窗体中的信息 24精选课件ppt第第四四章章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);85End Sub25精选课件ppt第第四四章章2.Spc(n)2.Spc(n)相对定位相对定位与与TabTab函数类似，用于跳过函数类似，用于跳过n n个空格输出。但与个空格输出。但与TabTab函函数不同的是：数不同的是：TabTab函数从第一列开始计数，函数从第一列开始计数，n n是绝对偏是绝对偏移量；移量；SpcSpc函数从前面的输出项后开始计数，函数从前面的输出项后开始计数，n n是相对是相对偏移量。偏移量。【例例4-54-5】利用利用SpcSpc函数进行控制的程序代码如下：函数进行控制的程序代码如下：26精选课件ppt第第四四章章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);85End Sub27精选课件ppt第第四四章章3 3Space(n)Space(n)SpaceSpace函数用来返回函数用来返回n n个空格组成的字符串。在进行个空格组成的字符串。在进行格式化输出时非常有用。格式化输出时非常有用。【例例4-64-6】编写窗体的编写窗体的ClickClick事件过程。事件过程。Private Sub Form_Click()Private Sub Form_Click()Dim s1,s2 as string Dim s1,s2 as string s1=Space(10)s1=Space(10)Print Print s2=Space(5)&Hello&s1&World s2=Space(5)&Hello&s1&World Print s2 Print s2End SubEnd Sub28精选课件ppt第第四四章章4.2.3 4.2.3 打印机输出打印机输出1.1.直接输出直接输出Printer.printPrinter.print表达式表达式 2.2.窗体输出窗体输出 窗体名窗体名.print.print29精选课件ppt第第四四章章4.3 4.3 标签与文本框标签与文本框一、标签一、标签常用的控件属性常用的控件属性NameNameCaptionCaption二、文本框二、文本框常用的控件属性常用的控件属性NameNameTextText实例演示实例演示:用两个数的加减乘除演示用两个数的加减乘除演示Label和和TextBox的使用的使用30精选课件ppt第第四四章章 本章小结：本章小结：掌握掌握inputboxinputbox、msgboxmsgbox、printprint等输入输出函数等输入输出函数 31精选课件ppt