更多"下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在横线处将程"的相关试题:
[填空题]下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在横线处将程序补充完整。
public class Sun{
public static void main(String args []){
int [] a={678,45,324,528,439,387,87,875,273,823};
int a1=0；
for(int i=0i＜=8；i++){
for(int j= 【13】 ;j＜=9;j++)
if (a [i]＞=a[j]){
a1=a[j]；
a[j]=a[i]；
a[i]=a1；
}
}
for(int i=0；i＜=9；i++)
System.out.println(a[i])；
}
}
[填空题]下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在横线处将程序补充完整。
public class Sun
public static void main(String args[])
int[] a=678,45,324,528,439,387,87,875,273,823 ;
int a1=0;
for(int i=0; i＜=8;i++)
for(int j= 【12】 ;j＜=9;j++)
if(a[i]＞=a[j])
a1=a[j];
a[j]=a[i];
a[i]=a1;
for(int i=0;i＜=9;i++)
System. out. println(a[i]);
[填空题]下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。
Private Sub Command1_Click( )
Dim a, Tmp As Integer
a = Array (678,45,324,528,439,387,87,875,273,823)
For i = 【12】
Forj =0 To 9
Ifa (i)＜a(j) Then
Tmp = a(i): a(i) = a(j) i a(j) = Tmp
End If
Next j,i
For i = 0 To 9
Print a(i)
Next
End Sub
[填空题]下面的程序是用冒泡法将数组a中的10个整数按升序排列，并将程序补充完整。
Private Sub Command1_Click（ ）
Dim a
Dim Tmp As Integer
a=Array(678 , 45 , 324 , 528 , 439 , 387 , 87 , 875 , 273 , 823)
For i=______
For j=______
If a(i)______a(j)Then
Tmp=a(i)
a(i)=a(j)
a(j)=Tmp
End If
Next j
Next i
For i=0 To 9
Print a(i)
Next i
End 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
[填空题]下面的程序用“冒泡”法将数组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= 【8】
For j= 【9】
If a(i) 【10】 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 1
Private Sub Command1_Click（ ）
Dim a
a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823)
For i = 【5】
For j = 【6】
If a(i) 【7】 a(j) Then
al = a(i)
a(i) = a(j)
a(j) = al
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
[填空题]下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
Sub GASR（ ）
Dim m
m=Array(10，1，5，6，7)
For i=0 To 3
For j=【 】
If m(i) ＞=m(j) Then
【 】
m(i) =m(j)
m(j) =t
End If
Next j
【 】
For i=0 To 4
Print m(i)
Next i
End Sub
[填空题]下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。
Option Base 1
Private Sub Command1_Click（ ）
Dim a（ ）
a=Array(678，45，324，528，439，387，87，875，273，823)
Fori＝ 【10】
Forj= 【11】
If a(j) 【12】 a(j+1)Then
a1=a(j)
a(j)＝a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i＝1 To 10
Print a(i)
Next i
End Sub
