VB数据输入输出课件.ppt

第三章数据输入输出,主要内容：Print函数、Tab函数、Spc函数的用法InputBox函数、MsgBox函数的用法,本章重难点,重点：Print函数，InputBox函数，MsgBox函数的用法难点：1.MsgBox函数中的参数设置，以及返回值的运用2.如何利用InputBox函数、MsgBox函数实现用户和计算机之间的交互,前述内容回顾,在前面章节所学习的对象中，能够进行输入数据的有文本框；可以输出数据的有按钮、标签。,这些控件适合输入或输出简单少量文字内容，若要在窗体上直接输出如下形式文本，如何解决呢？,3.1数据输出方法,1、Print方法形式：对象.Print表达式列表；|，作用：在对象上输出信息说明：对象：窗体、图形框或打印机(Printer)，省略对象在窗体上输出。；(分号)：光标定位在上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，时换行。先计算表达式的值，然后输出该值,Print方法在Form_Load事件过程中起作用，必须设置窗体的AutoRedraw为True。,注意,举例如下：PrivateSubForm_click()x=3:y=6:z=12Print“0123456789012345678901234567890123456789”Printx,y,”abc”,”def”Print“abc”,”def”,x,yPrint“0123456789012345678901234567890123456789”Printx;y;”abc”;”def”Print“abc”;”def”;x;yPrint“z/(y/x)=”;z/(y/x)EndSub,观察发现：上述例题的输出每一次输出都从最左边开始，如何实现如word中的缩进或跳格呢？,Spc(n)和Tab(n)函数,Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。Tab(n)从最左第一列算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列。Spc(n)从前一位置起空n个空格。,例如：Print“Hello”;Tab(10);”world”Print“Hello”;Spc(10);”world”PrintTab(4);”Hello”;Tab;”world”,print方法适合适合直接在窗体控件上输出文本，若要用输出对话框的形式输入输出数据，如何解决呢？,输入对话框,输出对话框,3.2数据输入输出函数和过程,InputBox()函数,例3-3,作用：InputBox()函数产生一个输入框，等待用户输入数据或按下按钮，并返回所输入的内容。格式：InputBox(提示,标题,默认值,x坐标位置,y坐标位置),案例1,某商场营业员的总工资由两部分组成：基本工资和营业额提成。基本工资一般为300元；营业额提成是营业额的5%。要求输入基本工资、本月的营业额，显示实发工资。要求单击窗体后，从输入框分别输入每月基本工资与本月营业额，然后将每月实发工资显示在标签中。,运行效果如下图所示所示，分别在输入框输入基本工资1000与营业额4000，单击“确定”后，则所发工资显示在标签中。,2019/12/15,15,可编辑,2019/12/15,16,可编辑,记住InputBox()函数的常用参数按顺序分别是：提示信息，对话框标题，输入区缺省值注意参数间用英文状态的逗号函数返回字符串类型。,注意事项,课堂练习,通过InputBox函数输入圆的半径，计算圆的周长和面积，将结果输出到标签中。,当在word中进行文档操作时，若不小心按下关闭按钮，系统如何做？,MsgBox函数函数形式：变量%=MsgBox(提示,按钮，标题),MsgBox按钮和图标设置,在输入“提示”参数时若要显示多行，可在每行文字末尾加上Chr(13)和Chr(10),举例:,v=msgBox(“是否保存对文档1的修改”，vbYesNoCancel+VBExclamation，”MicrosoftOfficeWord”),总结：按钮参数可以由内部常数和数值两种形式表示。,若要省略按钮样式，必须把位置给空出来。如：MsgBox(“结果有误”，”出错了”)MsgBox函数的返回值必须赋值给一个变量在设计按钮样式时，注意考虑提示信息与按钮的匹配性,注意事项,课堂练习,针对如下对话框写出MsgBox函数的各个参数,MsgBox()所选按钮返回值,案例2,编一账号和密码输入的检验程序，当输入密码不正确时，出现消息框显示有关信息。运行结果如下图所示：,MsgBox过程,作用：MsgBox过程产生一个消息框，向用户传送信息，并可通过用户在对话框上的选择，接收用户所做的响应，无返回值。格式：MsgBox提示,按钮、图标的类型,标题MsgBox()函数与Msgbox过程的区别：MsgBox()函数返回一个整型值，而MsgBox过程无返回值。,本