VB-第6章 数组与自定义类型.pptVIP

数组的概念 【例】声明5个变量，并赋值都为0. Private sub form_click() Dim a1, a2, a3, a4, a5 As Integer ‘定义5个变量 a1 = 0: a2 = 0: a3 = 0: a4 = 0: a5 = 0 ‘赋值 Print a1, a2, a3, a4, a5 End Sub 题意若为声明100个变量，赋值为0。是否如【例6-1】一样，声明100个变量，然后赋值？那样的工作量会很大。分析规律发现，声明变量和赋值操作都反复执行100次，是否可以采用循环实现呢？但是如何去构造循环语句呢？ 步骤3：编写事件过程。 Private Sub Text1_Change(Index As Integer) For Index = 0 To 10 ‘引入循环，对每个控件元素进行操作 If (Not IsNumeric(Text1(Index).Text)) Then Text1(Index).Text = End If Next Index End Sub * 一维数组的基本操作 (2) Array函数 Dim ib() As Variant ib = Array(abc, def, 67) For i = 0 To UBound(ib) Picture1.Print ib(i); ; Next I 注意： 利用Array对数组各元素赋值，声明的数组是可调数组或连圆括号都可省，并且其类型只能是Variant。 数组的下界为零，上界由Array函数括号内的参数个数可决定，也可通过函数Ubound获得。 * 一维数组的基本操作 2．数组的赋值 在VB6.0中，提供了数组直接对数组的赋值。例如： Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a)) b = a 注意：赋值号左边的数组只能声明为Variant的可调数组或简单变量 * 数组的输出 输出如图所示的下三角数据 Dim sc(5,5) As Integer,i%,j% For i = 1 To 5 For j = 1 To i sc(i, j) = i * 5 + j Print sc(i, j); ; Next j Print 换行 Next I * 求数组中最大元素及所在下标 Dim Max As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)Max Then Max=A(i) iMax=i End If Next I * 将数组元素倒置 * 将数组元素倒置 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next I * 将数组元素倒置 Option Base 1 Private Sub Command1_Click() Dim i%, t%: Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = i – 1 Next For i = 1 To 10 Print a(i); Next For i = 1 To 10 \ 2 t = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = t Next i Print For i = 1 To 10 Print a(i); Next End Sub * 将数组元素倒置 Option Base 1 Private Sub Command1_Click() Dim i%, t%:Dim a() As Variant a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 1 To 10 Print a(i); Next For i = 1 To 10 \ 2 t = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = t Next i Print For i = 1 To 10 Print a(i); Next End Sub * 选择排序法 算法