第4课：编写VB的程式码

　　在第二课里，你已经学会如何键入程式码并运行VB程式，但你可能还没有了解VB程式的逻辑。现在，让我们来学习一些基本编写VB程式码的规则。

　　在VB里的每一个控件或对象，通常可以运行许多种活动或程式;这些事件被列在下拉清单中的代码窗口。当你双击一个对象，并单击该程式箱时，这个代码窗口就会出现(如图 4.1所示)。其中事件包括点击一个命令按钮，按下一个键键盘或拖一个物体等。每一个事件，你都需要写一个事件程式，以便进行一项或一系列的活动。

　　图 4.1

　　

 

　　要编写一个事件的程式时，你需要双击一个对象。例如，如果你想写一个户点击命令按钮事件的程式，你可以双击该命令按钮。之后，一个如图4.2所示的事件程式将出现 。它的形式如图4.2:

　　图4.2

　　

 

　　现在你可在PrivateSub Command1_Click .............End Sub 之间键入你的程式, 如下:

　　Private Sub Command1_Click

　　程式码

　　End Sub

　　Sub 实际上是整个程式的一部分, 也称为子程式。

　　程式码是由许多的陈述句所组成，它们的作用是设定某些性能或启动一些行动。Visual Basic中的程式码的语法几乎和英语一样，因此学习起来相当容易。当然，对那些英语还未达标准的朋友们，你必须去上一些英语课程。搞好英语之后对你学习VB 肯定有莫大的帮助。

　　用来设定一个物体的属性或传递价值于它的语法是：

　　object.property

　　物体和属性是以一个点来分开 。举例来说，form1.show 的意思是显称表1 ， label1.visible =true 的意思是把 label1设置为可被显示， Text1.text = " VB6" ，目的就是要把VB6显示于text1的文本框里。Text2.text = 100 ，是把100的数目显示于text2文本框里。 Timer1.enabled =false，是要禁用Timer1计时器。让我们看看几个以下的例子：

　　范例4.1

　　Private Sub Command1_click

　　Label1.Visible=false

　　Label2.Visible=True

　　Text1.Text=”你是正确的!”

　　End sub

　　范例 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 代表Xn,平方根是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把字串转换成数值了 。