![[填空题] 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。 Sub PrintOut() Dim a As Integer a=MsgBox("](http://www.mshxw.com/aiimages/31/254997.png "[填空题] 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。 Sub PrintOut() Dim a As Integer a=MsgBox(\"")
[填空题] 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填写空白处。
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。
