VB数组中求最大值与最小值

问题:利用随机函数产生10个20-100(包含10和100)的正整数,并求最大值,最小值,总和,平均值,要求显示随机数和计算结果.(请大家帮帮忙,用VB写出源码))本人是新手,想学习下VB编程

4 个解决方案

#1

这是基础知识啊

#2

请大家帮下忙

#3

Private Sub Form_Load()
Dim Arr(9) As Integer
Dim MyValue, i As Integer
Form1.Show
For i = 0 To 9
Randomize
MyValue = Int((81 * Rnd) + 20)
Arr(i) = MyValue
Print MyValue
t = t + MyValue
Next
Print "平均值为" & t / 10
maxmin Arr
End Sub
Private Function maxmin(x() As Integer)
    Dim n1 As Integer, n2 As Integer
    Dim i As Integer
    n1 = UBound(x)
    n2 = LBound(x)
    maxnumber = x(n1)
    minnumber = x(n2)
    For i = n2 + 1 To n1
        If x(i) > maxnumber Then
          maxnumber = x(i)
             End If
           Next i
         For i = n2 + 1 To n1
         If x(i) < minnumber Then
          minnumber = x(i)
        End If
    Next i
 Print "最大值为" & maxnumber
Print "最小值为" & minnumber
End Function

#4

很多谢老张,SYSSZ,能抽时间帮我解决问题,且那个函数写得好,呵呵,我给的分确实有点低,多谢