编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果

显示全部楼层 · 2007-12-31 00:54:41

Private Sub Command1_Click()Dim a(10)RandomizeDim sum As Integer, min As Integer, max As Integersum = 0: min = 100: max = 30For i = 0 To 9a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i)max Then max = a(i)Print a(i),Next iPrint vbCrLf & "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; sum / 10End Sub

千问 · 2007-12-31 00:54:41

Private Sub Command1_Click()Dim a(10)RandomizeDim sum As Integer, min As Integer, max As Integersum = 0: min = 100: max = 30For i = 0 To 9a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i)max Then max = a(i)Print a(i),Next iPrint vbCrLf & "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; sum / 10End Sub