admin 管理员组

文章数量: 1184232


2023年12月21日发(作者:留言板html代码)

数据的赋值及输入输出

一、赋值语句

[格式]

=右边

[功能]

[说明]

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 ,然后再使用字符串联接符

& 连接上 vbCrLf 系统常量或者

Chr(13) & Chr(10)

[举例]

例 1.输入质量求分量。

【法一:用 InputBox、Print】

Option Explicit

Private Sub Command1_Click()

Const g As Single = 9.8

Dim GG!, m!

请输入质量

GG = m * g

分量是 牛顿

End Sub

【法二:用文本框输入、输出】

Option Explicit

Private Sub Command1_Click()

Const g! = 9.8

Dim GG!, m!

m =

GG = m * g

= GG

End Sub

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

【法 1:Print输出到窗体上】

Private Sub Command1_Click()

End Sub

【法 2:输出到文本框】

Private Sub Command1_Click()

End Sub

四、输出语句

用 Print 方法实现输出

[格式]

Print 若干输出对象

[说明]

1.此句功能是将“输出对象”输出到

窗体等对象上

2.当输出对象为多个时,用逗号或者分 号作分隔符

3.逗号隔得开一些,分号靠的紧些

4.仅有 Print 没有输出对象时,表示

输出一个空行

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

逗号结束时, 下一个 Print语句的内容

接着在同一行输出。

[注意]

Print的完整使用格式:

控件的 Name 属性值.Print 输出对象 [功能]将结果输出到控件上,省略左侧

“控件的 Name 属性值.”时默认输出 到当前窗体上。


本文标签: 输出 输入 赋值 语句