《visualbasic程序设计教案：数组》由会员分享，可在线阅读，更多相关《visualbasic程序设计教案：数组（6页珍藏版）》请在金锄头文库上搜索。
1、3.6数组数组是按确定挨次排列，具有一样类型的变量的集合。VB 中将数组分为静态数组和动态数组，静态数组在声明时必需指明数组的维数和变量的个数；动态数组在声明时仅定义数组的名称和类型，然后在执行程序的过程中，依据实际需要再用ReDim 语句定义数组的维数及变量的个数，而且允许使用简洁变量来进展数组中变量个数的定义。数组的使用在治理信息系统软件的程序设计中有着不行替代的作用，离开数组的使用， 某些程序的编制将会变得格外麻烦，甚至导致程序编制的失败，因此数组是程序设计人员必 须生疏和把握的必备学问。【教学要求】了解：数组的概念。理解：静态数组和动态数组的区分；控件数组的作用。把握：数组的定义及使用
2、方法；控件数组的应用。【本节重点】动态数组的应用。控件数组的应用。【本节难点】动态数组的应用。一、静态数组及声明1、一维数组一维数组的定义如下：Dim (下界 To上界)As类型 假设缺省下界，系统默认为 0。例：Dimnum1 To 50 As Integer 2、多维数组VB 中数组的维数允许最多可达 60 维。多维数组的定义格式如下：Dim下界 1To上界 1，下界 2To上界 2 As类型 例：Dim A12，50，C10 AsDouble二、动态数组动态数组在声明时只定义数组名或数组名及类型，不指定大小，在执行程序的过程中， 再依据需要用Redim 语句重定义数组的大小。重定义动态数
3、组的语句格式如下：Redim下标 1，下标 2 留意：（1） Redim 语句中的下标可以是已被赋值的变量。（2） 在过程中可屡次使用Redim 来转变数组的大小和维数。（3） 每次使用Redim 语句都会使原数组中的数据丧失，如需要保存原数组数据，可用Preserve 参数来保存，使用该参数只能转变最终一维的大小。例：在程序运行时由操作者指定一个一维数组的变量个数，然后由计算机自动产生一组 随机数存放到一维数组中，并将此组随机数在窗体上打印出来。完成此项工作的源程序如下：Dim x As Double Private Sub Form_ClickW=InputBox“请问需要产生多少个随机数
4、？“，100，100W=Val(W)ReDim x(W)For i = 1 To Wx(i) = Rnd Print x(i); “ “;Next End Sub留意：动态数组主要用于编程时尚不能确定数组中变量的个数，而只能在程序执行过程中依据统计或外部供给的信息才能确定数组中变量个数的状况。三、数组的根本操作1、用循环语句为数组元素赋初值例：使用ForNext 语句为一维数组赋初值 0。Private Sub Form_Load( )Dim a(10)As Integer For i = 0 To 10a(i) = 0 NextEnd Sub2、使用Array 函数给数组赋值例：给a 数组赋
5、值 5 个奇数；给b 数组赋值 3 个英文字母。Dim a As Variant, b As Variant, I% a = Array(1, 3, 5, 7, 9)b = Array(“x“, “y“, “z“)留意：（1） 利用 Array 函数对数组各元素赋值，声明的数组是可调数组，并且其类型只能是Variant。（2） 数组的下界为 0，上界由函数括号中的参数个数打算。四、数组的应用举例例 1、排序：令计算机用随机函数自动生成20 个 10100 之间的整数，将其按由小到大的挨次排列，并将这 20 个随机数打印出来。Dim X(20) As Integer Dim i, j, k As
6、 IntegerPrivate Sub Form_Load RandomizeFor i = 1 To 20X(i) = Rnd * 90 + 10Next End SubPrivate Sub Form_Click For i = 1 To 19For j = i + 1 To 20If X(i) X(j) Thenk = X(i)：X(i) = X(j)：X(j) = k End IfNextPrint X(I);Next End Sub例 2、编程实现：当用户由键盘输入一串英文字母到文本框Text1 中后，令计算机自动统计出Text1 中各种英文字母消灭的次数不区分大小写，并将统计结果打
7、印出来。Private Sub Command1_Click Dim ss As StringDim a(1 To 26) As Integer, i, k As Integer k = Len(Text1.Text)For i = 1 To kss = UCase(Mid(Text1.Text, i, 1)If ss = “A“ And ss 1 For k = 1 To jm = m + 1m = m Mod 16Do While Not (Label1(m).Visible) m = m + 1m = m Mod 16 LoopNext kLabel1(m).Visible = Fals
8、e Image1(m).Visible = False n = n - 1DoEventsti = DateAdd(“s“, 1, Now) Do While ti NowLoop LoopFor i = 0 To 15If Image1(i).Visible Then k = i + 1End If Next iText1.Visible = TrueText1.Text = “最终剩的是第“ & k & “号狮子“End Sub（2） 程序运行时添加控件数组在程序运行时，可添加或删除控件数组元素，具体操作步骤如下： 在窗体上创立一个控件，设置其Index 值为 0； 在编程时使用Load
9、方法添加其余元素，也可使用Unload 方法删除某个元素，语句格式如下：Load控件数组名IndexUnload控件数组名Index 每个添加的控件数组元素通过Left 和 Top 属性确定其在窗体的位置，并将 Visible属性设置为True。例：在窗体设计时先建立一个命令按钮，然后在程序运行时添加 9 个命令按钮控件数组的元素，这 10 个命令按钮的标题分别为 09 十个数字。第一步：在设计时建立一个命令按钮 Command1，然后设置其 Caption 属性值为：0，Index属性值为：0，使得Command1 成为控件数组中的第一个元素。其次步：其它 9 个控件数组元素在程序运行时添加
10、，添加控件数组元素的源程序如下： Private Sub Form_LoadDim i, m, n As Integerm = Command1 (0).Height n = Command1 (0).Width For i = 1 To9Load Command1 (i) Command1 (i).Visible = True Command1 (i).Caption = iIf i Mod 3 = 1 ThenCommand1 (i).Top = Command1 (i - 1).Top - Command1 (i).Height - 230 Command1 (i).Left = Command1 (0).LeftElseCommand1 (i).Top = Command1 (i - 1).TopCommand1 (i).Left = Command1 (i - 1).Left + Command1 (i).Width + 465 End IfNextCommand1 (0).Width = Command1 (0).Width * 3 + 465 * 2 End Sub
