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-06-20  30
问题 窗体上有一个名为Command1的命令按钮，并有下面的程序：
    Private Sub Command1_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
    if a(j)    t=a(j)：a(j)=a(j+1)：a(i+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/mrUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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