Private Sub Command1_Click()
D.im k As Integer, m As Integer
D.im P As Integer
k=4: m=1
P=Fun(k, m) : Print P;
P=Fun(k, m) : Print P
E.nd 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
F.un=m / 2
E.nd Function
单击命令按钮后,输出结果为
A.2 2
B.4 4
C.5 5
D.6 6