随机产生100-200之间的正整数，把它们存放到数组中，求该数组的最大数。最小数以及平均数 求VB代码

Question

如题所述

Answer 1

 

Private Sub Command1_Click()
  Dim a(100) As Integer  '数组定义
  Dim i%, max%, min%, sum%, av! '变量定义，依次是元数个数、最大数、最小数，总和，是平均值
  max = 100          '最大数初值
  min = 200          '最小数初值
  s% = 0             '总和初值
  For i = 1 To 100
    a(i) = 100 + 100 * Rnd  '随机生成100～200范围的正整数
    sum = sum + a(i)
     If max < a(i) Then     '找最大数
       max = a(i)
    End If
    If min > a(i) Then     '找最小数
      min = a(i)
    End If
   Next i
  av = sum / 100
  Print "最大数是"; CStr(max)
  Print "最少数是"; CStr(min)
  Print "平均值是"; CStr(av)
End Sub

Answer 2

Dim num(10) As Integer
Dim sum As Integer, max As Integer, min As Integer, average As Integer
For i = 1 To 10
    num(i) = Rnd() * 100 + 100
    If i = 1 Then
        sum = num(i)
        max = num(i)
        min = num(i)
    Else
        sum = sum + num(i)
        If num(i) > max Then max = num(i)
        If num(i) < min Then min = num(i)
    End If
Next i
average = sum / 10