资源描述：
《vb复习之_数据输入输出》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、数据输入输出1.数据输出：（1）Print方法。（2）与Print方法有关的函数（Tab、Spc、Space$）。（3）格式输出（Format$）。2.InputBox函数。3.MsgBox函数和MsgBox语句。4.字形。5.打印机输出：（1）直接输出。（2）窗体输出。一、Print方法格式：[对象名.]Print[输出列表]Ø[对象名.]可以是窗体、图片框、立即窗口或打印机等。缺省为窗体。如：Print“这是窗体输出”Form1.Print“这也是窗体输出”Picture1.Print“这是图片框输
2、出”Debug.Print“这是立即窗口输出”另错误的如：Text1.Print,Label1.PrintØ[输出列表]输出项之间要使用分割符“，”或“；”如：Form1.PrintFix(-20.8)+Int(12.6)*24“，”分割的数据是标准输出格式，每个分区占14个字符位置。如：Print“abc”，“def”“abcdef”“；”分割的数据是紧凑格式。如：Print“abc”;“def”“abcdef”缺省输出列表时，输出一空行。如：Form1.PrintØTab(n):对输出进行定位，其中
3、n是绝对位置。如：PrintTab(10);”123456”‘在第10列输出字符串Spc(n),Space(n):表示跳过若干个空格，n是相对位置。如：PrintSpc(10);”123456”‘跳过10个空格，从第11列开始输出字符二、格式输出Format格式：Format[$]（数值表达式，格式字符串）#：输出数字，不补0。0：输出数字，补0。.：输出小数点。，：输出千分位分隔符。$：输出数字前加“$”%：输出百分比符号，同时转化数值。+或-：输出数字前强加+或-。如：a=32766.5Print“
4、格式输出a=”；Format(a,”$$###,###.000”)格式输出a=$$32,766.500一、与方法有关的属性和方法Cls方法：清除Print方法和绘图语句产生的文字和图形。Move方法：移动和改变对象的大小。格式：[对象名称.]Moveleft[,top[,width[,length]]]二、InputBox函数功能：显示一个输入对话框。格式：InputBox[$]（提示[，标题][，缺省][，x坐标位置][，y坐标位置]）]三、MsgBox函数和MsgBox语句（参看P65）ØMsgBo
5、x函数格式：MsgBox（提示[，按钮][，标题]）ØMsgBox语句格式：MsgBox提示[，按钮][，标题]MsgBox函数和MsgBox语句的不同点是：在程序中，MsgBox函数有函数值，MsgBox语句不能提供返回值。它们显示的对话框都是模态窗口，即：必须响应该窗口才能进行其它操作。例：PrivateSubForm_Click()a=MsgBox("提示",17,"标题")EndSub按钮类型参数请参看P66页表2.8，分4组，常用前两组，按钮种类和图标类型，它的使用如：a=MsgBox("提示
6、",17,"标题")中的17是由按钮值1和图标值16相加得来。另外，MsgBox函数会返回一个函数值，表示用户选择的按钮。参看P66表2.9。字型[对象名.]FontName[=字体类型]Form1.FontName=”宋体”[对象名.]FontSize[=数值]Form1.FontSize=20[对象名.]FontBold[=True
7、False]Form1.FontBold=True[对象名.]FontItalic[=True
8、False]Form1.FontItalic=False[对象名.]Fo
9、ntStrikethru[=True
10、False]Form1.FontStrikethru=False[对象名.]FontUnderline[=True
11、False]Form1.FontBold=True打印机输出(了解)直接输出格式：Printer.Print[输出表列]换页：Printer.NewPage结束打印：Printer.EndDoc设置页号：Printer.Page[=页号]窗体输出格式：[窗体名.]PrintForm例题：1、方法Print“10+6=”;10+6输出的结果是。2、C$=
12、”123”：D=456：PrintC+D语句序列执行结果是。3、下列事件过程PrivateSubForm_Click()a$="Bird"c$="fly"Printa$&"can"&c$&"!"EndSub运行后输出结果是。4、Printer.Print“*”，星号输出到。5、PrintForm将打印活动。6、下列程序PrivateSubForm_Click()X1=InputBox("请输入")MsgBox(X1)EndSub运行时，若输
