“三十六计”中前四计的内容如下。
第一计：瞒天过海。
备周则意怠，常见则不疑。阴在阳之内，不在阳之外。太阳，太阴。
第二计：围魏救赵。
共敌不如分敌，敌阳不如敌阴。
第三计：借刀杀人。
敌已明，友未定，引友杀敌，不自出力，以损推演。
第四计：以逸待劳。
困敌之势，不以战，损则益柔。

    建立一个弹出式菜单，该菜单包括4个命令，分别为“瞒天过海”、“围魏救赵”、“借刀杀人”和“以逸待劳”。程序运行后，单击弹出的菜单中的某个命令，在标签中显示相应的 “计”的标题，而在文本框中显示相应的“计”的内容。

    解：按以下步骤操作。
(1)启动Visual Basic,在窗体画一个文本框和一个标签，把文本框的MultiUne属性设置为True。
(2)设置菜单项的属性如下：

标题          名称         内缩符号    可见性
瞒天过海     strat36       无           False
围魏救赵      mtgh         1            True
借刀杀人      jdsr           1            True
以逸待劳      yydl          1             True
退出            exit           1             True

(3)打开菜单编辑器，按上面设置的属性建立菜单。注意，主菜单项strat36的“可见”属性应设罝为False,其余菜单项的“可见”属性设置为True。

(4)编写窗体的MouseDown事件过程

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu strat36
    End If
End Sub

MouseDown事件过程带有多个参数，过程中的条件语句用来判断所按下的是否是鼠标右键，如果是，则用PopupMenu方法弹出菜单a PopupMenu方法省略了对象参数，指的是当前窗体。运行程序，然后在窗体上（不要在控件上）单击鼠标右键，即可弹出菜单。
至此，建立弹出式菜单的操作已经完成，下面编写实现各菜单命令操作的事件过程。

(5)编写各子菜单项的事件过程：
注意，对于弹出式菜单来说，由于主菜单项的“可见”属性被设罾为False，不能在窗体顶部显示出来，因此不能通过单击子菜单进入代码窗口，必须先打开代码窗口，然后单击 “对象”框，再单击下拉显示的某个子菜单项，将显示该菜单项的事件过程代码框架，即可在该框架内编写代码。
各子菜单项的事件过程如下：

Private Sub Exit_Click()
    End
End Sub

Private Sub jdsr_Click()
    Label1.Caption = "借刀杀人"
    Label1.FontSize = 24
    Label1.FontName = "黑体"
    Text1.FontSize = 20
    Text1.FontBold = True
    Text1.FontName = "幼圆"
    Text1.Text = "    敌已明，友未定，引友杀敌，不自出力，以损推演。"
End Sub

Private Sub mtgh_Click()
    Label1.Caption = "瞒天过海"
    Label1.FontSize = 24
    Label1.FontName = "黑体"
    Text1.FontSize = 20
    Text1.FontBold = True
    Text1.FontName = "幼圆"
    Text1.Text = "    备周则意怠，常见则不疑。阴在阳之内，不在阳之外。太阳，太阴。"
End Sub

Private Sub wwjz_Click()
    Label1.Caption = "围魏救赵"
    Label1.FontSize = 24
    Label1.FontName = "黑体"
    Text1.FontSize = 20
    Text1.FontBold = True
    Text1.FontName = "幼圆"
    Text1.Text = "     共敌不如分敌，敌阳不如敌阴。"
End Sub

Private Sub yydl_Click()
    Label1.Caption = "以逸待劳"
    Label1.FontSize = 24
    Label1.FontName = "黑体"
    Text1.FontSize = 20
    Text1.FontBold = True
    Text1.FontName = "幼圆"
    Text1.Text = "     困敌之势，不以战，损则益柔。"
End Sub

    运行上面的程序，可以通过鼠标右键点击窗体弹出菜单，点击相应的子菜单，可以让文本框和标签显示相应的文字。结果如下图所示。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_11.7.html