更多"程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填入适"的相关试题:
[填空题]程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。
Private Sub Form_load（ ）
Dim a(1 To 5)As Integer
a(1)=20:a(2)=25:a(3)=10:a(4)=40:a(5)=15
n=5
______
For z=1 To n-m
If a(z)＞a(z+1)Then
t=a(z):a(z)=a(z+1):a(z+1)=t
End If
Next z
Next m
End Sub
[填空题]本程序用冒泡法对数组a[]的元素从大到小排序，请在程序空白处填空。
void bubble(int a[]，int n)
{int i,j，max，temp；
max=n-1；
do{j=0；
for(i=0；i＜max；i++)
if(a[i]＜a[i+1])
{temp=a[i]；a[i]=a[i+1]；a[i+1]=temp；
j=i；
}
max=j；
}while(______)；
}
[填空题]本程序用改进冒泡法对数组a[n]的元素从小到大排序，请在程序空白处填空。
void bubble(int a[]，int n)
int j，k，jmax，temp；
jmax= 【17】 ；
do
k=0；
for(j=0;j＜jmax；j++)
if(a[j]＞a[j+1])
temp=a[j]；a[j]=a[j+1]；a[j+1]=temp；k= 【18】 ；
jmax=k;
while(jmax＞0)；
[填空题]本程序用冒泡法对数组a[]的元素从大到小排序，请在程序空白处填空。
void bubble(int a[]，int n)
int i,j，max，temp；
max=n-1；
doj=0；
for(i=0；i＜max；i++)
if(a[i]＜a[i+1])
temp=a[i]；a[i]=a[i+1]；a[i+1]=temp；
j=i；
max=j；
while(______)；
[填空题]11，在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如，a=5，n=4时，则：
Sn=5+55+555+5555
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long，Tn As Long
Count=1:Sn=0.Tn=0
A=InputBox("请输入a的值：")
______
Do
Tn=Tn+a
Sn=Sn+Tn
Count=Count+1
Debug.Print a，n，Sn
[填空题]下面程序是用冒泡法将数组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
[填空题]在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的操作。窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1上显示的文本是否加下画线。Check1的单击事件过程如下：
Private Sub Check1_Click（ ）
______
Text1.FontUnderLine=True
Elself______
Text1.FontUnderLine=False
End If
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
[简答题]下列给定程序中，函数fun的功能是：用冒泡法对6个字符串按由小到大的顺序排列。
请改正程序中的错误，使它能得出正确的结果。
注意：不要改动main函数，不得增行或删行，也不得更改程序的结构!
试题程序：
#include＜stdlib.h＞
#include＜string.h＞
#include＜conio.h＞
#include＜stdio.h＞
#define MAXLINE 20
fun(char*pstr[6])
lnt i,j;
char *p;
for(i=O;i＜5;i++)
/********found********/
for(j=i+l,j＜6,j++)
if(strcmp(*(pstr+i)*(pstr+j))＞0)
P=*(psfr+i);
/********found********/
*(pstr+i)=pstr+j;
*(pstr+j)=p;
void main（ ）
int i;
char*pstr[6],str[6][MAXLINE];
system("CLS");
for(i=O;i＜6;i++)
pstr[i]=str[i];
printf("/nEnter 6 string(1 string at eachline):/n");
for(i=0;i＜6;i++)
scanf("%s",pstr[i]);
fun(pstr);
printf("The strings after sorting:/n");
for(i=O;i＜6;i++)
printf("%s/n"pstr[i]);
[填空题]下面是用冒泡法将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
