对于新手 vb 编程，请运行 SUB A

为此，您需要使用 API 或 VB 形式化方法调用函数指针，只有一种方法，创建一个类模块，将子进程 1 放入类模块中，然后使用 callbyname 函数调用它。

创建新的用户窗体1 创建按钮 1 和 2 并复制以下内容**。

子过程 1 （）。

msgbox "1"

end sub

子进程 2 （）。

msgbox "2"

end sub

private sub c(xx)

callbyname userform1, xx, vbmethodend sub

private sub commandbutton1_click()c ("过程 1")

end sub

private sub commandbutton2_click()c ("流程 2")

end sub

设计界面：

修改属性：form frm1**：

public n% '定义公共变量。

private sub command1_click()end sub

public sub command2_click()print n

end sub

表格 frm2**：

private sub command1_click()if msgbox("退出程序？ ", vbyesno, "技巧") = vbyes then '标题只要求关闭表单，并没有说要退出程序，图片上的提示文字具有误导性。

end sub

private sub form_click()= + 1

end sub

结果：这个问题的主要难点是定义一个公共变量，以便两个表单都可以使用该变量来显示表单被点击的次数。

表格 form1**：

private sub command1_click()load form2

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

标准模块模块1**：

public n as integer