ReDima(n) i = 1
Do While i<= n
s = Int(Rnd * 100 + 1) For pi = 1 Toi - 1
If a(pi) = s Then Exit For Next pi
If pi = i Then '新产生的随机数与数组元素不相同，则存入数组
a(i) = s
Print a(i);
If i Mod 5 = 0 Then Print '以每行5个元素输出数组元素
i = i + 1
25
End If Loop Print End Sub
2．求数组元素的平均值
例6.10 求例6.9中数组元素的平均值。
Private Sub Command2_Click() s = 0
For i = 1 To n s = s + a(i) Next i
Print \所有元素的平均值是：\s /
26
n
End Sub
3.数组元素的排序
例6.11 用冒泡排序法将例6.9中的数组元素按照由小到大的顺序排序输出。
冒泡排序法：
将相邻两个元素进行比较，顺序不对则交换位置，n个数比较n-1轮，第i轮比较n-i次。
N-S 流程图：
27
程序：
Private Sub Command3_Click() For i = 1 To n - 1 For pi = 1 To n - i
If a(pi) > a(pi + 1) Then s = a(pi) a(pi) = a(pi + 1) a(pi + 1) = s End If
28
