vb里一题下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。SubPrintOut()DimaasintegerA=MsgBox(“输出结果？”，vbinformation+vbYesNo,”提示”)Ifa=()th

Question

vb里一题
下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。
Sub PrintOut()
Dim a as integerA=MsgBox(“输出结果？”，vbinformation+vbYesNo,”提示”)
If a=( )then
Print“Myresult”End if
End Sub
这道题怎么做，请给出过程，谢谢

Answer 1

Sub PrintOut()
Dim a as integerA=MsgBox(“输出结果？”，vbinformation+vbYesNo,”提示”)
If a= 6 then
Print“Myresult”End if
End Sub
说明
返回值 用于MsgBox函数返回值的常量 常数值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否