Private Sub fun3(xAs Integer) Static aAs Integer Dim bAs Integer a=a+3:b=b+3 a=a+x:b=b+x Printa;b End Sub Private SubCommand1_Click() Dim kAs Integer,mAs Integer,nAs Integer k=2:m=1 Call fun3(k) Call fun3(m) End Sub A.5 5 9 9 B.5 5 9 4 C.5 5 4 4 D.5 5 4 9