更多"下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请将程序补充完"的相关试题:
[填空题]下面的程序用“冒泡”法将数组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(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个整数按升序排列,请在横线处将程序补充完整。
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=______;j<=9;i++)
if(a[i]>=a[j])
al=a[j];
a[j]=a[i];
a[i]=al;
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个整数按升序排列,算法是:从数组的第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
[填空题]下面程序是用冒泡法将数组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
[填空题]下面是用冒泡法将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
[单项选择]以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim i As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 100) + 1
Print a(i)
Next i
End Sub
运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是( )。
A. a(i)=Int(Rnd * 100)
B. a(i)=Int(Rnd * 90)+10
C. a(i)=Int(Rnd * 100)+10
D. a(i)=Int(Rnd * 101)
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub swap (a( ) As Integer)
For I=1 to 10/2
t=a (I)
a (I) =a (10-I+l)
a (10-I+1)=t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I=1 to 10
x(I) =1*2
Next I
Swap x ( )
For I=1 to 10
Print x (I)
Next I
End Sub