编写VB的代码

第四课：编写VB的代码
在VB里的每一个控件或对象，通常可以运行许多种活动或程序；这些事件被列在下拉清单中的代码窗口。

当你双击一个对象，并单击该程序箱时，这个代码窗口就会出现（如图 4.1所示）。

其中事件包括点击一个命令按钮，按下一个键键盘或拖一个物体等。

每一个事件，你都需要写一个事件程序，以便进行一项或一系列的活动。

图 4.1
要编写一个事件的程序时，你需要双击一个对象。

例如，如果你想写一个用户点击命令按钮事件的程序，你可以双击该命令按钮。

之后，一个如图4.2所示的事件程序将出现。

它的形式如下
图4.2
Private Sub Command1_Click
程序代码
End Sub
现在你可在PrivateSub Command1_Click .............End Sub之间键入你的程序。

Sub实际上是全部程序的一部分。

程序代码是由许多的声明所组成，它们的作用是设定某些性能或启动一些行动。

Visual Basic中的程序代码的语法几乎和英语一样，尽管不尽相同，因此学习起来相当容易。

用来设定一个对象的属性或传递值给它的语法是：
object.property
对象和属性是以一个点来分开。

举例来说，form1.show的意思是前台显示窗体
1 ，label1.visible =true的意思是把label1设置为可被宣显示，Text1.text
= " VB6"，目的就是要把VB6显示在名称为text1的文本框里。

Text2.text = 100，是把100的数目显示于text2文本框里。

Timer1.enabled =false，是要禁用Timer1计时器。

让我们看看几个以下的例子：
范例 4.2
Private Sub Command1_click Label1.Caption=” 欢迎”
Image1.visible=true End sub 范例 4.3
Private Sub Command1_click
Pictuire1.Show=true
Timer1.Enabled=True
Lable1.Caption=”开始计数“End sub
在范例4.1里，点击该命令按钮将隐藏标签label1而显示标签label2，本文框textbox1则显现"你是正确的"的文字。

在范例4.2 里，点击该命令按钮使标签label1显现"欢迎"的资源，影像Image1将成为可见。

在范例4.2里，点选该命令按钮将显示picture1，计时器开始运行和label1的字幕更改为"开
始计数" 。

用法不涉及设定性能也是和英语一样，其中一些命令是Print, If…Then….Else….End If, For…Next, Select Case…..End Select , End Exit Sub. ，并最终退出等。

举例来说，Print " Visual Basic"，目的就是要在屏幕上显示文本Visual Basic，End是结束程序。

其他指令将在未来的课程里有更详尽的解释。

那些涉及计算及数学的程序代码是很容易写的，就像做数学一样。

不过，为了写一个涉及计算程序，你需要了解在VB中基本的数学运算符，因为他们并非完全和平常的数学一样。

在VB里，除了+ - 是一样外，乘法是用* ，而除法则用/ ，X^n 代表X n,平方根是Sqr。

其他的数学函数有Sin, Cos, Tan, Log等。

除此之外，还有两个重要的VB函数，那就是VAL和STR。

VAL的作用把键入文本框的文字转换成数值，而STR刚好相反，它是把数值转换成字串（纯文字。

让我们看看范例4.4和范例4.5。

）
范例4.4
Private Sub Form_Activate()
Text3.text=text1.text+text2.text
End Sub
范例4.5
Private Sub Form_Activate()
Text3.text=val(text1.text)+val(text2.text)
End Sub
当你执行范例4.4的程序时，如在本文框textbox1键入12和在本文框textbox2键入3，其结果是123，这是不对的。

这是因为VB把数字当作字串来对待，它只是把两个字符串起来，而不是加起来。

另一方面，范例4.5则会给你正确的结果，即15，这是因为VAL把字串转换成数值了。

第五课: VB6数据的处理
在日常生活中我们会遇到许多类型的数据。

举例来说，我们需要处理的数据中，包括姓名、地址、货币、日期、股票行情等日常生活的统计数据。

同样的，在Visual Basic中，我们也得处理各种类型的数据。

为了使处理数据更加系统化，VB把数据划分成不同的类型。

5.1 Visual Basic 基本数据
5.1.1 数值数据
数值数据是由数目构成的数据，可以进行数字运算，如加，减，乘，除等。

在Visual Basic中，数值数据分为7个类型，他们是归纳在表5.1里
表5.1: 数值数据
5.1.2 非数据类型
该非数值数据类型归纳于表5.2
表 5.2: 非数据类型
5.1.3 后缀文的符号
后缀文是让你把数字转让给一个数据. 在某些情况下，我们需要在一个字的后面增加一个后缀文，使VB可以计算得更准确。

例如，我们可以使用序号= 1.3089#号为双字节型数据。

部分的后缀显示在表5.3 。

表 5.3
此外，我们需要把字符串文字用引号" "围起来，日期和时间则用#标志围起来。

字符串可以包含任何字符，包括数字。

以下是几个例子：
memberName="Turban, John."
TelNumber="0086-25-84755308"
LastDay=#31-Dec-00#
ExpTime=#12:00 am#
5.2变量的管理
变量就像邮局里的邮箱。

变量内容的变化就如同邮箱里的信。

在VB里，变量分配领域，由存储器存取数据。

一如邮箱，每个变量必须给予命名。

在Visual Basic 里，要给一个变量命名，你必须遵守一套规则。

5.2.1 变量名称
以下是在Visual Basic 里为变量命名时的规则
它必须小于255个字符
不得有间隔
不能以号码来开始
不能用点
有效和无效的变量名称显示在表5.4
表 5.4
5.2.2变量初始化
在Visual Basic中，需要初始化在使用的变量，它们所指派的名字和数据类型。

它们通常都用DIM 来定义。

格式如下：
Dim variableNmae as DataType
Example 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,.............
不过，对于固定长度字符串，你必须使用如下的格式：
Dim VariableName as String * n, where n defines the number of characters the string can hold.
Example 5.2:
Dim yourName as String * 10
yourName可拥有不超过10个字符。

第六课: 认识VB的常量和变量
一个程序经常需要使用常量和变量来进行运算。

当程式运算有用到固定的数值时，如圆周率p (3.142) 或固定利率，我们把这类数值称为常量。

至于那些经常变化或不固定的数值，我们把它们归纳为变量，其中的例子如年龄，个人收入，外汇，时间等等。

6.1 常量
常量代表固定不变的数据，它可能是数字或文字。

在使用常量时，我们必须预先宣示它们。

宣示常量的格式是：
Const constantname As datatype=initializer
constantname 是我们自己制定的名称，datatype 是资料类型而initializer 则是初始设定值。

如：
Const Num As Integer = 9.8
Const Pi As Single = 3.142
Const SchoolName As String = "南京体育学院“
6.2 变量
变量是在程式运算时会改变的数据，而常量在运算时是固定不变的。

虽然我们在开始时可给于变量一个数值（初始值），但在程式运作时它的数值是可以改变的。

变量的宣告格式如下：Dim VariableName as Datatype[=initializer]
例：
Dim Num As Single=1.234
Dim Num1,Num2 As Integer
Dim yourName As String
Dim starName As String="刘翔”
以Dim 宣告各种变量之后, 我们可以用以下的格式赋值于这些变量。

Variable=Expression
变量可以是一个已宣布的变量或控件的属性值. 它也可以是一个数学表达式, 一个字符串, 一个布尔值(对或错) 等等. 以下是一些例子:
firstNumber=100
secondNumber=firstNumber-99
userName="John Lyan"
userpass.Text = password
Label1.Visible = True
Command1.Visible = false
Label4.Caption = textbox1.Text
ThirdNumber = Val(usernum1.Text)
total = firstNumber + secondNumber+ThirdNumber
6.3 Visual Basic 的运算符
为了运算用户输入的数据, 我们需要应用各种数学的运算符. 在Visual Basic里, 除了加和减, 它的运算符跟普通数学符号不一样，如表6.1.所显示
表 6.1: VB 的数学运算符
例6.1
Dim firstName As String
Dim secondName As String
Dim yourName As String
Private Sub Command1_Click()
firstName = Text1.Text
secondName = Text2.Text
yourName = secondName + " " + firstName
Label1.Caption = yourName
End Sub
在这个例子中，三个变量分别定义为字符串. 变量firstName 和secondName 会把用户的输入的数据存入文本框Text1 和text2, 而变量yourName 则把以上两个变量的值加起来，然后在标签Label1 上显示出来。

例6.2
Dim number1, number2, number3 as Integer
Dim total, average as variant
Private sub Form_Click
number1=val(Text1.Text)
number2=val(Text2.Text)
number3= val(Text3.Text)
Total=number1+number2+number3
Average=Total/5
Label1.Caption=Total
Label2.Caption=Average
End Sub
在以上的例子里, 有三个变量被初始换为整数和两个变量被宣示为variant 。

Variant 可以容纳任何数字数据类型. 该程序计算输入三个文本框的数字的总平均。