VB中怎样d出一个对话框,对话框里只显示"否",不显示"是"?

新建一个窗体,在窗体上添加一个命令按钮,然后在代码窗口中添加以下代码:
===============================================
private
sub
command1_click()
const
msg1
as
string="请在这里输入你想显示的一段话!"
const
msg2
as
string="这里是对话框要显示的标题"
msgbox
msg1,vbokonly,msg2
'此处代码一定不能添加()
end
sub
===============================================
记住,1楼的代码会出现编译错误,在不需要返回值的时候就不能添加(),而在需要返回值的时候就一定要添加()

1创建你想d出的窗口（体），内容自定义。
2定义“按钮”的Click()事件。
示例：
Sub Command1_Click()
Form1Hide
Form2Show
End Sub
其中Form1为按钮所在的窗口（体），Form2是你想要d出的窗口
3如有疑问，留言QQ475598096，一起研究。

首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：
Private Sub Command1_Click()
Form2Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2Show 0或Form2Show 1此参数可缺省。可自行运行验证

d出式菜单，首先要创建菜单对象。方法是，把你要d出的菜单当成是一个正常展示在窗体顶部的菜单，使用菜单编辑器将它制作出来。比如：添加一个标题是“d出菜单”名称是“Menu1”的根菜单项，在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为d出菜单的内容，内容你随意，这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后，便可以使用PopupMenu方法来d出菜单。方法是：
PopupMenu
菜单对象名
继续上个例子，就是
PopupMenu
Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的d出菜单是通过按右键d出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private
Sub
控件_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
2
Then
'如果点的是右键
PopupMenu
Menu1
End
If
End
Sub

输入以下代码：

Private Sub Form_Load()

Dim a

a = MsgBox("确定要退出吗？", 1, "退出")

If a = 1 Then

End

End If

End Sub

VB软件作用：

为使用者提供了一个功能强大而又易于 *** 作的集成开发环境，用VB开发应用程序的大部分工作都可以通过该集成开发环境来完成。

在Windows下，启动VB后出现在屏幕上的画面就是VB的集成开发环境　(IDE)（见下图）。VB的集成开发环境也称为VB的主窗口，由“标题栏”、“菜单栏”、“工具栏”、“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性设置窗口”和“窗体布局窗口”等组成。

VB集成开发环境中还有几个在必要时才会显示出来的子窗口，即“代码编辑器”和用于程序调试的“立即”、“本地”和“监视”窗口等。

Private Sub Command1_Click()
MsgBox "因为你长的不够帅，所以执行了非法 *** 作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"
End Sub

首先，窗体运行的时候是隐藏的。则form的visible为false
其次，要不断d出就要一个timer，Interval为你想让他d出的时间间隔。
要是你想让msgbox每次d出的消息不同，可以预先设置。
如，在c:\1txt中写
鄙视你
……
记得每个消息后要以回车换行，为的是方便读取，
接下来就是代码了
首先定义全局变量
Dim a(100) as string '存放C:\1txt中的字符串
再在form_load中写(未完，手机有字数限制)

使用MsgBox函数完成。

MsgBox 函数，在对话框中显示消息。

Private Sub Command1_Click()
    Label1Caption = Text1Text
    Timer1Interval = 100
    Timer1Enabled = True
End Sub
Private Sub Form_Load()
    Timer1Enabled = False
End Sub
Private Sub Timer1_Timer()
    Label1Caption = Label1Caption - 1
    If Label1Caption = 0 Then
        Timer1Enabled = False
        Dim Msg, Response, MyString
        Msg = "时间到了！"   ' 定义信息。
        ' 显示信息。
        Response = MsgBox(Msg)
        If Response = vbYes Then   ' 用户按下“是”。
            MyString = "Yes"   ' 完成某 *** 作。
        End If
    End If
End Sub

---