vb数据的输入输出及赋值
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
数据的赋值及输入输出
一、赋值语句
[格式]
左边=右边
[功能]
将右边的值赋给左边
[说明]
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属性值.”时默认输出到当前窗体上。