[填空题] 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。 Sub PrintOut() Dim a As Int

[填空题] 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。

Sub PrintOut()

Dim a As Integer

a=MsgBox("输出结果",vbInformation+vbYesNo,"提示:")

If a=______Then

Print "Myresult"

End If

End Sub

vbYes(或6)

本题考查MsgBox的应用。函数Msgbox调用格式为：变量[%]=MsgBox(提示[,按钮][,标题])，调用结束以后，返回用户的选择信息。题目中按钮为vbInformation+vbYesNo，那么对话框中显示yes和no按钮，单击yes返回vbYes或者6，单击no则返回vbNo或者7。