VB中求10个数中最大值，并输出下标

Question

Private Sub Form_Click()
Dim a(10), max, i, j
max = a(1)
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
If max < a(i) Then max = a(i): j = i
Next
Print "最大数是"; max
Print "下标是"; j
End Sub
但是输出结果见图片，第4组，第4和8个数均是最大值，但下标只有一个，求助怎么显示所有下标，求程序，在线等，谢谢！

Answer 1

Private Sub Form_Click()
Dim a(10), max, i, j
max = -1
For i = 1 To 10
    a(i) = Int(Rnd * 100)
    Print a(i);
    If max < a(i) Then
        max = a(i): j = i
    ElseIf max = a(i) Then
        j = j & " " & i
    End If
Next
Print
Print "最大数是"; max
Print "下标是"; j
End Sub