Private Sub Command1_Click()Dim a(10), i, sum As Integersum = 0For i = 1 To 10Randomizea(i) = Val(Int(Rnd * 100))sum = sum + a(i) Print " " & a(i);Next iPrintPrint "和为：" & sum & " 平均数字为" & (sum / 10)End Sub

相关图像