Private Sub Command1_Click()
D.im a As Integer
a=10
C.all g(Form2,a)
E.nd Sub
Private Sub g(f As Form,x As Integer)
y=IIf(x>10,100,-100)
f,Show
f.Caption=y
E.nd Sub
运行以上程序,正确的结果是( )。
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100