[填空题] 在窗体上画一个名为Text1的文本框，然后建立一个弹出式菜单，菜单名称为 Textformat，包含“宋体”、“黑体”、“隶书”等3个菜单项，其名称分别为font1、font2和font3

[填空题] 在窗体上画一个名为Text1的文本框，然后建立一个弹出式菜单，菜单名称为 Textformat，包含“宋体”、“黑体”、“隶书”等3个菜单项，其名称分别为font1、font2和font3，分别用来使Text1中的文字用相应的字体显示。程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。要求：在弹出的菜单中只显示与Text1中字体不同的其他两种字体的菜单项。例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只有“黑体”和“隶书”两个菜单项(如下图所示)。请填空。

Private Sub font1_ Click() Text1. FontName = “宋体” End Sub Private Sub font2 Click() Text1. FontName = “黑体” End Sub Private Sub font3 Click() Text1. FontName = “隶书” End Sub Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, _ X As Single, Y As Single) If ______ ThenIf Text1. FontName =“宋体” Then Font1. Visible = Font2. Visible = True Font3. Visible = True ElseIf Text1. FontName= "______ "Then Font1. Visible = True Font2. Visible = False Font3. visible = True ElseIf Text1. FontName =" ______ "ThenFont1. Visible = True Font2. Visible = True Font3. Visible = False End If ______ Textformat End If End Sub

参考答案：

问题解析: