第4章 数据的输入与输出

用于移动并改变窗体或控件的位置和大小 格式： 格式： [对象名 对象名.]Move Left,[Top],[Width],[Height] 对象名 Left、Top、Width和Height 4个参数分别可以设置 对象移动后其左上顶点的横坐标和纵坐标，以及改变 大小后的宽度和高度。 除了Left参数是必选的，其他参数都是可选的，但 要保证最后一个参数前面的参数是完整的。
Visual basic
程序设计
第四章 数据输入与输出
第四章 数据的输入与输出
4.1
数据的输出—Print方法 数据的输出 Print方法 Print 数据输入—Inputbox函数 函数 数据输入 消息框 打印机输出
结束
4.2
4.3
4.4
引言 本节的主要介绍在VB中数据 输入与输出的各种方法及输出时 数据的格式，并通过编写代码实 现相应的功能。
结束
例如： i = MsgBox("密码错 21, "密码核对 密码错", 密码核对") 密码错 密码核对 执行该语句后，屏幕上显示如图所示的消 息框。
结束
说明： 说明： 在MsgBox函数格式中，“提示”和“标题” 的含义同InputBox函数。 “按钮数值”是三个数值之和 三个数值之和，这三个数值 三个数值之和 分别代表钮的数目及类型，使用的图标样式， 及缺省按钮是什么。参看P68页表4.3 上例“按钮数值” 21，是从表中各取一个数 相加而得。（5、16、0）
数值表达式
格式化字符串 “00000.0000” “000.0” “#####.####” “###.#” “00000.00” “##,##0.0000” “####.##%”
显示结果 01234.5670 1234.6 1234.567 1234.6 12345.00 1,234.5670 123456.7% $1234.6 +1234.6 -1234.6 1.23E+03 1.23E-01
dd dddd ww mm mmmm yy q hh mm ss AM/PM Am/pm
一年中的星期数 显示月份，个位前加0 月份全名 两位数显示年份 显示季度数 显示小时，个位前加0 显示分钟，个位前加0 显示秒数，个位前加0 12小时的时钟，中午前为AM 或am，中午后为PM或pm
显示12小时时钟，中午前为A或a，中午后为P或p
表4-1 数值格式化的格式化符号及其作用
结束
Private Sub Form_click() 数值格式输出实例 Dim a! a = 1234.567 Print Format(a, "0000.0000") Print Format(a, "00.00") Print Format(a, "#####.#####") Print Format(a, "##.##") Print Format(a, "##,###.00##") Print Format(a, "####.##%") Print Format(a, "$###.##") Print Format(a, "+#####.##") Print Format(a, "-####.##") Print Format(a, "0.00e+00") Print Format(a, "0.00e-00 ") 结束 End Sub
结束
MsgBox语句 MsgBox语句
MsgBox也可以写成语句形式 例如： MsgBox “密码错”, , “密码核对 执行此语句也产生一个消息框，如图所示。 MsgBox语句没有返回值，常用于比较简单 的信息提示。
结束
消息框的三种格式： 消息框的三种格式：
y = MsgBox("输入文件名是否正确", 52, "请确认") y=MsgBox ("输入文件名是否正确") MsgBox "输入文件名是否正确", 52, "请确认"
结束
4.1 数据输出—Print方法 数据输出—Print方法
1、一般格式： 一般格式：
其中：
插入空格 紧凑格式输出
[对象名 对象名.]Print [{spc(n)|tab(n)}] [表达式列表 表达式列表][{; | ,}] 对象名 表达式列表
定位输出 标准格式输出
对象可以是窗体（Form）、图片框（PictureBox）、 打印机（Printer）、立即窗口（Debug），若省略了 对象则在窗体上输出。 例如： 例如： Print “你好!” ‘在窗体上输出“你好” 在窗体上输出“你好” 在窗体上输出
Private Sub Form_activate() Dim s$ FontSize = 32 s = "欢迎进入系统！" CurrentX = (ScaleWidth - TextWidth(s)) / 2 CurrentY = (ScaleHeight - TextHeight(s)) / 2 Print s End Sub Private Sub Form_Resize() Cls Call Form_activate End Sub
表4-2 日期和时间的格式化符号及其作用
结束
Private Sub Form_Click() 日期时间格式输出实例 Dim mytime As Date Dim mydate As Date mytime = #5:31:18 PM# mydate = #9/19/2009# FontSize = 32 Print Format(Now, "yyyy年mm月dd日hh小时mm分ss秒") Print Format(Now, "yy年m月d日h小时m分s秒") Print Format(Now, "ddddd,dddd,hh:mm:ss") Print Format(mydate, "mm/dd/yyyy") Print Format(mydate, "m/d/yy") Print Format(mydate, "ddddd") Print Format(mytime, "h-m-sAm/Pm") Print Format(mytime, "hh:mm:ssAm/Pm") Print Format(mytime, "h小时m分s秒Am/Pm") Print Format(mytime, "hh小时mm分ss秒Am/Pm") 结束 End Sub
Байду номын сангаас结束
4.3 消息框
执行VB提供的MsgBox函数，可以在屏幕上出 现一个消息框，消息框通知用户消息并等待 用户来选择消息框中的按钮，MsgBox函数返 回一个与用户所选按钮相对应的整数。
MsgBox函数的格式： MsgBox函数的格式： 函数的格式
MsgBox（提示， MsgBox（提示，[，按钮数值][，标题]） 按钮数值][，标题] ][
4.其它方法 其它方法 1、Cls方法 、 方法
用于清除在窗体 窗体上显示的信息或图形框 图形框中的显示 窗体 图形框 的文本或图形 格式： 格式： [对象名 Cls 对象名.] 对象名 例如： picture1.cls cls ‘清除图片框中的内容 ‘清除当前窗体的内容
结束
2、 Move方法 、 方法
结束
3、TextHeight和Textwidth方法 、 和 方法
用于返回文本字符串的高度值和宽度值 格式： 格式： [对象 TextHeight 对象.] 对象 [对象 Textwidth 对象.] 对象 对象可以是窗体或图片框，若省略了对象，则默 认为当前窗体中的字符串
结束
例：编写程序，使字符串在窗体中居中显示 编写程序，
结束
例：编写程序，单击“输入”按钮，弹出输 编写程序，单击“输入”按钮， 入对话框， 入对话框，输入信息后在窗体上显示相应内 容。
结束
代码如下：
Private Sub Command1_Click() Dim a$ a = InputBox("请输入一个0-10以内的数据", "数据 输入窗口", "0") Label1.Caption = "你输入的数据是：" & a End Sub
结束
注意： 注意： 每个表只能取一个数。系统会自动把它 分解成分别属于上面三个表中的三个值5， 5 16， 16，0。这种分解是唯一的。 其含义是：消息框中有“×”图标 图标，有 “ 重试” 取消”两个按钮， “重试”及“取消”两个按钮，缺省按 钮是“重试”按钮。 钮是“重试”按钮。
结束
当用户单击消息框中的一个按钮后，消息框 即从屏幕上消失。在上面的语句中，将函数 的返回值赋给了变量i，在程序中可引用i作 相应的处理。 MsgBox函数的返回值是根据用户单击哪个按 钮而定的，参看P68页表4.4。 通常，在程序中要根据MsgBox函数返回值的 不同配合选择结构作不同的处理。
0 # . , % $ +/E+ E-
1234.567
12345
1234.567 在数字前强加“ 号 在数字前强加“$”号 在数字前强加“ 号或 号或“ 在数字前强加“+”号或“-” 号 用指数表示 用指数表示 1234.567 0.1234 “$####.##” “+####.#” “-####.#” “0.00E+00” “0.00E-00”
InputBox（提示,[,标题][,默认值][,x坐标][,y坐标]） InputBox（提示,[,标题][,默认值][,x坐标][,y坐标] ,[,标题][,默认值][,x坐标][,y坐标