Question

写vb程序：随机生成10个数,保存在一维数组中,显示最大数及位置

Answer 1

Private Sub Form_Paint()

    Dim a(1 To 10) As Double

    Dim i As Integer, n As Integer, m As Double

    m = 0

    Randomize

    For i = 1 To 10

        a(i) = Rnd

        If m < a(i) Then

            m = a(i)

            n = i

        End If

        Print i, a(i)

    Next

    Print

    Print

    Print "第", n, m, "最大"

End Sub

Answer 2

Private Sub Command1_Click()
Randomize Timer
Dim i As Integer, a(9) As Integer
Dim maxN As Integer, maxI As Integer

For i = 0 To 9
a(i) = Int(Rnd * 101)
Print a(i);
If maxN < a(i) Then
maxN = a(i)
maxI = i
End If
Next
Print
Print "最大数是：" & maxN & " 位置是：" & maxI + 1
End Sub