Question

VB题目：用随机函数产生10个0到100之间的随机整数存入一堆数组A中……

VB题目：用随机函数产生10个0到100之间的随机整数存入一堆数组A中，求这10个数中的最大值及其在数组A中的位置。 很急啊！麻烦各位大神了！

Answer 1

Private Sub Form_Click()
    Me.Cls
    Dim n(1 To 10) As Integer
    Dim i%,nMax%,pos%
    Dim str As String
    '产生10个0-100的随机数并写入数组
    Randomize
    For i = 1 To 10
        n(i) = Int((100 - 0 + 1) * Rnd + 0)
        str = str & n(i) & " "
    Next i
    '找最大值
    nMax=n(1)
    For i = 1 To 10
        If n(i)>nMax Then nMax=n(i)
    Next i
    '找最大值位置
    pos=1
    For i=1 To 10
        If n(i)=nMax Then
            pos =i
            Exit For
        End If
    Next i
    Print str  '窗体显示随机数
    Print "最大值：" & nMax
    Print "位置：" & pos
End Sub