typedef int INTEGER；的作用是（）。

A、y=fun(n)

B、y=Call fun(n)

C、y=fun(6)

D、y=Call fun(6)

当发生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

运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y＞0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量x输入数据5，输出的结果是【 】。

下面程序运行后，输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Prin

A．5101520

B．2468

C．出错

D．0000

设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是

A．#2=2 #3=3

B．#2=2 #3=5

C．#；2=2 #；3=3

D．#；2=2 #3；=5

有如下程序段：

Public Sub xy (a As Integer,b As lnteger)

Dim t As Integer

Do

t=-a Mod b

a=b：b=t

Loop While t

Print a

End Sub

用Call xy(96,40)调用该通用过程后，输出结果是 【 】 。

：

设有如下程序

Option Base 1

Private Sub Command1_Click( )

Dim a(10)As Integer

Dim n As Integer

n=lnput Box(“输入数据”)

If n＜10 Then

Call GetArray(a，n)

End If

End Sub

Private Sub GetArray(b( )As Integer，n As Integer)

Dim c(10)AsInteger

j=0

For i=1 To n

b(i)=CInt(Rnd( )*100)

If b(i)/2=b(i)\2 Then

j=j+1

c(j)=b(i)

End lf

Next

Print j

End Sub

以下叙述中错误的是

A．数组b中的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

设有如下程序

Option Base 1

Private Sub Command1_Click（）

Dim a（10）As Integer

Dim n As Integer

n=InputBox（"输入数据"）

If n<10 Then

Call GetArray（a,n）

End If

End Sub

Private Sub GetArray（b（）As Integer,n As Integer）

Dim c（10）As Integer

j=0

For i=1 To n

b（i）=CInt（Rnd（）*100）

If b（i）/2=b（i）\2 Then

j=j+1

c（j）=b（i）

End If

Next

Print j

End Sub

以下叙述中错误的是（ ）。

A．数组b中的偶数被保存在数组c中

B．程序运行结束后,在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何显示

A、传值调用

B、传址调用

C、形参

D、实参

下列程序的执行结果是 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Commandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End SubA.15 B.16 C.20 D.25