作业帮 > 综合 > 作业

VB作业 利用“冒泡法”对一下数据进行从小到大排序:7、3、9、12、20、8(数组)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/16 12:14:36
VB作业 利用“冒泡法”对一下数据进行从小到大排序:7、3、9、12、20、8(数组)
Private Sub Command1_Click()
Dim a(6) As Integer
a(1) = 7
a(2) = 3
a(3) = 9
a(4) = 12
a(5) = 20
a(6) = 8
For i = 1 To 5
For j = 1 To 6 - i
If a(j) > a(j + 1) Then
r = a(j)
a(j) = a(j + 1)
a(j + 1) = r
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next i
End Su