Visual Basic 教学辅导（四）.docVIP

Visual Basic程序设计课程辅导——第4章 第4章 VB高级语言技巧 本章以一个多功能计算器应用程序为实例，较系统介绍了数组、过程、函数的定义和使用方法，详细讲解了鼠标和键盘的常用使用技巧。通过本章学习，你应该能够达到如下学习目标： 1．掌握数组的使用方法 2．掌握键盘、鼠标的使用技巧 3．掌握过程和函数的定义和调用方法 4．掌握API函数的调用方法 5．了解枚举及自定义数据类型 6．理解“多功能计算器”程序设计过程 从“多功能计算器”应用程序开发入手，学习本章内容。 主要知识点分析 1．静态数组 静态数组是在声明时已经确定了大小的数组，即数组元素的个数固定不变。声明静态数组的方法有两种。 方法1 Dim 数组名(上界) As数据类型 如Dim A(3) As Integer 该语句定义了一个一维数组，数组名字为A，类型为整型，包括4个数组元素，分别是A(0)，A(1)，A(2)，A(3)。 Dim A(3，3) As Integer，该语句定义了16个数组元素。 （2）方法2 Dim 数组名(下界 To 上界) 如Dim A(1 To 3) As Integer 该语句定义了一个包含3个元素的数组，分别是A(1)，A(2)，A(3)。 Dim A(1 To 5,1 To 5) As Integer，该语句定义了25个数组元素。 应注意以下几点： （1）在数组声明中的下标用于确定每一维的大小，是数组的说明符；数组元素的下标是用于确定某一指定的元素。例如： Dim A(3) As Integer ‘下标3用于确定A数组有4个元素 A(3) ‘下标3用来指定数组元素A(3) （2）在声明数组时，下标必须为常量，而在引用数组元素时，下标可以是常量、变量或表达式。例如： Dim A(n) As Integer A(n)=10 ‘为下标值为n的元素赋值 A(3+4)=10 ‘用表达式的值来指定数组元素的下标 （3）若想改变下标下界的默认值0，可在Visual Basic的窗体模块或标准模块中用Option Base n语句重新设定数组的下界。例如： Option Base 1 ‘设定数组下标下界为1 2．过程和函数的定义 将一个大程序分割成多个具有独立功能的逻辑段以实现系统功能，这些逻辑段就称为过程。在程序设计中，经常会有重复的部分，如果把重复的部分作成一个函数或一个过程，在使用时进行调用，可以节省大量的输入代码的时间。VB中有两种过程，即Sub过程（子过程）或Function过程（函数过程）。 （1）Sub过程 在VB中将Sub…End Sub定义的子程序称为Sub过程，或称子过程。Sub过程又分为事件过程和通用过程。 事件过程我们已经不陌生了，如下面的一段程序就是一个事件过程： Private Sub Command1_Click(Index As Integer) If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + Trim(Str(Index)) Else txtSecond.Text = txtSecond.Text + Trim(Str(Index)) End If End Sub 事件过程的定义格式为： Private Sub 控件名_事件名(形参表) 过程体 End Sub 上述事件过程用Sub语句标识过程的开始，用End Sub语句标识过程的结束，由过程体完成该过程的运算和操作功能；控件名_事件名为事件过程的过程名格式。其中控件名为控件的Name属性值，事件名为该控件要触发的事件名称，控件名可以通过Name属性修改，而事件名是系统预先为每个对象定义好的，不能修改。例如，命令按纽Command1的单击事件过程名为Command1_Click，如果将命令按纽重新命名为cmdCN，则命令按纽的单击事件过程名为cmdCN_ Click。事件过程保存在窗体模块文件中。事件过程是一个私有过程。 通用过程 通用过程与事件过程不同，通用过程并不需要与用户界面中的任何对象相联系，它不是由鼠标触发的，而必须由其它过程调用。通用过程保存在窗体模块和标准模块中。通用过程的语法格式为： [Private|Public][Static]Sub过程名（[形参表]） 过程体 End Sub 使用时应注意以下几点： 通用过程的过程名由用户定义，但必须符合VB标识符命名规则，同一个模块中不允许两个过程名同名。 通用过程可以定义为Private、Public、Static，缺省时