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

13 查阅

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

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。

计算机考试