第5章 节 数组与记录 计算机等级考试之VB程序设计课件.ppt

VB的控件包括以下两种 （1）内部控件 “命令按钮”、“文本框”等在第4章介绍的常用控件总是出现在工具箱中，不需要用户另外添加。它们称为“内部控件”。 （2）嵌入的外部对象 ①　Active X控件是扩展名为.OCX的独立文件，用于实现一些应用程序的高级功能。 ②　外部设计器。 ③　OLE窗口控件用于嵌入不需编程的对象，例如　Microsoft Excel工作表对象、 Microsoft Word文档对象。 在VB工程中，可以十分方便地使用外部的现成对象。操作方法有如下两种 5.5.1嵌入的外部对象的方法 （1）把外部对象模板添加到工具箱中，然后使用模板建立控件。 （2）使用VB工具箱的OLE容器嵌入OLE控件。 （1） 在“工程”菜单中，选取“部件”命令,或在工具箱空白处单击鼠标右键,以显示“部件”对话框，如图 选取“可插入对象”。 1.使用模板建立控件 Here （2）选定要在工具箱加入的对象，单击控件名称左边的复选框，使小方框出现“√”。若取消选择，就删除该控件。 1.使用模板建立控件 Here 数组刷新。 Option Explicit Private Sub Command1_Click() Dim ary(5) As Integer Dim k As Integer For k = 0 To 5 ary(k) = k Next Print 例5-8 Print 输出被赋值的数组: For k = 0 To 5 Print ary(k); Next Print Erase ary Print Print 输出刷新后的数组: For k = 0 To 5 Print ary(k); Next k End Sub 在定义数组时不说明类型或使用可变类型定义的数组称为可变类型数组。 例如：Dim try(2) 或 Dim try(2) As Variant 说明了一个可变类型数组try。对于可变类型数组，可以对它的每一个元素赋予不同类型的值。 例如：try(0)=100 try(1)=456.123 try(2)=”string” 1.可变类型数组的赋值与访问 5.3.4 可变类型数组 说明：可以把一个数组赋给可变类型数组的元素。 例如，假设有：Dim ax (3) As integer For i=0 To 3 ax(i)=i Next i 则可以把数组ax赋给try的一个元素： try(1)=ax() 此时try(1)成为一个包含数组ax的可变类型数组元素。即 try(1)包含4个元素，它们的访问形式为： try(1)(0) try(1)(1) try(1)(2) try(1)(3) 它们的值分别为0、1、2和3。 把数组赋给可变类型数组的元素。 Option Explicit Private Sub Command1_Click() Dim x As Integer Dim ax(3) As Integer , bx(4) As String , try(1 To 4) As Variant For x=0 To 3 ax(x)=x Next x For x=0 To 4 bx(x)=“Welcome” Next x 例5-9 try(1)=456.123 try(2)=hello try(3)=ax() try(4)=bx() Print try(1) Print try(2) For x=0 To 3 Print try(3)(x) Next For x=0 To 4 Print try(4)(x) Next x End Sub 使用Array函数可以创建数组和使数组初始化而得到初值。它需要与赋值语句配合起来使用，一般形式： arrayname=