北京职业院校VB程序编程教案：VB语言基础04.docVIP

北京职业院校VB程序编程教案：VB语言基础04 例如： Private Sub Form_Click() Dim A%(12 To 24) Print LBound(A), UBound(A) End Sub 用Option Base n可设定数组的默认下界 n的取值只能是0或1 设定方法：在代码窗口的通用声明段中输入 Option Base 0 或 Option Base 1 2. 数组元素的使用 通过数组名和下标 [例1] Private Sub Command1_Click() Dim Data(5) As Integer Dim Sum, I As Integer For I = 1 To 5 输入5个数据到数组中 Data(I) = InputBox(输入第 I 个数据) Next I For I = 1 To 5 完成5个数组元素的相加 Sum = Sum + Data(I) Next I Print Sum End Sub 说明： 数组实际上是用一个变量名字代表一组数，这组数是连续排列的，用顺序号作为下标区分各个数。 数组下标是一个整型量，如果有小数则自动按四舍五入取整。例如，Data(3.4)=3，而Data(3.5)=2。 数组常见的错误： 下标出界 三、二维数组 二维数组的定义(声明) 二维数组由行和列组成，有两个下标 定义格式： Dim 数组名([下界 To ]上界，[下界 To ]上界) As 数据类型 例如，Dim Data(1 To 5，3 To 9) As Integer 下界默认为0 例如， Dim Salary(30,10) As Currency 31行11列 二维数组有行、列两维，通常需使用二重循环引用 二维数组中的数据按行存储，其引用与一维数组相似。 Private Sub Form_Click() Dim A(2, 3) As Integer, I%, J%, C% For I = 0 To 2 For J = 0 To 3 数组赋值 A(I, J) = C : C = C + 1 Next J Next I For I = 0 To 2 输出数组 For J = 0 To 3 Print A(I, J); Next J Print 另起一行打印 Next I End Sub 3.4.2过程与函数 一、过程 过程是一段程序代码，是相对独立的逻辑模块。 一个完整的VB应用程序由若干过程和模块组成。 常用的VB过程有：Sub过程和Function过程。 Sub过程(子过程)：完成一定的操作和功能，无返回值，通过程序调用和事件触发而执行，分为事件过程和通用过程。 Function过程(函数过程)：相当于用户自定义的函数，通过程序调用才能被执行，并且可将数据处理的结果返回。 一个过程的代码长度不要超过64K。 Sub过程 过程定义格式： [Private|Public][Static]Sub 过程名(参数表) 语 句 End Sub Private表示模块级子过程，Public表示全局级子过程(缺省值) 。 Static表示过程内部定义的变量值在整个程序运行期间被保留。 过程名符合VB标识符的命名约定 参数表可以是空表，也可以放置若干个变量(形式参数) 。如： Public Sub Sum(X As Integer, Y As Integer, Z As Integer) Sub过程分为：事件过程和通用过程 1. 事件过程 这类过程与对象有关，对象事件触发后被调用。 事件过程的过程名由系统自动指定。 建立对象的事件过程： (1) 进入代码窗口 方法1：双击对象 方法2：“视图→代码窗口” (2) 选择“对象”和“事件过程”，系统 自动形成该事件过程的头和尾 (3) 编写该事件的程序代码 2. 通用Sub过程 这类过程不与对象相关，是用户创建的一段共享代码。 过程的名称由用户自己命 建立通用Sub过程： (1) 建立过程框架 方法1：在模块的“通用”段中输入 过程名，按回车后系统自动添加 End Sub。 方法