《数据输入输出》ppt课件

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

1、第5章数据输入输出教学内容：5.1数据输出--Print方法5.2数据输入--InputBox函数5.3MsgBox函数和MsgBox语句5.4字形5.5打印机输出5.1数据输出--Print方法1.Print方法功能：在窗体/立即窗口/图片框/打印机上输出信息格式：[对象名称.]Print[表达式表][,

2、;][对象]缺省为当前窗体，[输出项]缺省则打印一空白行输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。两个输出区默认相隔14列。Print方法具有计算和输出双重功能,但无赋值功能。每

3、执行一次print方法要自动换行。为了仍在同一行显示，可在行尾加上一个分号或逗号。例，PrivateSubForm_Click()PrintPrintTab(15);"*"PrintTab(13);"*";Spc(1);"*";Spc(1);"*“EndSub5.1数据输出--Print方法2与Print方法有关的函数1）Tab函数格式：Tab（n）参数n为数值表达式，是下一个输出位置的列号，最左边为1；若n比行宽，显示位置为nmod行宽。若小于1，则输出位置移到第一列。当在一个print方法里面有多个TAB函数时，各输出项间用分号分隔。逗号和分号作用同pr

4、int5.1数据输出--Print方法2）Spc函数格式：Spc（n）3）空格函数格式：Space（n）4）cls方法格式：[对象.]Cls5）Move方法格式：[对象.]Move左边距离[，上边距离[，宽度[，高度]]]5.1数据输出--Print方法5.1数据输出--Print方法3.格式输出功能：使数值、日期或字符串按指定的格式输出格式：Format$(表达式[,格式字符串])5.1数据输出--Print方法5.2数据的输入输出－数据输入功能：生成输入对话框，常用格式：InputBox(prompt[,title][,default][,xpos][,

5、ypos][.helpfile,context])prompt－字符串，指定输入框中显示的信息——提示用户信息，输入什么信息Title－指定输入框的标题，缺省值为工程名—输入框作用Default－字符串，指定文本框中的初始内容，缺省为空xpos和ypos－数值表达式，成对出现或者成对缺省，指定输入框左上角相对于屏幕的位置。helpfile,context－显示对话框的有关帮助信息InputBox函数一次只能输入一个值,返回字符串例子5.3数据输出--MsgBox函数MsgBox函数功能：创建预定义的消息对话框常用格式：MsgBox(prompt[,butto

6、ns][,title][.helpfile,context])prompt－字符串，指定消息框中显示的信息Buttons－指定消息框中显示的按钮数目及形式、图标样式等，缺省值为0，常用的设置值见教材表5.3Title－指定消息框的标题，缺省值为工程名用户所选按钮的返回值为整数(见教材表5.5)可作为继续执行程序的依据。说明：如果消息框中显示的信息过长，可使用回车符Chr(13)和换行符Chr(10)如果不需要返回值，可使用没有括号的MsgBox语句：MsgBoxprompt[,buttons][,title]例：Msg="非法的数据输入!"&Chr(13)&

7、Chr(10)&"请重新输入"Title="出错提示"MsgBoxMsg,vbCritical,Title5.3数据输出--MsgBox函数例子字体类型一般格式：[<对象名>.]FontName[=“字体类型“]该属性可以字符串形式返回当前对象的字体类型。在程序中，也可以使用赋值语句，用字体类型名(字符串)设置该属性。示例5.4字形2.字体大小一般格式：[<对象名>.]FontSize[=<点数>]该属性可以数值形式返回当前对象显示字体大小。也可以用数值表达式表示的“点数”向Fontsize属性赋值,改变对象显示字体的大小。示例3.其他属性除字体类型和大小外

8、，VB还提供了其它一些属性。以下各属性以布尔类型值返回或设置字体风格。1)粗体字[<对象名>.]FontBold[=True

9、False]返回或设置是否“粗体”。FontBold为True时，表示粗体，否则文本按正常字输出。2)斜体字[<对象名>.]FontItalic[=True

10、False]当FontItalic设置为True时，文本以斜体输出。3)加中划线[<对象名>.]FontStrikethru[=True

11、False]如果FontStrikethru设置为True,文本中部划一直线。4)加下划线[<对象名>.]FontUnderline[=Tru

12、e

13、False]若FontUnderline设为Tr