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

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

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

二级VB

NCRE全国计算机二级

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