网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面的程序用“冒泡”法将数组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
参考答案
更多 “ 下面的程序用“冒泡”法将数组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 ” 相关考题
考题
下面是用冒泡法将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)))
热门标签
最新试卷
