作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 06:36:41
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