首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Forml的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,
(1)在名称为Forml的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,
admin
2018-09-19
26
问题
(1)在名称为Forml的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图3.145所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit3.vbp,窗体文件名为sjt3.frm。
(2)在考生文件夹下有一个工程文件sit4.vbp,含有Forml和.Form2两个窗体,Forml为启动窗体,窗体上的控件如图3一146(a)所示。程序运行后,在Forml窗体的文本框中输入有关信息(“密码”框中显示“*”字符),然后单击“提交”按钮则弹出“确认”对话框(即Form2窗体),并在Form2中显示输入的信息,如图3—146(b)所示。单击“确认”按钮则程序结束,单击“重输”按钮,则Form2消失,回到Forml窗体。在给出的窗体文件中已经给出了程序,但不完整。
要求:
①把Forml的标题改为“注册”,把Form2的标题改为“确认”;
②设置适当的属性,使Form2标题栏上的所有按钮消失(如图3一146(b)所示);
③去掉程序巾的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分,标题等属性的修改只能在属性窗口中进行。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,选择【工具】→【菜单编辑器】命令,打开菜单设计器,按要求设置建立菜单项。 步骤2:在窗体中画一个文本框,取名为Text1。 步骤3:打开代码编辑窗口,分别编写“加粗”、“斜体”和“下划线”菜单项的事件过程。 参考代码: Private Sub Form MouseDown(Button As Integer r Shift As Integer, X As Single t Y As Single) If Button=2 Then PopupMenu format End If End Sub Private Sub ml Click() Text1.Font.Bold=True End Sub Private Sub m3 Click() Textl.Font.Underline=True End Sub Private Sub m2 C1ick() Textl.Font.Italic=True End Sub 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹下的工程文件sjt4.vbp。 步骤2:按要求设置两个窗体的相关属性。 步骤3:打开Forml的代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Form2.Show Form2.Print Forml.Framel.Caption;“:”; If Forml.Opl(k).Value Then Text2.PasswordChar=”*” 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/UhFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
在窗体上画一个名称为Text1的文本框,并编写如下程序:OptionBase1PrivateSubForm_Click() Dimarr DimStartAsInteger,FinishAsInteger DimSu
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
软件设计中模块划分应遵循的准则是
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程:PrivateSubCommand1_Click()DimnAsInteger,tAsIntegern=1:t=
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimI,Num Randomize Do ForI=1To1000 Num=Int(Rnd*
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
下列叙述中正确的是
随机试题
男,25岁,不慎摔倒,左肩部疼痛不敢活动来诊。体检:左肩部疼痛肿胀,活动受限,上臂外展位弹性固定,肩峰下空虚,Dugas征阳性。以下说法错误的是
引起慢性肾衰患者贫血最重要的原因是
《政府采购法》从采购主体、()等多方面,对政府采购的范围作了界定。
在国外,建筑工程一切险的投保人一般是()。
技术转让费、技术开发费、业务招待费、绿化费、广告费、公证费、法律顾问费、审计费、咨询费等费用应计入( )。
代销渠道的特点包括()。
导致幼儿常分心分神的原因是()
“客文化”是随着网络传媒的形成和发展而出现的一种虚拟文化,具有个性、即时性、开放性、交互性、合作性,是民生文化的一种形式。它包括的形态多样,比如博客、播客、微博客、维客、黑客、红客、换客、晒客等。根据上述定义,以下不属于“客文化”的是:
某位学生最近一段时间及时完成作业,老师告诉他放学后不必再留在教室里完成作业了,此后该生继续按时完成作业,这时该生受到了
WhereisAshleyColvinfrom?
最新回复
(
0
)