2. 计算机
  3. 若窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next

若窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next

admin2019-03-08  53
问题 若窗体上有一个名为Command1的命令按钮，并有下面的程序：
    Private Sub Command1_Click()
    Dim arr(5)As Integer
    For k=1 To 5
    arr(k)=k
    Next k
    prog air()
        For k=1 T0 5
          print art(k)；
        Next k
    End Sub
    Sub prog(a()As Integer)
       n=UBound(a)
       For i=n To 2 step-1
         For i=1 To n-1
            if a(j)＜a(j+1)Then
              t=a(j)：a(j)=a(j+1)：a(j+1)=t
          End If
          Next i
        Next i
    End Sub
程序运行时，单击命令按钮后显示的是(    )。
选项 A、1 2 3 4 5
B、5 4 3
C、0 1 2 3 4
D、4 3 2
答案B
解析 程序对数组元素赋初值为1、2、3、4、5。UBound函数返回数组可用的最大下标，过程prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)＜a(j+1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时，使用的是“传地址”方式，因此程序输出的是排序后的数组元素值，即5、4、3、2、1。
转载请注明原文地址:https://www.kaotiyun.com/show/1aFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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