vb题求解释,前面打开文件部分,i=1和i=i+1,有什么用啊,PrivateSubFormclick()Dima&(1To1000),i%,imin%,min%Open"C:\Users\Administrator\Desktop\kaoshiwenjian.txt"ForInputAs#1i=1DoWhileNotEOF(1)Input#1,a(i)i=i+1Loopn=10

Question

vb题求解释,前面打开文件部分,i=1和i=i+1,有什么用啊,
Private Sub Form_click()
Dim a&(1 To 1000),i%,imin%,min%
Open "C:\Users\Administrator\Desktop\kaoshiwenjian.txt" For Input As #1
i = 1
Do While Not EOF(1)
Input #1,a(i)
i = i + 1
Loop
n = 1000
For j = 1 To n - 1
imin = j:min = a(j)
For i = j + 1 To n
If a(i) < min Then
min = a(i)
imin = i
End If
Next i
t = a(j):a(j) = a(imin):a(imin) = t
Next j
Close (1)
Print a(500);
Print
End Sub
忘了说题目要求：在文件中有1000个数,把它们按照从小到大的顺序排列,并输出第500个数.

Answer 1

i=1初始化i为1,因为数组的第一个下标下限为1
i=i+1使得i为增量,2、3、4、5、……,就是把读出来数据一次放入数组a(1)、a(2)、a(3)、……