（9）下列程序的输出结果是。 Sub Prin（) Dim B As String A=1 B=A & Space（4)&A PrintA Pr

以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub

A．33

B．28

C．35

D．37

若有如下程序： sub(p，n) int(*p)[3]，n； { int i； for(i=0；i＜=n；i++) printf("%d"，*(*(p+i)+n)); } main() {int s[3][3]＝{1，2，3，4，5，6，7，8，9}； sub(s，2)； } 则程序运行后的输出结果是()

A．3 6 9

B．2 4 8

C．4 5 6

D．7 8 9

（23）下列程序运行时输出的结果是 Option Base 1 Const a=10 Priate Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub A.1 3 5 7 9 10 B.-1 -3 -5 -7 -9 C.-1 2-3 4-5 6-7 8-9 10 D.1-2 3-4 5-6 7-8 9-10

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10

B．-1-3-5-7-9

C．-1 2-3 4-5 6-7 8-9 10

D．1-2 3-4 5-6 7-8 9-10

当发生Form_Click事件时，下列程序的输出结果是()。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub

A．7 75 66 60 7 80 126 60

B．7 75 66 60 7 75 126 60

C．7 75 66 60 7 80 66 60

D．7 75 66 60 7 75 66 60

运行下列程序：

Private Sub Command1_Click()

a = Val(InputBox("a = "))

Print fun1(a)

End Sub

Private Function fun1(b)

If b ＞ 0 Then

fun1 = 10

ElseIf b = 0 Then

fun1 = 9

Else

fun1 = 8

End If

End Function

单击按钮后从键盘为变量a输入数据3，输出的结果是()。

A.3

B.8

C.9

D.10

下列程序运行时输出的结果是 Option Base 1

Private Sub Form_Click()

Dim x(10) As Integer，y(5) As Integer

For i=1 to 10

x(i) =10-i+1

Next

For i=1 to 5

y(i)=x(2*i-1)+x(2*i)

Next

For i=1 to 5

Print y(i)

Next

End Sub

A．3 7 11 45 19

B．19 15 11 7 3

C．1 3 5 7 9

D．不确定的值

下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI

A．3 7 11 45 19

B．17 13 9 5 1

C．1 3 5 7 9

D．不确定的值

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form. Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10

B．-1-3-5-7-9

C．-1 2-3 4-5 6-7 8-9 10

D．1-2 3-4 5-6 7-8 9-10

A.33

B.28

C.35

D.37