填空题

程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填入适当的内容将程序补充完整。
Private Sub Form_load()
Dim at(To 5)As Integer
n=5
a(1)=20:a(2)=25=a(3)=10:a(4)=40:a(5)=15
(8)
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

【参考答案】

for m=1 to n-1
<上一题 目录 下一题>
热门 试题

填空题
读下列程序： Private Sub Form_Click() Static x(4) As Integer For i=1 To 4 x(i)=x(i)+i*3 Next i Print For i=1 To 4 Print “x(“；i；”)=”X(i) Next i End Sub 该程序在运行了3次后，其最终结果是 (7) 。
填空题
设有如下程序： Private Sub Search(a()As Variant,ByVal key As Variant,index%) Dim I% For I=LBound(A) To UBound(A) If key=a(I) Then Exit Sub End If Next I Index=-1 End Sub Private Sub Form_Load() show Dim b() As Variant Dim n As Integer b=Array(1,3,5,6,9,11,13,15) Call Search(b,11．n) Print n End Sub 程序运行后，输出结果是 (6) 。
相关试题