第06章 数组

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