下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,

admin2009-01-15  36

问题 下面的程序用“冒泡”法将数组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

选项

答案1 To 9 , i+1 To 10 , >

解析 最外层的循环负责从第1个元素到第9个元素中取出一个,内层循环负责取外层循环下标后面的元素与它比较,如果比外层循环取出的元素小,则将二者的位置对换。
转载请注明原文地址:https://kaotiyun.com/show/aZ2p777K
0

随机试题
最新回复(0)