2. 计算机
  3. 程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Private Sub Form_load() Dim a(1 To 5)As Integer a(1)=20:a(2)=25

程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Private Sub Form_load() Dim a(1 To 5)As Integer a(1)=20:a(2)=25

admin2012-09-07  32
问题 程序运行后，利用冒泡法对数组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
选项
答案Form=1 Tb 4
解析 本题考查冒泡排序。可通过双重循环来实现冒泡排序，题中内层循环进行的是相邻元素两两比较，每一轮使未排序中的最大数移动到数组最后的元素中。外层循环需要进行的次数计算方法为：有n个数要排序时，则要进行n-1轮外层循环。题中共有5个数，因此外循环进行4轮，所以m最大值为4。
转载请注明原文地址:https://jikaoti.com/ti/ZGO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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