首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
admin
2017-07-28
41
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Click事件过程。程序运行后,如果选择“添加项目”单选按钮,然后单击窗体,则从键盘上输入要添加的项目内容(内容任意,不少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后单击窗体,则从键盘上输入要删除的项目内容,将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.Vbp(相应的窗体文件名为Sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表1。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Click() If Option1.Value=True Then Text1.Text=InputBox("请输入要添加的项目") ’List1.AddItem? End If If Option2.Value=True Then Text1.Text=InputBox("请输入要删除的项目") ’For i=0 To 7 ’If List1.List(i)=?Then ’List1.Removehem? End If Next i End If End Sub 程序结束 参考答案 第1个?处填入:Text1 第2个?处填入:List1.ListCount一1 第3个?处填入:Text1.Text 第4个?处填入:i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Sort(a()As Integer) Dim Start As Integer.Finish As Integer Dim i As Integer,j As Integer,t As Integer ’Start=?(n) ’Finish=?(a) Tor i=?To 2 Step一1 ’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 j Next i End Sub Private Sub Command1_Click() Dim arr1 Dim arr2(4)As Integer arrl=Array(Val(Text1.Text),Val(Text2.Text),Val (Text3.Text),val(Text4.Text)) For i=1 To 4 arr2(i)=CInt(arrl(i)) Next i Sort arr2() Text1.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:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)向列表框添加项目使用AddItem方法,删除列表项使用Removehem方法。在“删除项目”单击事件中,For循环语句中逐一判断列表中各项是否与输入内容一致,若一致则删除列表框中该项。
(2)Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界),LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中,源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。
转载请注明原文地址:https://kaotiyun.com/show/ZRGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程:PrivateCommand1_Click()CommonDialogl.FileName=""C
在运行程序时,在程序代码中改变文本框的Text属性值,或在文本框中输入新的内容,相应会触发()事件。
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码:PrivateSubCommand1_Click()Text1.Text="AB"EndS
为了在按下Esc键时执行某个命令按钮的Click事件过过程,需要把该命令按钮的一个属性设置为True,这个属性是
在窗体中添加一个命令按钮,编写如下程序:PrivateSubTest(p,m,n)p=p+1:m=m+1:n=n+1Print"Sub:";p;m;nEndSubPrivateSubCo
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请选择正确的程序段是(),将程序补充完整。PrivateTypeAngKAsInteg
设有如下记录类型:TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据
下列程序功能为:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请在程序空白处填入适当内容使程序完整。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?",vblnfo
随机试题
某公司销售部门主管大华拟对本公司产品前两季度的销售情况进行统计,按下述要求帮助大华完成统计工作:根据“产品销售汇总表”中的数据,在一个名为“透视分析”的新工作表中创建数据透视表,统计每个产品类别的一、二季度销售及总销售额,透视表自A3单元格开始、并按一
法定增值额和理论增值额出现不一致,主要是因为对如下哪种价款的处理方式不同()
男性,34岁,突发右肾区刀割样疼痛2小时,疼痛窜及右下腹,不可忍受,辗转反侧,呻吟不止,伴恶心、未呕吐。查体:右下腹部深压痛。尿常规检查:RBC:3~8个/HP,余(-),首选应该进行
下列对体位的描述,错误的是
A.诸气B.营气C.元气D.宗气E.清气三焦的功能是主持
王某持有甲有限责任公司10%的股权,该公司未设立董事会和监事会。王某发现公司执行董事张某(持有该公司90%股权)将公司产品低价出售给其妻子开办的公司,遂书面向公司监事李某反映。李某出于私情未予过问。王某采取的下列行为中,可以有效保护公司和自己的合法利益的是
()是指人们在房地产估价的反复实践和理论探索中,在对房地产价格形成和运动的客观规律认识的基础上,总结出的一些简明扼要的,在估价活动中应遵循的法规或标准。
因同一控制下企业合并增加的子公司,在编制合并利润表时,应当将该子公司合并日至报告期期末的收入、费用、利润纳入合并利润表。()
位于都江堰鱼嘴之上,被誉为“中国古代五大桥梁”的是()。
社会保障作为一种国民收入再分配形式,是通过一定的制度实现的。关于社会保障,下列说法正确的是:
最新回复
(
0
)