重要提示：
请勿将账号共享给其他人使用，违者账号将被封禁！
题目内容
（请给出正确答案）
统领《声声慢》(寻寻觅觅)全词举止、景物、心情的词句是（）
A．寻寻觅觅，冷冷清清，凄凄惨惨戚戚
B．三杯两盏淡酒，怎敌他、晚来风急
C．雁过也正伤心，却是旧时相识
D．梧桐更兼细雨，到黄昏、点点滴滴
更多“统领《声声慢》（寻寻觅觅)全词举止、景物、心情的词句是（）A．寻寻觅觅，冷冷清清，凄凄惨惨戚戚B．三”相关的问题
第1题
当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End Sub
A．2 5 8
B．7 4 1
C．8 5 2
D．3 6 9
第2题
A．A.234
B．B.246
C．C.567
D．D.356
第3题
阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
第4题
阅读下列程序： Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
第5题
下列程序的输出结果是【 】。
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
第6题
阅读下列程序：
Private Sub Command1_Click()
Dim i As Integer,k As Integer
k=2
For i=1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Funmion
单击命令按钮，执行程序，输出结果是()。
A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6
第7题
下列程序的输出结果是【 】
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
第8题
阅读下列程序： Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
第9题
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 5
i = 1
Do While i < 9
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
程序运行后，Text1的输出结果是( )。
第10题
下列程序的输出结果是()。
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
客服
TOP
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
