![](https://lstatic.shangxueba.com/sxbzda/h5/images/m_q_title.png)
A.
B.
C.
D.
![](https://lstatic.shangxueba.com/sxbzda/h5/images/tips_org.png)
第1题
A.4321
B.1234
C.34
D.12
第2题
Option Base l
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.4321
B.1234
C.34
D.12
第3题
A.0
B.1
C.2
D.3
第4题
Option Base 0
Private Sub Command1 Click( )
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A.0
B.1
C.2
D.3
第5题
第6题
Private Sub Command1_Click()
Dim Arr1(10) As Integer,Art2(10) As Integer
n=3
For i=1 To 5
Arr1(i)=i
Arr2(n)=2*n+i
Next i
Print Arr2(n);Arr1(n)
End Sub
运行程序后,单击命令按钮,输出结果是( )。
A.11 3
B.3 11
C.13 3
D.3 13
第7题
程序运行后,单击命令按钮Commandl,输出结果是
A.26122030
B.212205690
C.3028241810
D.1018242830
第10题
程序运行后,单击命令按钮Command1,输出结果是
A.0
B.8
C.6
D.未找到
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!