第5章 数组及自定义数据类型.ppt

第5章 数组与自定义数据类型 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.1 数组 5.2 数组控件 5.2 控件数组 5.2 数组控件 5.2 数组控件 5.3 自定义数据类型 5.3 自定义数据类型 Private Sub Command1_Click() Dim a$() Dim x(0 To 10) As Integer 用于保存统计结果 a = Split(Text1, ,) For i = 0 To UBound(a) If (a(i) = 100 And a(i) 0) Then k = a(i) \ 10 x(k) = x(k) + 1 End If Next i Print 统计结果如下： Print 100分的有： x(10) 人 For i = 9 To 0 Step -1 Print i * 10 分 - ; i * 10 + 9 分有： x(i) 人 Next i End Sub Private Sub Command2_Click() End End Sub 5 数组的应用举例 例5-5 输入一串字符，统计各字母出现的次数（不区分大小写），并输出统计结果Private Sub Command1_Click() Dim a%(65 To 90), c As String * 1 le = Len(Text1) For i = 1 To le c = UCase(Mid(Text1, i, 1)) If c = A And c = Z Then j = Asc(c) a(j) = a(j) + 1 End If Next i For j = 65 To 90 输出字母及其出现的次数 If a(j) 0 Then Picture1.Print ; Chr(j); =; a(j); ; Next j End Sub 在应用程序开发中，往往要使用一些类型相同、功能相似的控件，这些控件需要执行基本相同的操作，如果把事件代码分别写在不同对象的事件过程中，会造成代码重复，给程序维护带来了困难，而应用控件数组则能避免上述问题。 1 控件数组的基本概念 控件数组由一组同类控件组成，它们共用一个控件，控件各数组元素有不同的索引号（类似于数组元素的下标），该索引由控件Index属性决定，最大索引值为32767。 控件数组中的各控件元素可以具有不同的属性值，但具有相同的事件过程。例如：若CmdName是具有4个元素的命令按钮控件数组，不管单击哪个命令按钮，都会调用同一个单击事件过程，格式如下： Private Sub CmdName_Click(Index As Integer) …… End Sub 2 建立控件数组的方法 1）设计时建立 步骤如下： (1) 在窗体上添加第一个控件，设置好名称和其它属性； (2) 选中该控件，进行复制和粘贴操作，系统会出现以下提示信息： 单击“是”按钮，建立一个控件数组。通过若干次粘贴操作，便可建立所需要的控件数组。 2 建立控件数组的方法 2）在程序运行时建立 步骤如下： (1) 先建立第1个控件数组元素：在窗体中添加第1个控件，设 置其Index属性为0； (2) 在程序中用Load方法添加其余的若干个元素，用Unload方 法删除某个元素； (3) 新添的控件数组元素通过Left和Top属性值，确定它在窗 体上的具体位置。 (4) 设置其Visible属性为True，使其显示出来。 在应用程序开发中，往往要使用一些类型相同、功能相似的控件，这些控件需要执行基本相同的操作，如果把事件代码分别写在不同对象的事件过程中，会造成代码重复，给程序维护带来了困