用vb设计一个程序：从0到100中随机抽取10个数，保存到数组中，查找出最大值并查找其位置

Answer 1

Private Sub Command1_Click()
    Dim i, b(1 to 10) As Long, max As Long, d As Integer
    Print "10个随机数："
    Randomize
    For i = 1 To 10
        b(i) = Int(Rnd * 100)
    Next i
    max = 0
    For i = 1 To 10
        Print b(i);
        If max < b(i) Then max = b(i): d = i
    Next i
    Print
    Print "其中最大值为：" & max, "位置是第" & Trim(Str(d)) & "个"
End Sub

 

Answer 2

 Private Sub Command1_Click()
Dim i, b(10) As Long, c As Long
Print "10个随机数"
For i = 1 To 10
Randomize
c = Int(Rnd * 100)
b(i) = c
Next i
For i = 1 To 10
Print b(i);
Next i

End Sub

追问

谢谢