首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,其标题分别为“商品类别”和“帮助”,名称分别为vbMenu和vbHelp,其中“商品类别”菜单包括“百货”、“
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,其标题分别为“商品类别”和“帮助”,名称分别为vbMenu和vbHelp,其中“商品类别”菜单包括“百货”、“
admin
2009-02-25
71
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,其标题分别为“商品类别”和“帮助”,名称分别为vbMenu和vbHelp,其中“商品类别”菜单包括“百货”、“食品”和“家电”三个子菜单,名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后,如果在“商品类别”的下拉菜单中选择“百货”,则在文本框内显示“大类核算”;如果选择“食品”,则在文本框内显示“中类核算”;如果选择“家电”,则在文本框内显示“小类核算”。程序中不能使用任何变量,直接显示字符串。程序运行界面如图6-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
(2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有? 号的地方填入正确内容,然后删除? 及所有注释符(即,号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有一个名称为Text1的文本框:两个复选框,名称分别为Ch1和Ch2,标题分别为“英语班”和“计算机班”。要求程序运行后,如果只选中Ch1,单击窗体,则在文本框中显示“报名参加英语班”;如果只选中Ch2,然后单击窗体,则在文本框中显示“报名参加计算机班”:如果同时选中Ch1和Ch2,单击窗体,则在文本框中显示“报名参加英语班和计算机班”;如果Ch1和Ch2都不选取,在单击窗体后,则在文本框中什么都不显示。程序运行界面如图6-4所示
选项
答案
(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在Visual Basic中,菜单也被看作控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1:文本框的内容由Text属性设置。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表6-3。 [*] 第二步:编写程序代码。 参考代码: Private Sub vbMenu1_Click() Text1.Text="大类核算" End Sub Private Sub vbMenu2_Click() Text1.Text="中类核算" End Sub Private Sub vbMenu3_Click() Text1.Text="小类核算" End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在Visual Basic中,复选按钮的标题由Caption属性设置,Value属性用来表示复选框的状态,复选框的Value属性有0、 1或2三种取值,其作用为: 0:表示未选中; 1:表示选中该复选框; 2:表示该复选框被禁止(灰色)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表6-4。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub Form Click() Text1.Text = "" ’If Ch1.Value = ? Then Text1.TeXt = Text1.Text + "英语班" End If If Ch2.Value Then ’If Text1.Text <> "" Then Text1.Text = ? + "和" Text1.Text = Text1.Text + "计算机班" End If If Text1.Text <> "" Then Text1.Text = "报名参加" + Text1.Text End If End Sub 参考代码: Option Explicit Private Sub Form Click() Text1.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "英语班" End If If Ch2.Value Then If Text1.Text <> "" Then Text1.Text = Text1.Text + "和" Text1.Text = Text1.Text + "计算机班" End If If Textl.Text <> "" Then Text1.Text = "报名参加" + Text1.Text End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Dh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于下面语句的说法,不正确的是ThreadthrObj=newThread();
下面属于面向对象语言的是
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
下面说法不正确的是()
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
下面哪个选项正确示例了传递一个参数给applet?()
随机试题
一根铝丝悬多长时,重量就会使它拉断?已知铝的密度为11.3×103kg·m-3。,其极限强度为2×107Pa。
A.肝左叶增大,右叶缩小,肝表面不光滑,肝实质回声增强、增粗,呈网格状B.肝萎缩,肝表面不光滑,肝实质回声增强、增粗,呈结节状C.肝大,肝表面光滑,肝实质回声减弱D.肝大,肝表面光滑,肝实质回声细密、增强,深部回声减弱E.肝大,肝表面光滑,肝实质回
女性,58岁。9个月来皮肤瘙痒,1个月前经旁人发现皮肤有黄染而住院。无腹痛,胃纳尚可,大便正常,体检皮肤有明显黄染,皮肤有搔痕,肝肋下3cm,质硬充实,脾肋下6cm,TB85.5μmol/L,CB46.8μmol/L,白蛋白30g/L,球蛋白4
下列单代号网络图中,违反绘图规则的地方有()。
某企业2016年的有关资料如下:该企业本年销售收入为40000万元,销货成本为25000万元,购货成本为23750万元(假定一年按360天计算)。要求:如果2017年现金周转期需要控制在90天,应收账款周转期、应付账款周转期维持在上年水平
学习策略是指学习者为了提高学习效果和效率,在学习生活中有意识地制订和使用有关学习的方法。()
当前教育改革中,教师要注重引导学生建立新的学习方式是()。
•Lookatthenotesbelow.•Someinformationismissinq.•Youwillhearamancontactinganemploymentagencyabouttherecruit
赛龙舟
A、Afraid.B、Excited.C、Curious.D、Indifferent.A短文说,最初,人类和其他动物一样很可能也怕火。A正确。Atfirst引导的语义强调之处出题,四个选项都为表示心理活动的形容词,听到什么选什么。
最新回复
(
0
)