vb数据的输入、输出

符号 dd dddd dddddd ww mm mmmm yy
作用 显示日期（01~31），个位前加0 显示星期全名（Sunday~Saturday） 显示完整长日期(yyyy年m月d日) 一年中的星期数(1~53) 显示月份（01~12），个位前加0 月份全名（January~December） 两位数显示年份（00~99）
当输出数值数据时，数值 的前面有一个符号位，后 面有一个空格，而字符串 前后都没有空格。
（4）Print方法具有计算和输出双重功能，对于表达 式，它先计算后输出。 （5）在一般情况下，每执行一次Print方法要自动换 行，也就是说，后面执行Print时将在新的一行 上显示信息。为了仍在同一行上显示，可以在 末尾加上一个分号或逗号。
季度数（1~4）
显示小时（0~23），个位前加0 在h后显示分（0~59），个位前加0 显示秒（00~59），个位前加0 12小时的时钟，中午前AM或am 中午后PM或pm
日期与时间格式实例：
Print Format(Date, "dddddd") Print Format(Date, "mmmm") Print Format(Date, "yyyy") Print Format(Time, "Hh:Nn:Ss") Print Format(Time, "ttttt") Print Format(Time, "tttttAM/PM")
练习:例如，假设某程序中有如下代码：
MyStr=InputBox("提示" & vbCrLf & "信息"，"对话框标 题"， "aaaaaa")
可以在文本框中将默认值修改成其他内容，单击“确定”按钮，文本框中 的文本返回到变量MyStr中；单击“取消”按钮，返回一个0长度的字符串 。
5.3
MsgBox函数和MsgBox语句
2、Move方法 Move方法用来移动窗体和控件，并可改变其大小。 语法： [<对象名称>.]Move 左边距离[,上边距离[,宽度[,高度]]]
如果“对象”是窗体，则 “左边距离”和“上边距 离”均以屏幕左边界和上 边界为准，如果“对象” 是控件，则以窗体的左边 界和上边界为准。
5.2
数据输入——InputBox方法
5.1
数据输出——Print方法
在早期版本的BASIC中，数据的输出主要通过 PRINT语句来实现。Visual Basic也用Print输出数据， 但它是作为方法使用的。
5.1.1
Print方法
Print方法可以在窗体上显示文本字符串和表达式 的值，并可在其他图形对象或打印机上输出信息。 Print方法的语法格式为： [<对象名称>].Print [<表达式列表>][{,|;}]
说明： （1）“对象名称”可以是窗体（Form）、图片框 （PictureBox）或打印机（Printer），也可以 是立即窗口（Debug）。例如：
Form1.Print "欢迎使用Visual Basic " Picture1.Print "欢迎使用Visual Basic " Debug.Print "欢迎使用Visual Basic " Printer.Print "欢迎使用Visual Basic " Print "欢迎使用Visual Basic " "
vbAbort vbRetry vbIgnore vbYes vbNo
5.3.2wenku.baidu.com
MsgBox语句
MsgBox函数也可以写成语句形式，即： MsgBox(<信息内容>[, <对话框类型> [, <对话框标题>]]) MsgBox语句没有返回值，因而常用于较简单的信息显 示。
参数1 出现按钮
值 0
常 量
vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel
说 明 确定按钮
图 例
1
2 3
确定和取消按钮
终止、重试和忽略按钮 是、否和取消按钮
4
5
是和否按钮
重试和取消按钮
参数2 图标类型 值 16 32 48 64 常 量 vbCretical vbQuestion vbExclamation 说 明 停止图标 问号图标 感叹号图标 信息图标 图 例
MsgBox函数可以向用户传送信息，并可通过用户在对话 框上的选择接收用户所做的响应，作为程序继续执行的依 据。
5.3.1
MsgBox函数
格式如下： [变量]=MsgBox(<信息内容>[, <对话框类型> [, <对话框标题>]])
说明： （1） <信息内容>指定在对话框中出现的文本。 （2） <对话框类型> 指定对话框中出现的按钮和图标。 （3） <对话框标题>指定对话框的标题。 （4）MsgBox()返回的值指明了在对话框中选择的按钮。 （5）如果省略了某些可选项，必须加入相应的逗号。 （6）如果不需要返回值，则可以使用MsgBox的命令形式。
a$ = "a" + Space$(4) + "b" Print a$
输出结果： a□□□□b
5.1.3
格式输出
使用格式化函数Format（）可以使数值、日期或字符 型数据按指定的格式输出。格式为： Format（表达式[，格式字符串]）
字符 # 0 . , % $ + E+
说
明
数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中#的 位置上有数字存在，那么就显示出来，否则，该位置什么都不显示 数字占位符。显示一位数字或是零。如果表达式在格式字符串中0的位置上有 一位数字存在，那么就显示出来，否则就以零显示 小数点占位符 千分位符号占位符 百分比符号占位符。表达式乘以100。而百分比字符（%）会插入到格式字符 串中出现的位置上 在数字前强加$ 在数字前强加+ 在数字前强加用指数表示 用指数表示
E-
数值型格式实例：
Private Sub Form_Click() Print Format(123.45, "0000.000") Print Format(123.45, "0.0")
Print Format(123.46, "0.0")
Print Format(123.45, "####.###") Print Format(123.45, "#.#") Print Format(123.46, "#.#") Print Format(0.123, ".##") Print Format(0.123, "0.##") End Sub
Yyyy
H M S tttt A/P,a/p
四位数显示年份（0100~9999）
显示小时（0~23），个位前不加0 在h后显示分（0~59），个位前不加0 显示秒（0~9），个位前不加0 显示完整时间（小时、分和秒）默认格式为 hh:mm:ss 12小时的时钟，中午前A或a，中午后P或p
q
hh mm ss AM/PM Am/pm
（2）“表达式表”是一个或多个表达式，可以是数 值表达式或字符串。对于数值表达式，打印出表达 式的值；而字符串则照原样输出。 （3）当输出多个表达式或字符串时，各表达式用分 隔符（逗号、分号或空格）隔开。如果输出的各表 达式之间用逗号分隔，则按标准输出格式（分区输 出格式）显示数据项。如果各输出项之间用分号或 空格作分隔符，则按紧凑输出格式输出数据。
全国计算机等级考试二级教程
主讲教师
潘大胜
Visual Basic的输入输出有着十分 丰富的内容和形式，它提供了多种手段， 并可以通过各种控件实现输入输出操作， 使输入输出灵活、多样、方便、形象直 观。
5.1 数据输出——Print方法 5.2 数据输出——InputBox函数 5.3 MsgBox函数和MsgBox语句 5.4 字形 5.5 打印机输出
InputBox函数可以产生一个对话框，等待用户输入数据， 并返回所输入的内容，函数值类型为 String类型。格式为： 变量=InputBox(<提示信息>[,<对话框标题>] [,<默认内容>])
说明： （1） <提示信息>指定在对话框中出现的文本。 （2） <对话框标题>指定对话框的标题。 （3） <默认内容>可以指定输入框的文本框中显示的默认文本
" abcd" " ABCD" " ABCD "
字符型格式实例：
Print Format("ABcd", "@@@@@@") Print Format("ABcd", "&&&&&&") Print Format("ABcd", "<@@@@@@")
Print Format("ABcd", ">@@@@@@")
5.1.2
与Print方法有关的函数
1. Tab函数 格式：Tab(n) Tab函数把显示或打印位置移到由参数n指定的列数。 当在一个 Print方法中有多个Tab函数时，每个Tab函 数对应一个输出项，各输入项之间用分号隔开。 例如 :
Print Tab(10); "姓名"; Tab(30); "年龄"
说明： ①参数n为数值表达式，其值为一整数，它是下一个 输出位置的列号，表示在输出前把光标（或打印 头）移到该列。通常最左边的列号为1，如果当前 的显示位置已经超过n，则自动下移一行。 ②在VB中，对参数n的取值范围没有具体限制。当n 比行宽大时，显示位置为n Mod行宽；如果n<1， 则把输出位置移到第一列。 ③当在一个Print方法中有多个Tab函数时，每个Tab 函数对应一个输出项，各输出项之间用分号隔开。
Print Format("ABcd", "!@@@@@@")
符号 D ddd dddddw w M Nmm Y
作用 显示日期（1~31），个位前不加0 显示星期缩写（Sun~Sat）星期为数字（ 1~7，1是星期日） 显示完整日期（yy/mm/dd） 显示月份（1~12），个位前不加0 显示月份缩写（Jan~Dec） 显示一年中的天（1~366）
实例 Format(" ABCD" , " @@@@@@" )
结果 " ABCD"
@
Format(" ABCD" , " &&&&&&" )
" ABCD"
&
< > !
Format(" ABCD" , " <&&&&&&" ) Format(" abcd" , " >&&&&&&" ) Format(" ABCD" , " !&&&&&&" )
字符
说明 字符占位符。显示字符或是空白。如果 字符串在格式字符串中@的位置有字符 存在，那么就显示出来；否则就在那个 位置上显示空白。除非有惊叹号字符(!) 在格式字符串中，否则字符占位符将由 右到左被填充 字符占位符。显示字符或什么都不显示 ，如果字符串在格式字符串中和号&的 位置有字符存在，那么就显示出来否则 就在那个位置上显示空白。除非有惊叹 号字符（！）在格式字符串中，否则字 符占位符将由右到左被填充 强制小写。将所有字符以小写格式显示 强制大写。将所有字符以大写格式显示 强制由左至右填充字符占位符。缺省值 是由右至左填充字符占位符
vbInformation
参数3 默认按钮
值 0 256 521
常 量 vbDefaultButton1 vbDefaultButton2
说 明 指定默认为第1按钮
指定默认为第2按钮 指定默认为第3按钮
vbDefaultButton3
函数的返回值 值 1 2 3 4 5 6 7 常 量 vbOK vbCancel 说 明 确定按钮 取消按钮 终止按钮 重试按钮 忽略按钮 是 否
5.1.4
其他方法和属性
1、清除方法CLS Cls 将清除图形和打印语句在运行时所产生的文本 和图形，清除后的区域以背景色填充。但是设计时使 用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。 语法： [<对象名称>.]Cls
Picture1.Cls '清除图片框Picture1内的图形或文本 Cls '清除当前窗体内显示的内容
2. Spc函数 格式：Spc(n) 在显示或打印列表中的下一个表达式之前插入n个空 格数。 说明： ①Spc函数与输出项之间用分号隔开。 ②Spc函数与Tab函数的作用类似，可以互相代替。
Print "ABC"; Spc(8); "DEF"
3. 空格函数 格式：Space$(n) Space$函数返回n个空格。