Question

求助各位大神，这道VB编程题代码该怎么编？

求助各位大神，这题代码该怎么编？ 在一个工程内建立两个窗体，名称分别为frm1和frm2，标题分别是窗体1和窗体2，如图所示。程序运行后先启动frm1，frm1内有“显示窗体2”和“单击窗体2次数”两个命令按钮，单击“显示窗体2”按钮则显示frm2，单击“单击窗体2次数”按钮则在frm1上输出目前为止鼠标在frm2上单击的次数；frm2内有“关闭窗体”命令按钮，单击此命令按钮则关闭frm2，关闭frm2前会有提示框，如单击提示框的“否”按钮就不会关闭窗体，反之正常关闭。效果如图所示：麻烦说的详细点，谢谢了

Answer 1

设计界面：

修改属性：

窗体Frm1代码：

Public n% '定义公共变量
Private Sub Command1_Click()
  Frm2.Show
End Sub

Public Sub Command2_Click()
  Print n
End Sub

窗体Frm2代码：

Private Sub Command1_Click()
  If MsgBox("退出程序吗？", vbYesNo, "提示") = vbYes Then Me.Hide'题目要求只是关闭这个窗体，没说要退出程序，配图上的提示文字是一种误导
End Sub
Private Sub Form_Click()
  Frm1.n = Frm1.n + 1
End Sub

运行结果：

这题的难点主要就是要定义公共变量，使两个窗体都能使用变量，才能显示出单击窗体的次数。

希望我的回答能够帮到你，满意请采纳！

Answer 2

窗体Form1代码：

Private Sub Command1_Click()
  Load Form2
  Form2.Show
End Sub

Private Sub Command2_Click()
  Print n
End Sub

窗体Form2代码：

Private Sub Command1_Click()
  If MsgBox("退出程序吗？", vbYesNo, "提示") = vbYes Then End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  n = n + 1
End Sub

标准模块Module1代码：

Public n As Integer