可以使用 MsgBox 函数来设置选择项,具体的语法如下:
MsgBox(prompt, buttons, title)
其中,prompt 是要显示的消息内容,buttons 是按钮的样式和功能,title 是对话框的标题。
常见的 buttons 参数取值为:
0:仅显示 OK 按钮。
1:显示 OK 和取消按钮。
2:显示中止、重试和忽略按钮。
3:显示是、否和取消按钮。
4:显示是和否按钮。
5:显示重试和取消按钮。
6:显示帮助和 OK 按钮。
示例代码如下,其中显示了是和否的选择项:
result = MsgBox("是否继续操作?", 4, "提示")
If result = 6 Then
' 用户选择了是
MsgBox "用户选择了是"
Else
' 用户选择了否或关闭对话框
MsgBox "用户选择了否"
End If
以上代码会显示一个提示对话框,提示用户选择是否继续操作。如果用户选择了“是”,则会显示“用户选择了是”的消息框;如果用户选择了“否”或者关闭了对话框,则会显示“用户选择了否”的消息框。