第5章节数组与自定义数据类型.pptVIP

第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