第五课： VB 数据的处理

❮ 上一课下一课 ❯

在日常生活中我们会遇到许多类型的数据。举例来说，我们需要处理的数据中，包括姓名，地址，货币，日期，股票行情等日常生活的统计数据。同样的，在Visual Basic中，我们也得处理各种类型的数据。为了使处理数据更加系统化， VB把数据划分成不同的类型。
　

5.1 Visual Basic 基本数据

5.1.1 数字数据

数字数据是由数目构成的数据，可以进行数字运算，如加，减，乘，除等。在 Visual Basic 中，数字数据分为7个类型，我们可把这些数字归纳在表5.1中

表 5.1:数字数据

类型	取值范围
Byte	0 至 255
Integer	-32,768 至 32,767
Long	-2,147,483,648 至 2,147,483,648
Single	-3.402823E+38 至 -1.401298E-45 负数 1.401298E-45 至 3.402823E+38 正数.
Double	-1.79769313486232e+308 至 -4.94065645841247E-324 负数 4.94065645841247E-324 至1.79769313486232e+308 正数.
Currency	-922,337,203,685,477.5808 至 922,337,203,685,477.5807
Decimal	+/- 79,228,162,514,264,337,593,543,950,335 如果没有小数点 +/- 7.9228162514264337593543950335 (28 个小数点）.

5.1.2 非数据类型

我们把非数字数据类型归纳于表5.2

表 5.2: 非数据类型

类型	范围
String(fixed length)	1 to 65,400 字符
String(variable length)	0 to 20 亿字符
Date	公元100 年正月一日至 9999年十二月三十一日
Boolean	True 或 False（对或错）
Object	任何嵌入对象
Variant(numeric)	任何价值大如 Double
Variant(text)	与 variable-length string相同

5.1.3 后缀文的符号

后缀文是让你把数字转让给一个数据. 在某些情况下，我们需要在一个字的后面增加一个后缀文，使VB可以计算得更准确。例如，我们可以使用序号= 1.3089#号为双师型数据。部分的后缀显示在表5.3 。

表 5.3

后缀	数据类型
&	Long
!	Single
#	Double
@	Currency

此外，我们需要把字符串文字用开关引号 " " 围起来，日期和时间则用#标志围起来。字符串可以包含任何字符，包括数字。以下是几个例子：

memberName="Turban, John."
TelNumber="1800-900-888-777"
LastDay=#31-Dec-00#
ExpTime=#12:00 am#

5.2 变数的管理

变数就像邮局中的邮箱。变数内容的变化就如同邮箱中的信。在 VB 中，变数是电脑记忆体存取数据的区域。一如邮箱，每个变数必须给予命名。在Visual Basic 中，要给一个变数命名，你必须遵守一套规则。

5.2.1 变数名称

以下是Visual Basic 为变数命名时的规则

它必须小于255个字符
不得有间隔
不能以号码来开始
不能用点

有效和无效的变数名称请参考表 5.4

表5.4

有效的名字	无效的名字
My_Car	My.Car
ThisYear	1NewBoy
Long_Name_Can_beUSE	He&HisFather *& is not acceptable

5.2.2 变数的宣示

在 Visual Basic 中，我们需要宣示所有要用到的变数，它们所指派的名字和数据类型。它们通常都在总则部分的代码'窗户用 DIM 来宣示。
　

其程序代码如下：

Dim variableName as DataType

范例 5.1

Dim password As String
Dim yourName As String
Dim firstnum As Integer
Dim secondnum As Integer
Dim total As Integer
Dim doDate As Date

你也可以把它们结合起来排在一条线，每个变数以一个逗号分割，具体情况如下：

Dim password As String, yourName As String, firstnum As Integer,.............

假如我们没有特别指明数据类型， VB 将自动宣告变数的类型。

要宣示字符串，有两种可能的方式，一为可变长度的字符串，另一个为固定长度字符串。为可变长度的字符串，只是用同样的格式，如范例5.1。不过，对于固定长度字符串，你必须使用如下的格式：

Dim VariableName as String * n

Example 5.2:

Dim yourName as String * 10

n 是字符串可以持有的字符数, yourName可拥有不超过10个字符。

例子 3.3

Private Sub Form_Load ( )

Combo1.AddItem “Item1”

Combo1.AddItem “Item2”

Combo1.AddItem “Item3”

Combo1.AddItem “Item4”

End Sub

5.2.8 复选框(CheckBox)

复选框让用户可以选择或取消选择一个选项。当复选框被选中时，其值是设定为1。如不被选中，其值设定为0 。你可以用程序来设定复选框的属性，如键入check1.value = 1 ，就表示它被选中，check1.value = 0 就表示它不被选中，并用它来执行某些动作。举例来说，该程序将改变背景颜色的形式，当复选框被设定为红色时，该复选框的值等于0。复选框的值等于1 时，复选框颜色是蓝色。在以后的课程，你将学到有条件声明 If… … ，Then… 。 Elesif。。 vbred 和 vbblue 是彩色常量和 backcolor 是背景颜色。

例子 3.4

Private Sub Check1_Click ()

If Check1.Value = 0 Then

Form1.BackColor = vbRed

ElseIf Check1.Value = 1 Then

Form1.BackColor = vbBlue

End If

End Sub

3.2.9 选项框(Option Button)

选项框也可以让用户自由选择一个项目。但是，在同一时间中只有一个选项框可被选择。当一个选项框被选定时，其价值被设定为"True"时，反之则其价值被设定为"False"。在下面的例子中，一个板形控件并连同六个选项框被安置在Form1中。当用户点击不同的选项框，不同的形状就会出现。板形控制的价值被设定为 0 ， 1 ，2, 3, 4, 5，它将显示一个长方形，正方形，椭圆形，圆焦正方形和正方形。

例子3.5

Private Sub Option1_Click ( )

Shape1.Shape = 0

End Sub

Private Sub Option2_Click()

Shape1.Shape = 1

End Sub

Private Sub Option3_Click()

Shape1.Shape = 2

End Sub

Private Sub Option4_Click()

Shape1.Shape = 3

End Sub

Private Sub Option5_Click()

Shape1.Shape = 4

End Sub

Private Sub Option6_Click()

Shape1.Shape = 5

End Sub

5.2.9 驱动器列表框

驱动器列表框，是用来显示在您的计算机上所有的驱动器。当你把这个控件纳入表格然后去运行程序，你将能够选择不同的驱动器，如图3.4 所示。

图 3.4 驱动器列表框

3.2.10 目录列表框

目录列表框是用来显示清单目录或文件夹中选择一个驱动器。当你把这个控件纳入表格然后去运行程序，你将能够从所选驱动器中选择不同的目录，如图3.5 所示。

图 5.5 目录列表框

3.2.11 文件列表框

文件列表框是用来显示文件列表在选定的目录或文件夹。当你把这个控件纳入表格然后去运行程序，你将能够从文件的列表中选择一个目录，，如图3.5 所示。
除此以外，你也需要协调驱动器列表框，目录列表框和文件列表框以便搜索文件。

❮ 上一课下一课 ❯

[Privacy Policy]