龙神技能凭证怎么获得:VB冒泡法排数

来源：百度文库编辑：杭州交通信息网时间：2024/04/30 14:50:43

Option Base 1
Private Sub Form_Click()
Dim a
a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)
For i = 1 To 9
for j=_______to 10
if ______then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
For i = 1 To 10
Print a(i);
Next i

End Sub

用冒泡法把a中的十个数升序排列

i+1

a(i)>a(j)

Option Base 1
Private Sub Form_Click()
Dim a
a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)
For i = 1 To 9
For j = i + 1 To 10
If a(j) < a(i) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next
Next
For i = 1 To 10
Print a(i);
Next i

End Sub

VB冒泡法排数 VB冒泡法排序 SOS！VB，冒泡法！ VB怎么用冒泡排序? vb的冒泡排序法怎么用? 在VB中演示过程冒泡法排序 VB编程:选择法及冒泡法排序数组 VB编程:选择法及冒泡法排序数组急求一个冒泡排序的vb软件~~~ vb中选择排序和冒泡排序的最根本的区别是什么?