VB如何编写简单弹出对话框的代码？

直配族接用MSGBOX函数即可。不需要控件。代码如下：Private
Sub
Command1_Click()
x
=
MsgBox("确定要退出吗缓判？培哪弊",
vbYesNo,
"提示")
If
x
=
vbYes
Then
End
End
If
End
Sub
希望能帮助到你
不懂请追问。

直接用MSGBOX函数即岩档谨蠢拍可。不需要控件。代码如下:Private
Sub
Command1_Click()
x
=
MsgBox("确定要退出粗基吗？"，
vbYesNo，
"提示")
If
x
=
vbYes
Then
End。

Private
Sub
Form_QueryUnload(Cancel
As
Integer,
UnloadMode
As
Integer)
'点程序窗体上的X退出大余
Dim
QueDing
As
Integer
Beep
QueDing
=
MsgBox("你真隐败的确定要退滚携滚出本程序吗？",
vbYesNo
+
vbQuestion,
"关闭窗口提示")
If
QueDing
=
vbYes
Then
End
Else
Cancel
=
1
End
If
End
Sub
Private
Sub
Command1_Click()
'点退出按钮退出
Form_QueryUnload
0,
0
End
Sub