经营性道路旅客运输驾驶员持有的《道路运输从业人员从业资格证》上需要标注准予驾驶的车型种类。 A:

有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12

有如下程序。 Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 p=PPC(k，m)：Print op； p=PPC(k，m)：Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12

有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim in As Integer，n As Integer，p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．4

B．6

C．8

D．10

有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为

A．2 2

B．4 4

C．5 5

D．6 6

有如下的程序：

Private Sub Command1_Click()

Dim k As Integer，m AB Integer

Dim P As Integer

k=4:m=1

P=Fun(k，m) =Print P；

P=Fun(k，m) :Print P

End Sub

Private Function Fun(a As Integer，b As Integer)

Static m As Integer，i As Integer

m=5:i=2

i=i+m+1

m=i+a+b

Fun=m\2

End Function

单击命令按钮后，输出结果为

A． 2 2

B．4 4

C．5 5

D．6 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 Function 单击命令按钮，执行程序，输出结果是()。

A．2 3 4

B．3 4 5

C．5 6 7

D．3 5 6

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

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．4

B．6

C．8

D．10