题目内容

在窗体上添加一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，输出结果是（）。

A. 空白
B. 北京
C. 上海
D. 错误提示

查看答案

搜索结果不匹配？点我反馈

更多问题

下列程序段的执行结果为（）。 Dim m（10） For k = 1 To 10 m（k）= 11 - k Next k x = 5 Print m（2 + m（x））

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

窗体上已有命令按钮Command1和标签Labe1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是（）。 Option base 0 Private Sub Command1_Click() Dim a(5）As Integer, n As Integer For i = 1 To 5 a(i）= i n = n + a(i) Next i Label1 = n End Sub

A. 10
B. 5
C. 程序报错，Label1不能输出结果
D. 15

下列程序段的执行结果为（）。 Dim A(10) As Integer,B(5) As Integer For I=1 To 10 A(I)=I Next I For J=1 To 5 B(J)=J*20 Next J A(5)=B(2) Print “A(5)=”;A(5)

A(5)=40
B. A(5)=5
C. A(5)=20
D. A(5)=10

设执行以下程序段时依次输入1，3，5，执行结果为（）。 Dim a(4) As Integer,b(4) As Integer For K=0 To 2 a(K+1)=Val(InputBox(“请输入数据：”)) b(3-K)=a(K+1) Next K Print b(K)

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