下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【 】、【 】、【 】处将程序补充完整。Option Base 1Private Sub Command1_Click ()Dim aa=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)For i=【 】For j=【 】If a(i)【 】a(j) Thena1=a(i)a(i)=a(j)a (j) =a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【 】、【 】、【 】处将程序补充完整。
Option Base 1
Private Sub Command1_Click ()
Dim a
a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)
For i=【 】
For j=【 】
If a(i)【 】a(j) Then
a1=a(i)
a(i)=a(j)
a (j) =a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
相关考题:
下面是用冒泡法将5个整数按升序排列,请将程序补充完整。Sub GASR()Dim mm=Array(10, 1, 5, 6, 7)For i=0 To 3For j= 【13】If m(i) =m(j) Then【14】m(i) =m(j)m(j) =tEnd IfNext j【15】For i=0 To 4Print m(i)Next iEnd Sub
程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容,将程序补充完整。Ptivate Sub Form_load()Dima(1T05)As Integer,n=5a(1)=20:a(2)=25:a(3)=10:a(4)=40:a(5)=15______Forz=1 To n-mIf a(z)>a(z+1)Thent=a(z)a(z)=(z+1)a(z+1)=tEnd IfNextZNext
下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续,可将数组排序,请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a=Array(678,45,324,528,439,387,87,875,273,823)Fori=【 】Forj= 【 】If a(j)【 】a(j+1)Thena1=a(j)a(j)=a(j+1)a(j+1)=alEnd lfNextjNext iFor i=1 To 10Print a(i)Next iEnd Sub
下面的程序将给定列表中的负数过滤掉,得到一个只有整数的数组, 将程序补充完整。 a=[-1,0,1,-2,3] print(list(filter(__________ x:True if x>0 else False,a)))