在vb中从键盘中输入数放在数组中，如1，2，3，4，5，6，7，8，9，10再对调为10,9,8,7,6,5,4,3,2,1

Question

如题所述

Answer 1

使用冒泡排序法追问

在vb 中也行吗？能讲详细点吗

追答

Option Base 1
Private Sub Command1_Click()
Dim a
Dim b As Integer
Dim i As Integer
Dim j As Integer
a = Array(6, 3, 7, 8, 2, 1)
Print "排序前为";
For i = 1 To 6
Print a(i);
Next i
For i = 1 To 5
For j = 1 To 6 - i
If a(j) > a(j + 1) Then
b = a(j + 1)
a(j + 1) = a(j)
a(j) = b
End If
Next j
Next i
Print
Print "排序后为";
For i = 1 To 6
Print a(i);
Next i
End Sub

追问

还是不懂怎么思考，分析程序，谢谢你

追答

呃,给你个网址看看

参考资料：http://baike.baidu.com/view/254413.htm

Answer 2

用栈追问

真是无语了，是vb程序啊，不是c语言

追答

谁说vb不可以用栈的，我就是用vb的啊

Answer 3

我也不知道，好像用到循环了吧！