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

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

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

二级VB

NCRE全国计算机二级

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