VB求数组中最大值和它的位置

在你基础上，我加了几句代码就可以了：
Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, work As Boolean, i As Integer, j As Integer, x As Integer
Randomize
For i = 1 To 10
a(i) = Int((90 * Rnd) + 10)
Print a(i)
b(i) = a(i)
Next i
Print

For i = 10 To 2 Step -1
work = True
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
work = False
End If
Next j
If work Then Exit For
Next i
Text1.Text = a(10)

For k = 1 To UBound(a)
If b(k) = a(10) Then
MsgBox "原来位置：" & k, 64, "提示!"
Exit For
End If
Next k

我就简单说了

定义一个q1，初始值为a(0)，每次判断a(j) > a(j + 1) 成立时，q1=j

此时q1就为你的位置，但是初始位置是0，所以要准确时q1=q1+1