VB数组运用

实验八数组的应用（一）1、验证实验一。

假定学生的成绩在数组XS_CJ(1 to 10)中，对应的姓名在数组XS_XM(1 To 10)中，单击按钮“排序”时，能按分数从高到低的排列，即排序后XS_CJ(1)和XS_XM(1)为第一名的成绩、姓名。

题目分析：本实验是完成一个对数组元素从大到小的排序。

可以采用教材中中介绍的冒泡法完成排序，在此介绍另一种简单的排序方法——比较交换法。

假设对A(N)数组中的数据从大到小排序，比较交换法的排序步骤如下：（1）将第一个数与第2个到第10个数依次比较，如果A(1)<A(J)(J=2,3,…,10)，则交换A(1)和A(J)；（2）将第2个数与第3个到第10个依次比较，如果A(2)<A(J)(J=3,…,10)，则交换A(2)和A(J)；（3）重复以上方法，将第I个数与第I+1个数到第10个数依次比较，如果A(I)<A(J)(J=3,…,10)，则交换A(I)和A(J)；共重复N-1轮。

换的不仅XS_CJ数组中的元素，而且对应的XS_XM数组中对应的元素也要进行交换。

（1）设计界面可参考如下图8.1所示。

用列表框LstOldMark和LstNewMark分别来显示排序前后学生的姓名和成绩。

（2）编写代码在窗体模块的声明段声明Option Base 1Dim XS_XM(10) As stringDim XS_CJ(10) As Single图8.1 设计界面在窗体的Load事件过程中完成对数据的输入。

For I = 1 To 10XS_XM(I) = InputBox("请输入第" & Str(I) & "个学生的姓名", "成绩排序")XS_CJ(I)=val(InputBox("请输入第" & Str(I) & "个学生的成绩", "成绩排序")) LstOldMark.AddItem XS_XM(I) & " " &XS_CJ(I)Next I在“排序”按钮的Click事件过程中完成排序，部分代码如下：‘用比较交换法进行排序For I=1 To 9For J=I+1 To 10If XS_CJ(I)<XS_CJ(J) Then‘交换学生成绩T=XS_CJ(I) :XS_CJ(I)=XS_CJ(J): XS_CJ(J)=T‘交换学生姓名T=XS_XM(I) : XS_XM (I)= XS_XM (J): XS_XM (J)=TEnd IfNext JNext I‘排序的结果显示于列表框LstNewMark 中，请自行补充完成。

vb控件数组的使用VB控件数组是在Visual Basic开发环境中用于处理大量相似控件的一种技术。

通过创建控件数组，可以方便地对一组控件进行集成处理，从而提高代码效率。

下面将详细介绍控件数组的使用及其注意事项。

1、控件数组的声明与初始化在VB中，声明控件数组与普通变量的方法类似。

通过使用Dim语句，在程序代码中声明一个控件数组，例如：Dim myButton(10) as CommandButton这里创建了10个命令按钮的数组，可以直接操作数组元素，如：myButton(0).Caption="Button1"myButton(1).Caption="Button2"当然，你也可以使用For循环结构来初始化数组中的控件，如下所示：For i = 0 To 10Set myButton(i) = Controls.Add("mandButton", "Button" & i)myButton(i).Top = i * 25Next i上述代码使用For循环在窗体上添加了11个按钮，并将它们的Top 属性依次设置为0、25、50、75……。

2、控件数组的处理方法通过使用控件数组，可以对具有相同事件处理程序的一组控件进行集成处理。

比如，你可以使用For循环结构为这些控件注册事件，代码如下：For i = 0 To 10Set myButton(i) = Controls.Add("mandButton", "Button" & i)myButton(i).Top = i * 25AddHandler myButton(i).Click, AddressOf Buttons_ClickNext iPrivate Sub Buttons_Click()MsgBox "Clicked"End Sub这里，我们将11个按钮的Click事件都绑定到Buttons_Click事件处理程序，当任何一个按钮被单击时，都会产生一个被处理的事件。

《Visual Basic 6.0程序设计》实验报告（五）一、实验名称：数组的应用（4学时）二、实验目的：１．掌握数组的声明和数组元素的引用；２．掌握静态数组和动态数组的声明和使用；３．学会应用数组解决与数组有关的常用算法问题；４．掌握控件数组的建立和应用。

三、实验环境多媒体计算机WindowsXP操作系统Visual Basic 6.0四、实验内容及实验步骤（或记录）1.输入10名同学的成绩，求平均分、最高分和最低分。

设计步骤如下：①在窗体上添加3个标签（Label1、Label2和Label3）和3个文本框（Text1、Text2和Text3），设计界面如图7.2所示。

各控件的主要属性和作用如表1所示。

控件的属性和作用②编写程序代码如下：Private Sub Command1_Click()Dim Score(1 To 10) As Integer '声明存放成绩的数组ScoreDim i As Integer，Max As Integer，Min As Integer，Average As SingleFor i = 1 To 10 '逐一输入每个同学的成绩Score (i) = Val (InputBox ("输入第" & Str（i）& "个学生的成绩"，"成绩统计"，""))Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim sum As Single, aver As Singlesum = Score (1) ' sum 用于存放总成绩，初值为数组中的第一个元素Max = Score (1) ' 设变量Max的初值为数组中的第一个元素Min = Score (1) ' 设变量Min的初值为数组中的第一个元素For i = 2 To 10 ' 通过循环依次比较，求最大、最小值；求总和If Score(i) > Max Then Max = Score(i)If Score(i) < Min Then Min = Score(i)sum = sum + Score(i)Next iaver = sum / 10 ' 求平均值Text1.Text = Format (Average, "0.00 " ) ' 以两位小数显示平均值Text2.Text = MaxText3.Text = MinEnd Sub2.生成20个0到100之间的随机整数存于数组A，然后将这20个数按递增顺序排序。

控件数组：具有相同的名称和事件过程的一组同类型控件。
控件数组中的每一个控件具有一个唯一的索引值——index属性值， 它相当于数组的下标。
控件数组中的所有控件共享同一事件过程。例如，假定某个控件数组 含有5个命令按钮，则不管单击哪个标签，系统都会调用同一个Click 过程。由于每个按钮在程序中的作用不同，系统会将被单击的按钮的 Index属性值传递给过程，由事件过程根据不同的Index值执行不同 的操作。
下标可以是常量、变量或表达式，但表达式的值必须介于定义 数组时指定的下标的下界和上界之间，否则将导致“下标越界” 的错误。
例如：
A(1)=A(1)+B(1)
′取数组元素运算
A(i)=B(i)
′下标使用变量
B(i+1)=A(i+2)
′下标使用表达式
C(3,4)=100
′下标使用常量
二、数组的使用
数组元素的表示 ：数组名（下标1[,下标2…]）。 例如：a(1) 、 a(1,2) 只有一个下标的数组叫一维数组 有两个下标的数组叫二维数组，… ，最多可达60维。 数组在使用前必须先声明（数组名、类型、维数和数组的大小）。 数组声明时，指定了数组的维数和大小的数组称为静态数组。 没有 指定维数和大小的数组称为动态数组。前者大小固定，后者在使用前需 要重定义。
Next j
Next i
Print: Print "排序结果："
For i = 1 To N Print a(i);
Next i
思考:产生7个0-9之间的随机数如何改程序? [a,b]间的数=int (b-a+1)*rnd+a
数组的排序
2.选择法排序（升序）
❖ 选择法排序是最为简单且易理解的算法，其基本思想是每次将最小 （或最大）的数找出来放在序列的最前面。假设按递增法将有n个数 的数组A(1To n)进行排列，步骤为：