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

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

admin2009-03-15  61
问题 下面的程序用“冒泡”法将数组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/UX1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)