定义100个元素的一维数组（1）输入并输出数组的所有元素（2）求所有元素的最大值（3）求所有元素的和与平均值（4）查找满足条件（如元素能被4整除）的所有元素及其个数（5）统计

Question

定义100个元素的一维数组
（1） 输入并输出数组的所有元素（2） 求所有元素的最大值（3） 求所有元素的和与平均值（4） 查找满足条件（如元素能被4整除）的所有元素及其个数（5） 统计其中奇数和偶数的个数（6） 将数组从小到大排序,并输出

Answer 1

Dim a(99) As Integer
Private Sub Command1_Click()
'输入
For i = 0 To 99
Randomize
a(i) = Int(100 * Rnd)
Next i
'输出
For i = 0 To 99
If i Mod 10 = 0 And i 0 Then Print
Print Format(a(i), "00") & " ";
Next i
End Sub
Private Sub Command2_Click()
m = 0
For i = 0 To 99
If a(i) > m Then
m = a(i)
End If
Next i
Print
Print
Print "最大值是："; m
End Sub
Private Sub Command3_Click()
m = 0
For i = 0 To 99
m = m + a(i)
Next i
Print
Print "和 是："; m; "平均值 是："; m / (UBound(a) + 1)
End Sub
Private Sub Command4_Click()
Print
m = 0
For i = 0 To 99
If a(i) Mod 4 = 0 Then
m = m + 1
Print Format(a(i), "00") & " ";
If m Mod 5 = 0 Then Print
End If
Next i
End Sub
Private Sub Command5_Click()
s1 = 0
s2 = 0
For i = 0 To 99
If a(i) Mod 2 = 0 Then
s2 = s2 + 1
Else
s1 = s1 + 1
End If
Next i
Print
Print
Print "奇数个数 是："; s1; "偶数个数 是："; s2
End Sub
Private Sub Command6_Click()
Print
Print
For i = 0 To 99
For j = 99 To i + 1 Step -1
If a(j - 1) > a(j) Then
t = a(j - 1)
a(j - 1) = a(j)
a(j) = t
End If
Next j
Next i
For i = 0 To 99
If i Mod 10 = 0 And i 0 Then Print
Print Format(a(i), "00") & " ";
Next i
End Sub