设有Function过程:Private Function f（a As Integer, b As Integer) As Integera = a * a:b

计算n!的函数过程如下:

Private Function fact(n As Integer)As Long

f = 1

For i = 1 To n

f = f * i

Next i

(___________________)

End Function

下划线处需要编写的语句是( )。

A. f = 1

B. f = fact

C. fact = f

D. 不需要其他任何语句

在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是( )。

A) Private Sub List1_Click()

Label1.Caption = List1.ListIndex

End Sub

B) Private Sub List1_Click()

Label1.Name = List1.ListIndex

End Sub

C) Private Sub List1_Click()

Label1.Name = List1.Text

End Sub

D) Private Sub List1_Click()

Label1.Caption = List1.Text

End Sub

用来设置文本框有无滚动条的属性是( )

A. ScrollBars

B. MultiLine

C. SelText

D. SelLength

计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( )

A. If x>=y Then z=x : z=y

B If x>=y Then z=x Else z=y

C. z=y : If x>=y Then z=x

D. If x<=y Then z=y Else z=x

运行下列程序段后,j3显示的结果为( )

J1=23

J2=32

j3=j1 & J2

A 3223

B 23

C 55

D 2332

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

Sub Command1_Click()

num As Integer

= 1

Until num >6

num;

= num + 2.4

Sub

程序运行后,单击命令按钮,则窗体上显示的内容是( )

A、1 3.4 5.8

B、1 3 5

C、1 4 7

D、无数据输出

下列程序段运行后,其运行结果是( )。

Dim a(3) As Integer, b(3) As Integer

For k = 0 To 3

a(k) = k*k +k

b(k) = a(k)-k

Next k

Print a(2) + b(1)

A. 5

B. 6

C. 7

D. 8

在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As Integer

Private Sub Command1_Click()

Dim y As Integer

x=10 : y=5

Call f(x, y)

Print x; y

End Sub

Private Sub f(x1 As Integer, y1 As Integer)

x1=x+2

y1=y+2

End Sub

程序运行后,单击命令按钮,在窗体上显示的内容是( )。

A. 10 5

B. 12 7

C. 12 2

D. 以上都不对

若用户在键盘上按下一个键,则会产生一个( )事件

A. click

B. KeyDown

C. DbClick

D. Load

要在代码编辑器的“通用/声明”段部分定义私有Function函数,则正确的是()。

A. Public Sub

B. Public Function

C. Private Sub

D. Private Function