[填空题] 程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer)p=p*2 End Sub Private Sub Command1_Cl

[填空题] 程序执行结果s的值是 【7】 。

Private Sub sub1(Byval p As Integer)

p=p*2

End Sub

Private Sub Command1_Click()

Dim i As Integer

i=3

Call sub1(i)

if i＞4 then i=i mod 2

Print cstr(i)

End Sub