计算机二级VB数组练习题

数组练习题

'〖第1题〗(事件)双击窗体。

' (响应)求1+2+3+5+8+13+……前20项的和，并将结

' 果在窗体上输出。将结果存入变量SUM中。

'答案 Dim i As Integer

Dim j(1 To 20) As Integer

For i = 1 To 20

If i < 3 Then

j(i) = i

Else

j(i) = j(i - 1) + j(i - 2)

End If

sum = sum + j(i)

Next

Print sum

〖第2题〗题目：(事件)单击窗体。

' (响应)生成一个一维数组(10个数组元素依此为：

' 15、23、72、43、96、23、3、65、88、17)，

' 写程序求出这个数组中的最大值、最小值和平

' 均值，并输出在窗体上。

' 将最大值，最小值，平均值分别存入变量

' Max,Min,Aver中

'答案：Dim a(9) As Integer

Dim i, s As Integer

a(0) = 15

a(1) = 23

a(2) = 72

a(3) = 43

a(4) = 96

a(5) = 23

a(6) = 3

a(7) = 65

a(8) = 88

a(9) = 17

max = a(0)

min = a(0)

s = 0

For i = 0 To 9

If a(i) > max Then

max = a(i)

End If

If a(i) < min Then

min = a(i)

End If

s = s + a(i)

Next

aver = Int(s / 10)

Print (CStr(max))

Print (CStr(min))

Print (CStr(aver))

〖第3题〗题目：应用选择法对数组A按升序排列

'基本思想:

' 1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置； ' 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；

' 3）依次类推，选择了n-1次后，这个数列已按升序排列。

…… 此处隐藏0字 ……

'答案：Dim i, j, imin, temp As Integer

For i = 1 To n - 1

imin = i

For j = i + 1 To n

If a(imin) > a(j) Then imin = j

Next j

temp = a(i)

a(i) = a(imin)