首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
(1)在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
admin
2015-06-30
28
问题
(1)在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp,含有Form1和Form2两个窗体,其中Form1为启动窗体,窗体上的控件如图1所示。程序运行后,在Form1窗体的文本框中输入有关信息(如“密码”文本框中显示“母”字符),然后单击“提交”按钮,弹出“确认”对话框(Form2窗体),并在Form2中显示Form1中输入的信息,如图2所示。单击“确认”按钮,程序结束,单击“重输”按钮,Form2消失,回到Form1窗体。在给出的窗体文件中已经给出了程序,但不完整。
要求:
①将Forml的标题改为“注册”,将Form2的标题改为“确认”;
②设置适当的属性,使Form2标题栏右上角的所有按钮消失(如图2所示);
③去掉程序中的注释符,把其中的?改为正确的内容。
注意:不能修改程序中的其他部分,标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:新建一个窗体,按照题目要求建立文本框控件及一个弹出式菜单并设置菜单属性。 步骤2:设置子菜单项的相关属性,程序中用到菜单属性见表3.37。 [*] 步骤3:分析并编写程序代码。 参考答案 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 步骤4:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件,按照题目要求设置属性,将Form1的Caption属性设置为"注册",将Form2的Caption属性设置为"确认",然后将Form2的ControlBox属性设置为False。 步骤2:分析并编写程序代码。 程序提供代码 Form1代码 Private Sub C1_Click() Dim k As Integer ’ Form2. ? Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 ’ Form2.Print Form1.Frame1. ? ; ":"; For k = 0 To 1 ’ If Form1.Op1( ? ).Value Then Form2.Print Form1.Op1(k).Caption End If Next k End Sub Private Sub Form Load() ’ Text2. ? = "*" End Sub Form2代码 Private Sub C1_Click() End End Sub Private Sub C2_Click() Unload Form2 End Sub 程序结束 参考答案 第1个?处填入:Show 第2个?处填入:Caption 第3个?处填入:k 第4个?处填入:PasswordChar 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0cQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是
文件的打开和关闭语句分别是【】和【】。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
执行下面的程序段,x的值为PrivateSubCommandl_Click()Fori=1To5a=a+iNextix=Val(i)MsgBoxxEndSub
以下关于变量作用域的叙述中,正确的是
以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是
要使一个标签透明且具有边框,则应
在设计程序时,应采纳的原则之一是
在C:\Pic文件夹中有一个图形文件,名为Welcome.gif。为了将该图形装入窗体Form1,应使用的语句为()
随机试题
看焊接机械零件图有什么要求?按剖切范围的大小,剖视图分为哪几种?
鞭毛的主要作用是
某股份有限公司因进行技术改造需要一笔资金,就以其享有的一项实用新型专利权作为质押,向银行申请了500万元人民币的贷款,在签订了贷款合同和质押合同后,双方即向有关部门办理了出质登记手续。则以下说法正确的是:()
错账更正的方法主要有()。
Donovan公司最近宣告并发放了50%的股票股息。该项交易会降低公司的
(2012年)2009年3月1日,甲房地产公司(简称甲公司)与乙建筑公司(简称乙公司)签订一份建筑工程承包合同,约定由乙公司承建甲公司开发的景明写字楼项目,工程价款5000万元,工期14个月。工程将要竣工时,甲公司因资金短缺,无力继续提供约定由其提供的部分
下列属于社区矫正对象的是()
“心不在焉,则黑白在前而不见,擂鼓在侧而不闻”,说明人的心理活动过程离不开()。
数据的独立性是指(28)是相互独立的;它又可分为(29)。
WhatistheView-R?
最新回复
(
0
)