visual basic 6.0解决排序问题 急急急！！！

来源：百度知道 编辑：UC知道 时间：2024/07/04 07:22:49
以前没学过visual basic，这次急着交作业。请那位高手帮教教我，怎样用VB编写一个程序，解决排序问题（输入10个数，从小到大排列）。最好在源代码后加上一些解释说明，谢谢了！！！

Dim a(10) As Single

Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("数值" & CStr(i), "输入")
Next i

For i = 1 To 10
For j = 1 To 9
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i

For i = 1 To 10
Print a(i)
Next i

End Sub