Question

vb 求助~！

option base 1
private sub command 1_click()
dim a(),i as integer,j as integer,zj as integer
a=array(9,3,5,4,1,10,2,7,8,6)
for i=1 to 9
for j= i+1 to 10
if a( i)>a( j) then
zj=a( i)
a( i)=a( j)
a( j)=zj
end if
next
next
for i=1 to 10
text1.text=text1.text&a(i)&" "
next
end sub
这一段是要让排序数组中大小的，其中，为什么要定义i为1to9，j=i+1 to 10？然后，text1.text=text1.text&a(i)&" "这一句又该怎么解释？最好麻烦各位高手把整个程序解释一下....我初学者...不太懂....解释的明白我还有加分！谢谢了~~

Answer 1

这是一种选择排序法，这种方法类似我们人为的排序习惯：从数据中选择最小的同第一个值交换，在从省下的部分中选择最小的与第二个交换，这样往复下去。

Dim a(), i As Integer, j As Integer, zj As Integer
a = Array(9, 3, 5, 4, 1, 10, 2, 7, 8, 6)
'数组变量的下标是从0开始的
For i = 0 To 8 '从第一个变量开始
For j = i + 1 To 9 ' 从下一个变量开始
If a(i) > a(j) Then ' 如果从下一个变量开始中有比第一个小的，交换位置
zj = a(i) ' 交换的过程 ，把前一个变量赋值给临时变量
a(i) = a(j) '前一个变量=新的小的变量
a(j) = zj ' 后一个变量=大的
End If
Next
'i=0是共出现两次交换开始时a(0)=9，第一次出现a( i)>a( j)时是
'a(0)>a(1) 交换 得到 a(0)=3，第二次出现a( i)>a( j)时是
'a(0)>a(4) 交换 得到 a(1)=1，以后就没有交换了。
Next
Text1.Text = "" '清空
For i = 0 To 9 '
Text1.Text = Text1.Text & a(i) & " " '使Text1.Text等于自身加上 a(i) 和 一个 空格
Next

Answer 2

1to9，j=i+1 to 10？
这是排序算法，你可以找本看看。
text1.text=text1.text&a(i)&" "
是将数组元素一个一个添加到文本框中显示出来

Answer 3

'将缺省的数组下标设为 1
Option Base 1
Private Sub command1_click()
'创建一个 Variant 的变量a,声明i,j,zj为整型变量
Dim a(), i As Integer, j As Integer, zj As Integer
'将一个数组赋给变量a
a = Array(9, 3, 5, 4, 1, 10, 2, 7, 8, 6)
'将数组a的第一个到第九个元素依次与它后面的比较
For i = 1 To 9
For j = i + 1 To 10
'如果大于它后面的元素值，则彼此交换
If a(i) > a(j) Then
zj = a(i)
a(i) = a(j)
a(j) = zj
End If
Next
Next
'在文本框1显示排序后的元素值，并以空格分隔
For i = 1 To 10
text1.Text = text1.Text & a(i) & " "
Next
End Sub