VB复习之_数据输入输出.pdf
数据输入输出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“这是图片框输出”Debug.Print“这是立即窗口输出”另错误的 如：Text1.Print,Label1.Print 输出 列表 输出项之间要使用分割符“，”或“；”如：Form1.Print Fix(-20.8)+Int(12.6)*2 4“，”分割的数据是标准输出格式，每个分区占14 个字符位置。如：Print“abc”，“def”“abc def”“；”分割的数据是紧凑格式。如：Print“abc”;“def”“abcdef”缺省 输出列表时，输出一空行。如：Form1.Print Tab(n):对输出进行定位，其中n 是绝对位置。如：Print Tab(10);”123456”在第 10 列输出字符串Spc(n),Space(n):表示跳过若干个空格，n 是相对位置。如：Print Spc(10);”123456”跳过 10 个空格，从第11 列开始输出字符二、格式输出Format 格式：Format$（数值表达式，格式字符串）#：输出数字，不补0。0：输出数字，补0。.：输出小数点。，：输出千分位分隔符。$：输出数字前加“$”%：输出百分比符号，同时转化数值。+或-：输出数字前强加+或-。如：a=32766.5 Print“格式输出a=”；Format(a,”$#,#.000”)格式输出a=$32,766.500 三、与方法有关的属性和方法Cls 方法：清除 Print 方法和绘图语句产生的文字和图形。Move 方法：移动和改变对象的大小。格式：对象名称.Move left,top,width,length 四、InputBox 函数功能：显示一个输入对话框。格式：InputBox$（提示，标题 ，缺省，x 坐标位置 ，y 坐标位置）五、MsgBox 函数和 MsgBox 语句（参看P65）MsgBox 函数格式：MsgBox（提示，按钮，标题）MsgBox 语句格式：MsgBox 提示，按钮，标题 MsgBox 函数和 MsgBox 语句的不同点是：在程序中，MsgBox 函数有函数值，MsgBox语句不能提供返回值。它们显示的对话框都是模态窗口，即：必须响应该窗口才能进行其它操作。例：Private Sub Form_Click()a=MsgBox(提示,17,标题)End Sub 按钮类型参数请参看P66 页表 2.8，分 4 组，常用前两组，按钮种类和图标类型，它的使用如：a=MsgBox(提示,17,标题)中的 17 是由 按钮值 1 和图标值 16 相加得来。另外，MsgBox 函数会返回一个函数值，表示用户选择的按钮。参看P66 表 2.9。字型对象名.FontName=字体类型 Form1.FontName=”宋体”对象名.FontSize=数值 Form1.FontSize=20 对象名.FontBold=True|False Form1.FontBold=True 对象名.FontItalic=True|False Form1.FontItalic=False 对象名.FontStrikethru=True|False Form1.FontStrikethru=False 对象名.FontUnderline=True|False Form1.FontBold=True 打印机输出(了解)直接输出格式：Printer.Print 输出表列 换页：Printer.NewPage 结束打印：Printer.EndDoc 设置页号：Printer.Page=页号 窗体输出格式：窗体名.PrintForm 例题：1、方法 Print“10+6=”;10+6 输出的结果是。2、C$=”123”：D=456：Print C+D 语句序列执行结果是。3、下列事件过程Private Sub Form_Click()a$=Bird c$=fly Print a$&can&c$&!End Sub 运行后输出结果是。4、Printer.Print“*”，星号输出到。5、PrintForm 将打印活动。6、下列程序Private Sub Form_Click()X1=InputBox(请输入)MsgBox(X1)End Sub 运行时，若输入123，输出对话框的提示信息是。7、下列程序Private Sub Form_Click()X1=InputBox(请输入)MsgBox(“X1”)End Sub 运行时，若输入123，输出对话框的提示信息是。8、下列程序Private Sub Form_Click()Dim zxs As Integer zxs%=232 zxs=232.32 Print zxs%;zxs End Sub 运行后，输出的结果是。9、下列程序Private Sub Form_Click()Const st$=china st$=great st$=hebei Print st$End Sub 运行后，输出的结果是。
