VB编程:利用随机函数产生40个100到999之间的整数,显示在窗体上(每行10个数)然后分别求出偶数的平均值和奇数的乘积,把结果显示出来
Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, intArray(4, 10) As Integer, valEvenNumberAverage As Single
Dim valOddNumberProduct As Double, intEvenNumberSum As Long, k As Integer
valOddNumberProduct = 1
For i = 1 To 4
For j = 1 To 10
intArray(i, j) = Int(Rnd(Time) * 900 + 100)
Print intArray(i, j);
If intArray(i, j) Mod 2 = 0 Then
k = k + 1
intEvenNumberSum = intEvenNumberSum + intArray(i, j)
Else
valOddNumberProduct = valOddNumberProduct * intArray(i, j)
End If
Next j
Next i
Print "偶数的平均数为:"; intEvenNumberSum & "/" & k & "=" & intEvenNumberSum / k
Print "奇数的乘积为:"; valOddNumberProduct
End Sub