vb编程提问-将10个不同的整数存入一维数组，找出最小数，并将最小数与第一个数交换。

Question

Private Sub Form_Click()
Dim a(9) As Integer
Dim i, t, k, min As Integer

For i = 0 To 9
Randomize
a(i) = Int(Rnd * 101)
Print a(i);
Next

min = a(0)
For i = 0 To 9
If a(i) < min Then
min = a(i)
k = i
End If
Next
Print "最小值为:"; a(k)

t = a(0)
a(0) = a(k)
a(k) = t

Print "对调后为:";
For i = 0 To 9
Print a(i);
Next i

End Sub

这段程序中为什么要有 k = i 的那步转化才对？谢谢！

Answer 1

k是为了后面交换所用。如果没有后面的最大数与第一个数交换，可以不用k，，上面可以直接输出Print "最小值为:"; min。k是为了找到这个数组中哪个值是最大数的下标。然后才能与之第一个数对调

追问

那如果没有这一步的话
其中有个地方改成
t=min
min=a(0)
a(0)=t
这样的话怎么是不对的呢？

追答

这个是三个参数的问题了。
假如一个数组 5，4，3，2，1
其中a（1）=5，a(2)=4,a(3)=3,a(4)=2,a(5)=1.这个数组里面的最小数是a（5）是吧，这里最小值是min=1，
在设个变量t， 你把min的值给了t 这里t等于1是吧。t=min，min=a(1),a(0)=t
你在用这个a（1）去和min交换。这时，min的值为5了，a(1)的值为1，在这个过程中，根本没有a(5)的什么事情，它的值是不会变的。

Answer 2

k储存的是已判断的最小值的下标位置，循环一遍过后k中就是整个数组中最小值的下标。