题目内容（请给出正确答案）

[主观题]

下列程序的输出结果是【】。Private Sub Command l Click（)Dim a（1 TO 20)DimiFori＝1 TO 20a（i)＝iNe

下列程序的输出结果是【】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“下列程序的输出结果是【】。Private Sub Comma…”相关的问题

第1题

下列程序的输出结果是（)。 Private Sub Command1_Click（) Dim arr（1 To 10) For i=1 To 10 Next

下列程序的输出结果是()。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=1 To 10

Next i

For Each i In arr()

Next i

End Sub

点击查看答案

第2题

下列程序的输出结果是【】Private Sub Command1_Click（)Dim a（1 To 20)Dim iFor i=l To 20a（i)=iNe

下列程序的输出结果是【】

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=l To 20

a(i)=i

Next i

For Each i In a()

a (i) =20

Next i

点击查看答案

第3题

下列程序的输出结果是【】。Private Sub Command1_Click（)Dim a（1 To 20)Dim iFor i=1 To 20a（i)=iN

下列程序的输出结果是【】。

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=1 To 20

a(i)=i

Next i

For Each i In a()

a(i)=20

Next i

Print a(2)

End Sub

点击查看答案

第4题

下列程序运行后的输出结果是Private Sub Command1_Click（)For k=3 To 1 Step-1x=String（k，"*")Pr

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

点击查看答案

第5题

下列程序的输出结果是______。Private Sub Commandl_Click（)Dim alt（1 To 10)Fori＝1 To 10arr（i)

下列程序的输出结果是______。

Private Sub Commandl_Click()

Dim alt(1 To 10)

Fori＝1 To 10

arr(i) ＝I

Next i

For Each i In arr()

arr(i) ＝arr(i) *2+1

Next i

MsgBox arr(7)

End Sub

点击查看答案

第6题

下列程序运行时输出的结果是Private Sub Form_Click（)Dim xx=Array（“天天向上”，“清华大学”，“天上

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

点击查看答案

第7题

下列程序运行时输出的结果是（)。Private Sub Form_Click（)Dimaa=Array（"天天向上"，"清华大学"，"天

下列程序运行时输出的结果是()。 Private Sub Form_Click() Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

点击查看答案

第8题

下列程序的输出结果是______。 Private Sub Command1_Click（) Dim arr（1To 10) For i＝1 To 10 arr

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1To 10)

For i＝1 To 10

arr(i)＝i