vb数据的输入输出及赋值

数据的赋值及输入输出

一、赋值语句

[格式]

左边=右边

[功能]

将右边的值赋给左边

[说明]

1．“=”此时为赋值号，左右不可交换

2．左边是变量名或控件的属性名3．右边可以是常量、变量或表达式等[注意]

1．最好让左右两侧数据类型一致2．当左右数据类型不一致时，当两类型“相容”时，系统自动将右侧的

数据类型转换成左侧数据类型后，

赋给左边（右边服从左边）

3．当左右数据类型不一致时，且两类型“不相容”时，可以用系统函数

等进行人为转换。

二、输入语句

[功能]从键盘获取数据给相应变量。用InputBox函数和赋值语句合成完成输入

[格式]

变量名=InputBox(“提示信息”[,……]) [说明]

InputBox有7个参数，只有第一个不能省。

[说明]

1．由InputBox函数输入的内容默认为字符型，输入时不需要加双引号。

2．当输入的内容是数字字符串时，系统可以自动转换成数值后赋给左侧数值型变量。

3．系统会将非0数值当成True来用，将0当成False来用。但是，当True 参加算术运算时当-1用；False当0用。

三、用文本框完成输入/输出

由TextBox文本框控件与赋值语句合成（默认Name名：Text1、Text2……）[格式]

变量名=文本框控件Name值.Text

[说明]

1．由此句输入的内容默认为字符型，输入时不需要加双引号。

2．可将此句最右侧的“.Text”省略

3．此句还可以用来输出程序运行结果使用格式：

文本框Name值.Text=输出表达式[注意]

当用于输出时，若在同一个文本框中多行输出时，首先要将其属性MultiLine 设为True，然后再使用字符串连接符&连接上vb Cr Lf系统常量或

Chr(13) & Chr(10)

[举例]

例1．输入质量求重量。

【法一：用InputBox、Print】Option Explicit

Private Sub Command1_Click() Const g As Single = 9.8

Dim GG!, m!

m = InputBox("请输入质量:kg") GG = m * g

Print "重量是:"; GG; "牛顿" End Sub

【法二：用文本框输入、输出】Option Explicit

Private Sub Command1_Click()

Const g! = 9.8

Dim GG!, m!

m = Text1.Text

GG = m * g

Text2.Text = GG

End Sub

例2. 输出一个由*构成的等腰三角形。

【法1：Print输出到窗体上】Private Sub Command1_Click() Print " *"

Print " ***"

Print " *****"

Print "*******"

End Sub

【法2：输出到文本框】

Private Sub Command1_Click() Text1 = " *" & vbCrLf & " ***" & vbCrLf & "*****" End Sub

四、输出语句

用Print 方法实现输出

[格式]

Print 若干输出对象

[说明]

1．此句功能是将“输出对象”输出到窗体等对象上

2．当输出对象为多个时，用逗号或分号作分隔符

3．逗号隔得开一些，分号靠的紧些4．仅有Print没有输出对象时，表示输出一个空行

5．若前一个Print语句最后以分号或

逗号结束时，下一个Print语句的内容接着在同一行输出。

[注意]

Print的完整使用格式：

控件的Name属性值.Print 输出对象[功能]将结果输出到控件上，省略左侧“控件的Name属性值.”时默认输出到当前窗体上。