选择题：在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序: Private Sub s(ByVal p As Integer) p

在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：

Private Sub s(ByVal p As Integer)

p=p*2

End Sub

Private Sub Com1_Click()

Dim i As Integer

i=3

Call s(i)

If i＞4 Then i=i^2

End sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。