还是跪求vb卷子答案

5、用下面的语句所定义的数组的元素个数是（ ）
Dim arr（3 to 5，－2 to 2）
A、20 B12 C15 D、24
16．Private Sub Command1_Click()
Call S
Call S
End Sub
Private Sub S()
Static X As Integer
X=X + 3
Print X
End Sub
该程序运行后，单击命令按扭，输出结果是（ ）
A) 3 3 B) 3 6 C) 3 D) 不确定
17．在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
score=int(rnd*10)+80
Select Case score
Case is<60
Text1=”111”
Case is<70
Text1=”222”
Case is<80
Text1=”333”
Case else
Text1=”444”
End Select
print x;y
End Sub
程序运行后，单击窗体，输出的结果是（ ）
A. 111 B.222 C. 333 D. 444
18.Private sub form_click()
a=100
Do
s=s+a
a=a+1
Loop while a>111
print a