對於新手 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