题目内容

窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Sub prog(a()As Integer) Dim arr(5) As Integer n=UBound(a) For k=1 To 5 For i=n To 2 step-1 arr(k)=k For i=1 To n-1 Next k if a(j)<a(j+1) Then Prog arr() t=a(j):a(j)=a(j+1)):a(j+1)=t Fork=1 To 5 End If Print arr(k); Next j Next k Next i End Sub End Sub 程序运行时,单击命令按钮后显示的是______。

A. 1 2 3 4
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0

查看答案
更多问题

在窗体画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4):j=1 For i=4 To 1 Step-1 s=s+a(i)*j:j=j*10 Next i Print s End Sub 运行上面的程序,其输出结果是______。

A. 1234
B. 12
C. 34
D. 4321

在窗体画一个名为Command1的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序,单击命令按钮,在窗体上显示的是______。

A. 6
B. 5
C. 7
D. 8

如果管理层建立哪些与关联方关系及其交易相关的控制,注册会计师应当询问管理层和被审计单位内部其他人员,实施其他适当的风险评估程序,以获取对相关控制的了解

下面正确使用动态数组的是______。

A. Dim arr() As Integer ... ReDim arr(3,5)
B. Dim arr() As Integer ... ReDim art(50) As String
C. Dim arr() ... ReDim arr(50) As Integer
Dim arr(50) As Integer ... ReDim arr(20)

答案查题题库