小明基于冒泡排序算法编写了一个VB程序,功能如下:单击“生成”按钮command1,生成n个【10,99】的随机整数赋值给a数组,并在列表框list1中显示。单击“排序”按钮command2,对这组数据进行错位排序(即从前往后依次是最小的,最大的,第二小的,第二大的……依次类推)。在列表框list2中依次输出数据排序的结果,程序运行界面如图所示:
实现上述功能的VB程序如下:
Const n=10
Dim a(1 To 10)As Integer
Private Sub Command1 Click()
For i=1 To n
‘①
List1.Addltem Str(a(i))
Next i
End Sub
Private Sub Command2 Click()
tmp=1
For i=1 To n-1
For j=n To i+1 Step-1
If >0 Then ①
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
②
Next i
For i=1 To 10
List2.Addltem Str(a(i))
Next i
End Sub