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

《《VB的输入和输出》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6讲数据的输入输出本章内容及要求：数据的输入函数常用的格式定位函数常用的数据输出函数重点：常用的输入输出函数，键盘与鼠标事件过程难点：Inputbox、Msgbox函数14.1数据输入一、InputBox函数默认值对话框标题提示信息变量名=InputBox(<提示信息>[，<对话框标题>][，<输入区的默认值>][,<对话框坐标>])例如，要在屏幕上显示如下的对话框:2【说明】该函数的返回值默认为字符串，如果要把返回值进行其他类型的处理，要么事先声明返回值的类型，要么对返回的字符串进行类型转换。注意：一个InputBox函数只接受一个值的输入。<提示

2、信息>：必选项，提示用户在输入框中输入信息，长度不能超过1024个字节。<对话框标题>：在对话框的标题栏显示的标题信息，如果默认，则标题为“工程1”。3<输入区的默认值>：指用户在输入框输入信息之前在其中显示的内容。无论是否输入新的信息，单击“确定”按钮后，返回输入框的当前值；单击“取消”按钮，则返回长度为零的字符串。<对话框坐标>：确定对话框的位置，分别表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现。4【例4-1】在对话框中输入圆的半径，如图4-1所示，计算并输出圆的面积，如图4-2所示。图4-1输入圆的半径5图4-2计算并输出圆的面积6

3、“面积计算”命令按钮对应代码如下：PrivateSubCommand1_Click()Dimr,sAsSingler=InputBox("请输入半径：","计算圆的面积",1)s=3.14*r*rPrintPrint"圆的面积是：";sEndSub74.1.2MsgBox()函数格式：变量=MsgBox(<提示信息>[,<对话框类型>][,<对话框标题>])其中:对话框类型=[按钮[＋图标]+[缺省按钮]+[模式]]图标标题提示信息命令按钮8说明：消息对话框用于提示用户进行后面操作的选择，作为继续执行程序的依据。<提示信息>：必选项，提示用户在输入框中

4、输入信息，长度不能超过1024个字节。9<对话框类型>：为整数或符号常量，用于指定对话框中出现的控制按钮和图标的种类和数量，一般有4个参数，用“＋”号相连，参数的取值可以是数字形式和符号常量形式。如果默认某个参数，不能省略逗号，要以逗号标识是哪个默认。第1个参数表示对消息框中按钮数目的选择，第2个参数表示对消息框中图标类型的选择，第3个参数表示对消息框中默认按钮的选择，第4个参数表示消息框的模式值。参数的取值和含义分别如表4-1、表4-2和表4-3所示。10表4-1第1个参数——按钮类型取值符号常量意义0VbOkOnly“确定”按钮1VbOkCance

5、l“确定”和“取消”按钮2vbAbortRetryIgnore“终止”、“重试”和“忽略”按钮3VbYesNoCancel“是”、“否”和“取消”按钮4VbYesNo“是”和“否”按钮5VbRetryCancel“重试“和“取消”按钮11表4-2第2个参数——图标类型取值符号常量意义16VbCritical停止图标32VbQuestion问号图标48VbExclamation感叹号图标64VbInformation消息图标12表4-3第3个参数——默认按钮取值符号常量意义0VbDefaultButton1默认按钮为第一个按钮256VbDefaultBu

6、tton2默认按钮为第二个按钮512VbDefaultButton3默认按钮为第三个按钮13MsgBox函数的返回值反映了用户选择的按钮，返回值与按钮类型的对应情况如表4-4所示。表4-4返回值与按钮类型的对应情况取值符号常量意义1VbOk“确定”按钮2VbCancel“取消”按钮3VbAbort“终止”按钮4VbRetry“重试”按钮5VbIgnore“忽略”按钮6VbYes“是”按钮7VbNo“否”按钮14【例4-2】显示如图4-3（a）所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，默认按钮

7、为“是(Y)”按钮。单击“是(Y)”按钮，显示如图4-3（b）所示的消息框，显示“正在保存…”；单击“否(N)”按钮，显示如图4-3（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。15图4-3执行结果16PrivateSubForm_Click()choice=MsgBox("数据已经修改，是否保存？",_vbYesNoCancel+vbQuestion+vbDefaultButton1,"提示")Ifchoice=vbYesThenMsgBox"正在保存…"ElseIfchoice=vbNoThenMsgBox"不保存退出"EndI

8、fEndIfEndSub174.1.3MsgBox语句如果MsgBox函数不需要返回值，可以省