VB编程:利用随机函数产生40个100到999之间的整数，显示在窗体上（每行10个数）然后分别求出

Question

VB编程:利用随机函数产生40个100到999之间的整数，显示在窗体上（每行10个数）然后分别求出偶数的平均值和奇数的乘积，把结果显示出来

Answer 1

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

    Print

  Next i

  Print

  Print "偶数的平均数为："; intEvenNumberSum & "/" & k & "=" & intEvenNumberSum / k

  Print "奇数的乘积为："; valOddNumberProduct

  Print

  Print

End Sub