在中国境内无住所、但在华居住满5年的个人，从第六年起的以后年度中，凡在境内居住满1年的，应当就其

有如下程序。

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 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 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 k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print PEnd SubPrivate Function Pid(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 Pid=m\2End 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

有如下程序：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

阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是

A．234

B．345

C．567

D．356