丰翼小学老师:我根据vb的冒泡排序法编了一段程序,但怎么也运行不了,请大家指教!!!!!!!!!!!!!!!!!!!!!

来源：百度文库编辑：中科新闻网时间：2024/04/29 22:37:20

所编程序如下:
Dim a() As Integer, b() As Integer
Dim i As Integer, j As Integer
Private Sub Command1_Click()
For j = 1 To 4
i = 2
For i = 1 To 4
If a(i) > a(i - 1) Then
t = a(i): a(i) = a(i - 1): a(i - 1) = t
b(j) = a(i - 1)
End If
b(j) = a(i)
Next i
Next j
Text2.Text = Join(b, " ")
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
For i = 1 To 4
If IsNumeric(Text1) Then
Text1.Text = Join(a, " ")
End If
Next i
End Sub

a()和b()都是动态数组，你没有用redim语句给它们分配大小，怎么能拿来用？

我根据vb的冒泡排序法编了一段程序,但怎么也运行不了,请大家指教!!!!!!!!!!!!!!!!!!!!! VB冒泡法排序 vb的冒泡排序法怎么用? C如何编冒泡排序 VB怎么用冒泡排序? 急求一个冒泡排序的vb软件~~~ VB编程:选择法及冒泡法排序数组 VB编程:选择法及冒泡法排序数组在VB中演示过程冒泡法排序 C语言对10个数排序(小到大)我编了一段运行结果却不是排序