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

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

Private Sub subl(Byval p As Integer)

p=p*2

End Sub

Private Sub Commandl_Click()

Dim i As Integer

i=3

Call subl(i)

ifi＞4 then i=i mod 2

Print cstr(i)

End Sub