首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为()ptionl和0ption2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的cli
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为()ptionl和0ption2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为Listl)和一个文本框(名称为Textl),如图l所示。编写窗体的cli
admin
2013-11-29
35
问题
(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://kaotiyun.com/show/vPQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_click()DimaAsInteger,sAsIntegera=8s=1
执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是______。
在循环体中,可以使程序转让控制权,以便让操作系统处理其他的事件的语句是______。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger,则以下叙述中正确的是
以下关于菜单的叙述中,错误的是
以下叙述中错误的是
用树形结构表示实体之间联系的模型是
下列说法中正确的是为了保存一个VisualBasic应用程序,应当
下面说法中,不正确的是
随机试题
认为目标管理是“一种程序性活动”的是()
某患者,女性,32岁,患甲状腺功能亢进症2年,应用抗甲状腺药物控制良好。因子宫肌瘤入院准备手术切除。护士在做术前教育时发现病人紧张,焦虑,心率达110次/分。术前1日,病人烦躁不安,自觉四肢无力,心慌气短,多汗;护理体检体温39℃,心率>142次/分,心律
若糖尿病患者并见视物昏蒙,耳鸣耳聋,舌红少苔,脉细数。宜选用
采用沉淀滴定法测定MgO,沉淀形式为Mg2NH4PO4,称量形式为Mg2P2O7,则换算因数为( )。
在资产负债表填列过程中,下列各项可以直接按某一个会计科目总账余额填列的是()。
某人对某办公软件解密,并制成光盘销售。他应承担的法律责任是()。
电子政务在实现资源共享的同时,可以从根本上规范政府行为,避免暗箱操作,减少()。
“五位一体”和“四个全面”两大“布局”是党中央适应我国发展新要求,站在时代前沿作出的战略运筹。以下关于两大“布局”内在联系的说法正确的是
设X~F(n,n),且P(|X|<A)=0.3,则=______.(其中A为一常数).
Nexttimeyoufeeltheflucomingon,thinktwicebeforereachingforpainkillers—theycoulddomore【C1】______thangood.Withth
最新回复
(
0
)