vb的一些問題4

编写一个程序，窗体用A10.frm文件名保存，工程用A10.Vbp文件名保存。对窗体的Click事件编程，要求功能为：

①  随机产生25个两位正整数存入5行5列的二维数组a中并在窗体上显示；

②  计算数组a中所有元素的平均值、最大值和最小值并在窗体上显示；

③  计算数组a所有元素中偶数和奇数的个数并在窗体上显示；

④  计算数组a所有元素中大于和小于平均值的个数并在窗体上显示。

 

Private Sub Form_Click()
Dim a(5, 5) As Integer, b(25) As Integer, i As Integer, j As Integer, k As Integer, s As Integer
For i = 1 To 5
  For j = 1 To 5
    k = k + 1
    a(i, j) = Int(Rnd * (100 - 10 + 1)) + 10
    b(k) = a(i, j)
    s = s + a(i, j)
    Print a(i, j);
    If k Mod 5 = 0 Then Print
  Next j
Next i
For i = 1 To 24
  For j = i + 1 To 25
    If b(i) > b(j) Then
    t = b(j)
    b(j) = b(i)
    b(i) = t
    End If
  Next j
Next i
For i = 1 To 25
  If b(i) >= s / 25 Then k1 = k1 + 1
  If b(i) < s / 25 Then k2 = k2 + 1
  If b(i) Mod 2 = 0 Then k3 = k3 + 1
  If b(i) Mod 2 <> 0 Then k4 = k4 + 1
Next i
Print "平均数：" + Str(s / 25)
Print "最大值：" + Str(b(25))
Print "最小值：" + Str(b(1))
Print "大于平均值的元素个数：" + Str(k1)
Print "小于平均值的元素个数：" + Str(k2)
Print "偶数个数：" + Str(k3)
Print "奇数个数：" + Str(k4)

End Sub

9456.962关注此问题， 望高手回答 QQ447186060 自动分类答题器 QQ问问专用