下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示:") If a=__

admin2013-01-23 35

问题下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。
Sub PrintOut()
Dim a As Integer
a=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示:")
If a=______Then
Print "Myresult"
End If
End Sub

选项

答案vbYes或6

解析 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有关，如下表所示。