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

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

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

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。