vb语言程序设计-vb第6章电子讲稿(编辑修改稿)

vb语言程序设计-vb第6章电子讲稿(编辑修改稿)内容摘要：

改变数组的大小，提高存储区的使用效率 建立动态数组 建立动态数组的步骤： 第一步：声明一个没有下标 (或称空维数 )的数组为动态数组 第二步：在过程中用 ReDim语句重新定义带下标的动态数组 ReDim语句 格式 ： ReDim [Preserve] 数组名 ([下界 1 T0] 上界 1[， [下界２ T0] 上界 2…]) [As 数据类型 ] 功能： 重新定义动态数组，按定义的上下界重新分配存储单元 动态数组 声明 F为动态数组的示例： Private Sub Command1_Click() Dim F() As Integer „声明一个整型动态数组 …… Size=20 ReDim F(Size) …… End Sub 每次执行 ReDim时，系统会清除指定数组的内容 若采用： ReDim Preserve F(Size) 则能保留数组中原有的数据 Private Sub Form_Load() Dim a() As Integer Show ReDim a(800) k = 0 For x = 200 To 600 Step 3 If x Mod 8 = 0 Then k = k + 1 a(k) = x End If Next x ReDim Preserve a(k) For i = 1 To k Print a(i) Next i End Sub 例 ReDim语句应用示例 数组刷新语句可以作用于动态数组和静态数组 格式： Erase 数组名 [，数组名 ]… 功能： 该语句用来清除静态数组的内容，或者释放动态数 例如 : Dim Array1(20) As Integer Dim Array2() As Single ReDim Array2(9,10) „„ Erase Array1,Array2 对静态数组， Erase语句将数组重新初始化。 对动态数组，Erase语句将释放动态数组所使用的内存 数组刷新语句 (Erase) 与前面的循环语句 For...Next类似，都是用来执行指定重复次数的循环。 但 For Each...Next语句专门作用于数组或对象集合中的每一成员。 语法格式： For Each 成员 In 数组名 循环体 [Exit For] Next 成员 “成员”是一个 Variant变量，它实际上代表数组中每一个元素 本语句可以对数组元素进行读取、查询或显示，它所重复执行的次数由数组中元素的个数确定 在不知道数组中元素的数目时非常有用 For Each...Next循环语句 Private Sub Form_Load() Dim a(1 To 10) As Long, sum As Long, t As Long Dim n As Integer Show t = 1 For n = 1 To 10 t = t * n a(n) = t Next n sum = 0 For Each x In a sum = sum + x Next x Print 1! + 2! + 3! + …… 10! =。 sum End Sub 1! + 2! + 3! + … + 10! ＝ 4037913 例 求 1! + 2! + … + 10! 的值 两类数组： 一般数组 和 控件数组 控件数组的概念 控件数组是一组具有相同名称、类型和事件过程的控件 例如， Label1(0)， Label1(1)， Label1(2)， …… 但 Label1, Label2, Label3, …… 不是控件数组 (1)相同的控件名称 (即 Name属性 ) (2)控件数组中的控件具有相同的一般属性； (3)所有控件共用相同的事件过程。 以下标索引值 (Index)来标识各个控件，第一个下标索引号为 0 控件数组 控件数组的建立 建立控件数组有三种方法： (1) (2) (3)将控件的 Index属性设置为非 Null数值 控件数组的使用 例 按图 ，其中一组 (共 5个 )单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小 控件数组 设计步骤： (1)设计控件数组 Option1，其中包含 5个单选按钮对象 具体操作方法： ① 画出第一个单选按钮控件，名称采用默认的 Option1。 此 ② 单击工具栏上的“复制”按钮 (或按 Ctrl+C)。 ③ 单击工具栏上的“粘贴”按钮 (或按 Ctrl+V)，此时系统弹出一个如图 单击“是”，就建立一个控件数组元素，其 Index属性为 1，而已画出的第一个控件的 Index属性值为 0。 通过鼠标拖放可以调整新控件的位置 ④ 继续单击“粘贴”按钮 (或按 Ctrl+V)和调整控件位置，可得到控件数组中的其他三个控件，其 Index属性值分别为 2，3和 4(即从上而下为 0， 1， 2， 3， 4) ⑤ 设置控件数组各元素 (从上而下 )的 Caption属性分别为10， 14， 18， 24和 28 (2)建立一个文本框 Text1，其 Text属性设置为“控件数组的使用”。 再建立一个标签 ，其 Caption属性为“字号控制” (3)编写程序代码 Private Sub Form_Load() Option1(0).Value = True 39。 选定第一个单选按钮 = 10 39。 设定文本框中的字号 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 39。 系统自动返回 Index值 Case 0 = 10 Case 1 = 14 Case 2 = 18 Case 3 = 24 Case 4 = 28 End Select End Sub 程序举例 例 查找考场教室号 某课程统考凭准考证入场，考场教室安排如表。 编制程序，查找准考证号码所对应的教室号码 (1)分析 ：为便于查找，通过二维数组 rm建立这两种号码对照表。 数组 rm由 Form_Load事件过程来建立，它的每一行存放了一个教室资料 (包含准考证号码范围和教室号码 )。 当判断到某个给定准考证号码落在某一行的准考证号码范围内时，则该行中的教室号码为所求 (2)创建应用程序的用户界面和设置对象属性 (3)编写程序代码 功能要求： 用户在文本框 Text1中输入准考证号码。