经营性道路旅客运输驾驶员应当掌握相关道路运输法规、机动车维修和旅客急救基本知识。 A:正确 B:错

有如下程序。

Private Sub Command1_Click()

Dim k As Integer, m As Integer

Dim op As Integer

k=4: m=1

op=PPC(k, m) : Print op;

op=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 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 Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub

A．6

B．72

C．144

D．432

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

执行下面程序，第一行输出结果是 [ ] ，第二行输出结果是 [ ] 。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1(A)End Sub

Private Sub1(x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1(x)

End If

x=x*2+1

Print x

End Sub

有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate 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=mEnd Function程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12