首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为()ptionl和0ption2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的cli
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为()ptionl和0ption2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的cli
admin
2013-11-29
42
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为()ptionl和0ption2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的click事件过程。程序运行后,如果选择“添加项目”单选按钮,然后单击窗体,则从键盘上输入要添加的项目内容(内容任意,不少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后单击窗体,则从键盘上输入要删除的项目内容,将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为Sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.fm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图l所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现不述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
(1)向列表框添加项目使用 Addhem办法,删除列表项使用RemoveItem方法。在“删除项目”单击事件中,For循环语句中逐一判断列表中各项是否与输入内容致,若一致则删除列表框中该项。 步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表1。[*] 步骤2:分析并编写程序代码。 程序提供代码 Privale Sub Fore,_Click() If Optionl.Value=True Then Textl.Text=lnputBox(“请输入要添加的项目”) ‘Listl.Addhem? End lf If Option2.Value=True Then Textl.Text=InputBox(“请输入要删除的项目”) ‘For i=0 To? ‘If Listl.List(i)=?Then ‘Listl.Removeltem? End If Next i End If End Sub 程序结束 第1个?处填入:Textl 第2个?处填入:Listl.ListCount_l 第3个?处填入:Textl.Text 第4个?处填入:i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为l元素的数组。UBound函数用于返回数组某一维的最大下标(上界),LBound函数用于返回数组某一维的最小下标(下界)。存本题Sort过程中,源程序利川一个嵌套的For循环对数组a中的元素按从大到小进行排序。 步骤l:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base l Private Sub Sort(a()As Integer) Dim Start As Integer,Finish As Integer Dim i As Integer,j As Integer,t As Integer ‘Start=?(a) ‘Finish=?(a) ‘For i=? To 2 Step_l For j=1 To ? ‘If a(j)?a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next i Next i End Sub Private Sub Commandl_Click() Dim arrl Dim arr2(4)As Integer arrl=Array(Val(Textl.Text),Val(Text2.Text),Val (Text3.Text),Val(Text4.Text)) For i=l To 4 arr2(i)=CInt(arrl(i)) Next i Sort arr2() Textl.Text=arr2(1) Text2.Text=arr2(2) Text3.Text=arr2(3) Text4.Text=arr2(4) End Sub 程序结束 第1个?处填入:LBound 第2个?处填入:UBound 第3个?处填入:4 第4个?处填入:3 第5个?处填入:< 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/9B60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序是用来计算1+2+3……+10的程序段,请补充该程序。Dimi,s,kAsIntegers=0:k=0For【】To1k
在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。Forml.______pmenu
以下关于菜单的叙述中,错误的是
在修改列表框内容时,AddItem方法的作用是
在数据结构中,用一组地址连续的存储单元一次存储数据元素的方式是______结构。
度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为______。
通过InputBox函数可以产生输入对话框。若执行下列语句:st$=InputBox("请输入字符串","字符串对话框","字符串")则运行程序,用户输入完毕并单击“确定”按钮后,st$变量的内容为()。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在以下横线处合适的语句是()。PrivateSubForm_Cli
实体是信息世界中广泛使用的一个术语,它用于表示()
随机试题
银行吸收所有存款都必须坚持“存款自愿,取款自由,存款有息,为储户保密”的工作原则。()
A、Tocheckthelaboratoryreport.B、Havingafever.C、Abnormalbloodpressure.D、TohaveanX-ray.Btonsillitis指“扁桃体炎”,对话中还说ther
男性,74岁,右侧腹股沟区可复性肿块8年。查体:病人直立时。在腹股沟内侧端、耻骨结节上外方有一4cm×4cm半球形肿物,未进入阴囊,平卧后自行消失。该病人最有效的治疗方法是
指出下列正确的
甲公司于2014年12月1日出口销售产品一批,价格为100万美元,成本为480万元人民币,合同约定收款日为2015年3月1日。为了减少汇率波动给甲公司带来的风险,销售产品当日甲公司与某银行签订了一项3个月期售出美元的远期合同。根据该远期外汇合同,甲公司将于
下列方法中,()适用于生产周期长、产品结构和工艺加工过程比较复杂的企业。
取得重大成功后的狂喜,惨遭失败后的绝望,这种情绪状态是()。
工业革命之后,大量生产使经济活动大幅扩充;中产阶级形成,人类的生活质量不断地提升。这一切巨变,都是围绕着市场。稍微详细一些来说,工业革命带来量产,而量产使经济活动蓬勃发展。通过市场的交易,买卖双方互蒙其利。在供给面,随着市场规模的扩大,企业家得到可观的利润
PoliceinthepopularresortcityVirginiaBeachrecentlybeganoperatingvideosurveillancecameraswithcontroversialfacerec
IcecreambecamepopularinFranceinthe1500s,butonlyamongroyalty.Overthenextfewcenturies,theprocessofmakingthem
最新回复
(
0
)