当前位置:IT认证>BASIC题库

问题:[多项选择题]

[多项选择题] 在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图所示。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp, 窗体文件名保存为sjt3.frm。

  

参考答案: [操作步骤]步骤A:新建一个窗体,按照题目要求建立名称为“TextA”的文本框控件及一个弹出式菜单并设置菜单属性,程序中用到菜单属性见表。标题控件(任意)加粗斜体下划线名称FormatMAMBMC内缩符号0AAA步骤B:打开代码编辑窗口,在指定位置编写如下代码。PrivateSubMA_Click()TextA.FontBold=True’设置字体为加粗EndSubPrivateSubMB_Click()TextA.FontItalic=True’设置字体为斜体EndSubPrivateSubMC_Click()TextA.FontUnderline=True’为文字加下划线EndSubPrivateSubTextA_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=BThen’判断是否执行该事件Me.PopupMenuFormat’显示菜单EndIfEndSub步骤C:调试并运行程序,关闭程序后按题目要求存盘。

  参考解析

[考点]本题考点有:菜单编辑器的使用(名称、标题、内缩符号、Visible),PopupMenu方法,文本框的FontBold、FontItalic和FontUnderline属性以及If判断语句。PopupMenu方法用来显示弹出菜单,语法格式为:object.PopupMenumenuname,flags,x,y,boldcommand要创建弹小式菜单需先用菜单编辑器来建立菜单,并将其主菜单项的可见(Visible)属性值设置为False,然后在对象的MouseDown(或MouseUp)事件过程中判断该事件的Button参数值是否为2,如果是则执行对象的PopupMenu方法来显示菜单。注意不要混淆鼠标左右键的键值。

微信端