Question

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

我要一个 按退出的时候 弹出这一个对话框麻烦了谢谢

Answer 1

直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()
x = MsgBox("确定要退出吗？", vbYesNo, "提示")
If x = vbYes Then
End
End If
End Sub

VB的系统特性：

1.工程限制：

实际文本之前最多只能有256 个空格的前导，在一个逻辑行中最多只能有25 个续行符。

2.过程、类型和变量：

对每个模块的过程数没有限制。每个过程可包含至多64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的程，或将模块级声明移到另一模块，来避免此类错误发生。Visual Basic 用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于64K。

3.动态链接库声明表：

每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约40 个字节，表的大小限于64K，形成每个模块大约有1500 个声明。

4.工程名表：

整个应用程序用一张包含所有名称的表。这些名称包括：常量名、变量名、自定义的类型定义名、模块名、DLL 过程声明名。对工程名表总大小没有限制，但是区分大小写的条目不得超过32K。如果超过了32K 的限制，可以在不同的模块中重新使用private 标识符以限制区分大小写的条目数到达32K。

5.输入表：

在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是24 字节，但限于64K，这样每个模块大约可以有2000 个引用。

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

N = 0
Do While N < 7
T = Int(31 * Rnd) + 1
Flg = False
For J = 1 To N
If A(J) = T Then Flg = True: Exit For
Next
If Not Flg Then N = N + 1: A(N) = T