数据的输入和输出

例：输入三角形的边长，求面积。
Private Sub Form_Click()
单精度实数
Dim a !, b!, c!,s!,t!
Start: a = val(InputBox(“输入边长1:”))
b = val(InputBox(“输入边长2:”))
c = val(InputBox(“输入边长3:”))
FormatSTR：是指定输出格式的格式字符串。
Format( ) 函数一般用于Print方法中。 例如： Print Format(123.45,”###.##”) 输出为 : 123.45
4.2.2 格式化输出函数Format( )
1. 数值格式化 将数值表达式的值按照指定的格式输出。 ❖ 若小数部分的位数多于格式字符串的小数位数，
数据的输入和输出
4.1 数据的输入
❖ VB与用户之间的直接交互是通过函数来实现 的，最常用的输入函数为InputBox( )函数。
4.1 数据的输入
4.1.1 InputBox函数调用格式 InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos]) (1) Prompt（提示信息，为必选项）: 字符串，长度不 超过1024个字符，用来提示用户输入。 (2) Title（标题）：字符串，是对话框的标题，显示在 对话框标题区。 (3) Default（默认）: 字符串，如果在输入框中无输入 时，则改默认值作为输入的内容。 (4) Xpos，Ypos(坐标位置)：两个整数值，确定对话框 左上角在屏幕上的位置。 如果省略，则对话框在屏幕上水平居中，垂直方向 上大约处于屏幕1/3处。
按四舍五入处理 。
P77, 表 4－1
数值格式化符号与作用
字符
作用
字符
作用
# 数值长度比指定小 不在前后补0
0 数值长度比指定小 在前后补0
. 显示小数点
%
改成百分比
$
美元格式
- ，+
输出正负号wk.baidu.com
， 千位分隔符
E+，E- 指数形式
数值格式化举例：
1)print format$(12345,”00000000”) print format$(12345,”########”) print format$(12345,”000”)
②用分号分隔，则按紧凑格式输出数据
例如： Private Sub Form1_Click( ) c$=“求实创新”:d$="海纳百川" Debug.Print c$, d$ '分区输出 Debug.Print c$; d$ '紧凑格式输出 End sub
3. 输出格式说明
(2)输出数值 在数值的左面有一个符号位，在数值的右侧有一个空格
P73.vbp
4.1.2 使用InputBox函数注意事项
(1)函数的返回值为一字符串。 变量名=InputBox(参数表） 输入数值时，函数值需利用 Val函数转换为数值 后，再参加运算。
(2)每执行一次InputBox函数只能输入一个值。需 要输入多个值，则必须多次执行或调用 InputBox函数
图片框、打印机或立即窗口，“对象名称”省 略时则在窗体上输出。 (2)表达式：是被输出的内容，可以是数值表达式 或字符表达式 例1： Debug.Print “在立即窗口输出数据” 例2： Print 5+7
3. 输出格式说明
(1)输出多个字符串
①用逗号分隔，则按标准输出格式显示各数据，以14个字符位置为 单位把一个输出行分为若干个区段（输出区），逗号后的表达式在 下一个区段输出。
例如：
Private Sub Form1_Click( )
a=12: b=-3
Debug.Print a; b+a
Debug.Print a, b
'分区输出
End sub
3. 输出格式说明
(3)每执行一次Print方法要自动换行,除非末尾加上一个分号或 逗号。
(4)Print方法后面无任何表达式,表示输出一个空行；如果上一
If a + b < ＝c Or b + c <＝ a Or a + c <＝ b Then
Print "不能构成三角形，请重新输入个边" GoTo start End If
t = (a + b + c) / 2: s = Sqr(t * (t - a) * (t - b) * (t - c)) Print "该三角形的面积："; s
End Sub
4.2 数据的输出
4.2.1 Print方法 4.2.2 格式化输出函数 4.2.3 与Print方法有关的标准函数 4.2.4 与Print方法有关的属性和方法
4.2.1 Print方法
1. 调用格式 [对象名称.]Print [表达式表][,|;] 2. 项目说明 (1)对象名称：表示数据输出的位置，可以是窗体、
个空Print方法的末尾有逗号或分号时，则该Print语句表示结
束上一个Print方法末尾的逗号或分号.
例如：
Private Sub Form_Click()
a$ = "5": b$ = "8"
Debug.Print b, a
'每执行一次Print要自动换行
Debug.Print a, b,
Debug.Print 13
'和上一个Print在同一行输出
Debug.Print "下面输出一个空行"
Debug.Print
'输出空行
Debug.Print b; a; Debug.Print
'结束上一个语句末尾的逗号或分号
Debug.Print b, a
End Sub
4.2.2 格式化输出函数Format( )
•功能：格式化输出函数规定输出数据的格式，返回值是字符 串。 •格式 :Format(Expression, FormatSTR ) •说明： Expression：是要输出的内容,数值、日期或字符串类型的数；
例如： Private sub Form_Click( )
c1$=chr$(13)+chr$(10) str1$= “请输入一串字符:" str2$= “输入后按回车键, 或单击确定按钮" msg$=str1$+c1$+str2$ ss$=InputBox$(msg$,“输入函数InputBox示例”,“hello") Print ss$ End Sub