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

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

admin2015-10-23  58
问题 窗体上有一个名为Commandl的命令按钮，并有下面的程序：
    Private Sub Commandl_Click()
    Dim arr(5)As Integer
    For k=1 To 5
    flit(k)=k
    Next k
    prog flit()
    For k=1 To 5
    Print alT(k)；
    Next k
    End Sub
    Sub prog(a()As Integer)
    11=UBound(a)
    For i=n To 2 step-1
    For j=1 To n-1
    if a(j)    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)
转载请注明原文地址:https://kaotiyun.com/show/aJLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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