首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件Bjt3.vbp,窗体上有两个名称分别为List1、List2的列表框,在List2中已经预设了内容;两个名称分别为C1、C2的命令按钮,标题分别为“添加”、“清除”,如图所示。程序的功能是在运行时,如果选中右边列表框中的
(1)在考生文件夹下有一个工程文件Bjt3.vbp,窗体上有两个名称分别为List1、List2的列表框,在List2中已经预设了内容;两个名称分别为C1、C2的命令按钮,标题分别为“添加”、“清除”,如图所示。程序的功能是在运行时,如果选中右边列表框中的
admin
2015-06-30
31
问题
(1)在考生文件夹下有一个工程文件Bjt3.vbp,窗体上有两个名称分别为List1、List2的列表框,在List2中已经预设了内容;两个名称分别为C1、C2的命令按钮,标题分别为“添加”、“清除”,如图所示。程序的功能是在运行时,如果选中右边列表框中的一个列表项,单击“添加”按钮,则把该项移到左边的列表框中;若选中左边列表框中的一个列表项,单击“清除”按钮,则把该项移回右边的列表框中,左边列表框中该内容消失。文件中已经给出了所有控件和程序,但程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,请在Form1窗体上建立一个名称为Op1的单选按钮数组,含有三个单选按钮,其标题分别为“10!”、“11!”、“12!”,Index属性分别为0、1、2;再添加一个名称为C1的命令按钮,标题为“计算”;添加一个名称为Text1的文本框,如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后,可以计算出其相应的阶乘值,并在Text1中显示该阶乘值。请按题目要求添加上述控件并编写程序。
注意:考生不得修改工程中已经存在的内容,在结束程序运行之前,必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim k As Integer k = 0 ’ While (k < List2.?) ’ If ?.Selected(k) = True Then List1.AddItem List2.Text ’ List2.RemoveItem ? End If k = k + 1 Wend End Sub Private Sub C2_Click() List2.AddItem List1.Text ’ List1.RemoveItem List1.? End Sub 程序结束 参考答案 第1个?处填入:ListCount 第2个?处填入:List2 第3个?处填入:k 第4个?处填入:ListIndex 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件,建立界面并设置控件属性。程序中涉及的控件及其属性见表3.91和表3.92。 [*] 步骤2:分析并编写程序代码。 程序提供代码 窗体代码 Private Sub Form_Unload(Cancel As Integer) unload sub End Sub 模块代码 Sub unload sub() Dim n As Integer, k As Integer For k = 0 To 2 If Form1.Op1(k).Value Then n = Val(Left$(Form1.Op1(k).Caption, 2)) End If Next k Open "out4.dat" For Output As #1 Print #1, n, Val(Form1.Text1.Text) Close #1 End Sub 程序结束 参考答案 Private Sub C1_Click() Dim s As Integer Dim i As Integer Dim j As Integer temp = 1 For i = 0 To 2 If Op1(i).Value = True Then s = Val(Op1(i).Caption) End If Next i For j = 1 To s temp = temp * j Next j Text1.Text = temp End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/TAQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel,ByValaAsInteger)L.Caption="1234
下列关于队列的叙述中正确的是______。
为了将表达式列表中数据写入顺序文件中,所使用的语句的格式为()
下面程序段的输出结果是【】。ForX=1.5To5Step1.5PrintX;NextX
下列关系模型中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是()
顺序存储方法是把逻辑上相邻的结点存储在物理位置【】的存储单元中。
设有下列二叉树:对此二叉树中序遍历的结果为
设x=4,y=8,z=7,表达式x>zOrz<X的值是()。
用二维表来表示实体及实体之间联系的数据模型称为______。
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文本框,名称分别为Textl、Text2;一个命令按钮,名称为Cl,标题为“确定”;请画两个单选按钮,名称分别为Opl、Op2,标题分别为“男生”、“女生”;再画两个复选框,名称分别为Ch
随机试题
下列哪一项不是直接由前列腺炎引起的?
患儿王某,4岁。在玩耍时将一小跳棋子含在口中,由于误吸而卡于喉部,导致严重窒息。其父亲急速将其送到邻街张某开设的中医诊所就诊。张某见状,即刻用桌上的一把水果刀将王某的气管切开。并用手伸拉切口将棋子捅出。王某的生命虽得救,但导致伤口感染。经抗炎治疗后,伤口愈
建设单位未依法报批建设项目环境影响评价文件,擅自开工建设的,由有权审批该项目环境影响评价文件的环境保护行政主管部门责令停止建设,限期补办手续;逾期不补办手续的,可以处()的罚款。
某乡镇企业未按照规定保管会计资料,致使会计资料毁损、灭失,造成十分严重的后果。该企业所在地的县政府财政部门在责令限期改正的同时,对负有直接责任的会计主管人员方某处以3万元罚款;乡政府认为方某的行为已经表明其不再适合担任会计工作,还吊销了其会计从业资格证书
某饮料生产企业甲为增值税一般纳税人,适用企业所得税税率25%。2019年度实现营业收入80000万元,自行核算的2019年度会计利润为5600万元,2020年5月经聘请的会计师事务所审核后,发现如下事项:(1)2月份收到市政府支持产业发展拨付
昌化鸡血石雕,被誉为“印石之王”,是文人雅士追求的艺术珍品。()
在汉字的形体演变过程中,位于小篆和楷书之间的字体是()。
你作为某办公室工作人员,因为人少事多,需要你经常加班加点,而你的领导还经常给你加更多的任务,你无法忍耐。如何处理与领导的关系,并且不影响工作?
某计算机是一台补码运算的机器。下述概念正确的是()。
A.swallowB.allowC.omittedD.forcedE.urgentlyF.cookedG.refusesH.likelyI.adequatelyJ.hurriedlyK.attrac
最新回复
(
0
)