首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
admin
2016-06-23
22
问题
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性,程序中用到菜单属性见表3.32。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub M1_Click() Text1.FontBold=True’设置字体为加粗 End Sub Private Sub M2_Click() Text1.FontItalic=True’设置字体为斜体 End Sub Private Sub M3_Click() Text1.FontUnderline=True’为文字加下划线 End SUb Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then’判断是否执行该事件 Me.PopupMenu Format’显示菜单 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/RSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据库设计中,将E-R图转换成关系数据模型的过程属于
有如下一个函数过程:FunctionFun(aAsInteger)StaticC b=0:b=b+1:c=c+1 Fun=a+b+cEndFunction在窗体上添加一个命令按钮,事件过程如下:
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx<6
有如下程序:PrivateSubForm_Click() E=1:F=1 Forj=1To3 E=E+F:F=F+E Next PrintE:FEndSub该程序的
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。PrivateSubCommand1_Click()DimxAsSingle x=InputBox("
可决定窗体左上角是否有控制菜单的属性是()。
以下程序段执行后整型变量n的值为()。n=0Fori=1to20Step5n=n+1Nexti
块结构条件语句中的必选项是______。
为了使应用程序启动时打开的窗体中具有背景图像(取用户自定义的某个图像文件“C;\Picture.jpg”),设置值为“C:Picture.jpg”的属性是______。
在VisualBasic中,要将一个窗体从内存中释放,应使用的语句是
随机试题
人生的奥妙就在于与人相处。和聪明的人在一起,你才会更加睿智;和优秀的人在一起,你才会()。
刘老师毕业于某大学,在广西某国家级贫困县的高级中学任教。因工作认真,成绩突出,得到领导、同事及学生的好评,连续三年年终考核被确定为“优秀”等次。2016年,刘老师参加广西壮族自治区教育厅行政部门组织的教学技能比赛获得一等奖。2017年初,刘老师被学校选派到
鲁迅著名的杂文集有
采用强夯法处理湿陷性黄土地基,强夯土的承载力宜在地基强夯结束()d左右进行静载荷试验。
钢架承受荷载如下图所示,下列各项中结构变形图中正确的是()。
某商业中心地上共4层、地下共1层,建筑高度20m,耐火等级一级,每层层高均为5m,每层建筑面积均为10000m2,按国家有关工程建设消防技术标准配置了自动喷水灭火系统、火灾自动报警系统等消防设施及器材。某歌舞厅位于该商业中心的地下一层至地上四层,每层歌舞厅
下列属于质量指标指数的有()。
①象草对生长环境要求不高,从亚热带到温带的广阔地区都能生长②可是变成石油所产生的能量却相当于用菜子油提炼的生物柴油的两倍③日本科学家发现一种芳草类植物,具有很强的光合作用能力,是一种理想的石油植物④就产量而言,一公顷平均每年可收获12吨“生物石油”,比其他
右图是由9个等边三角形拼成的六边形,现已知中间最小的等边三角形的边长是a,问这个六边形的周长是多少?
SDLC was invented by IBM to replace the older Bisynchronous protocol for wide area connections between IBM equipment. A varietio
最新回复
(
0
)