第1个回答 2019-04-12
当然是函数了
Dim
Msg,
Style,
Title,
Help,
Ctxt,
Response,
MyString
Msg
=
"Do
you
want
to
continue
?"
'
定义信息。
Style
=
vbYesNo
+
vbCritical
+
vbDefaultButton2
'
定义按钮。
Title
=
"MsgBox
Demonstration"
'
定义标题。
Help
=
"DEMO.HLP"
'
定义帮助文件。
Ctxt
=
1000
'
定义标题
'
上下文。
'
显示信息。
Response
=
MsgBox(Msg,
Style,
Title,
Help,
Ctxt)
If
Response
=
vbYes
Then
'
用户按下“是”。
MyString
=
"Yes"
'
完成某操作。
Else
'
用户按下“否”。
MyString
=
"No"
'
完成某操作。
End
If
可以看出他是有返回值的