VB随机数产生10个整数 将最大元素及最小元素分别与数组的第1个和最后一个元素交换，我编的代码不行额

Question

Private Sub cmdcal_Click()

Dim a(10) As Integer, i%, max_i%, min_i%, t%
Randomize
For i = 1 To 10
a(i) = 1 + Int(Rnd * 100)
Print a(i)
Next i
Print
max_i = 1
min_i = 1
For i = 2 To 10
If a(i) > a(max_i) Then max_i = i
If a(i) < a(min_i) Then min_i = i
Next i

Print "交换以后";
Print
For i = 1 To 10
t = a(1): a(1) = a(max_i): a(max_i) = t
t = a(10): a(10) = a(min_i): a(min_i) = t
Print a(i)
Next i
End Sub

就交换那里有问题，交换了最大值，最小值交换不了……有的时候交换了最大值，直接把第一个值变成那个最大值，然后就出现两个相同的数字，求解
原题：创建一个应用程序，要求：用随机数产生10个整数（其取值范围为1~100），存放在数组x中，查找x数组中的最大元素及最小元素，并将最大元素及最小元素分别与数组的第1个和最后一个元素交换，分别输出x数组交换前后各元素的值.

Answer 1

先t = a(1): a(1) = a(max_i): a(max_i) = t
t = a(10): a(10) = a(min_i): a(min_i) = t
再for 。。。。next