首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
admin
2018-12-20
19
问题
(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.Addltem? End If IfOption2.Value=True Then Text1.Text=InputBox("请输入要删除的项目") ’For i=0 To 7 ’If List1.List(i)=?Then ’List1.RemoveItem? 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=?(a) ’Finish=?(a) ’For 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 Nextj Next i End Sub Private Sub Command1_Click() Dim arr1 Dim art2(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=art2(2) Text3.Text=art2(3) Text4.Text=arr2(4) End Sub 程序结束 参考答案 第1个?处填入:LBound 第2个?处填入:UBound 第3个?处填入:4 第4个?处填入:3 第5个?处填入:< 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)向列表框添加项目使用Addhem方法,删除列表项使用RemoveItem方法。在“删除项目”单击事件中,For循环语句中逐一判断列表中各项是否与输入内容一致,若一致则删除列表框中该项。
(2)Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界),LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中,源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。
转载请注明原文地址:https://kaotiyun.com/show/WAFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
若要使文本框能够输入多行文本,应该设置的属性是( )。
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger,chAsString ch=U
要使标签中的文本靠右显示,应将其Aligment属性设置为
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
在数据库设计中,将E-R图转换成关系数据模型的过程属于( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
以下打开VisualBasic菜单编辑器的操作中,错误的是( )。
某二叉树的中序序列为DCBAEFG,后序序列为DCBGFEA,则该二叉树的深度(根结点在第1层)为
在面向对象的程序设计中,可被对象识别的动作称为
随机试题
应用最普遍、效果最可靠的灭菌方法是
患者男,45岁,干部。因“急起疑人害,言语零乱3周”入院。入院体格检查以及生化检查均正常。既往体健。该患者考虑的诊断可能是A.急性短暂性精神病B.分裂样精神病C.偏执性精神障碍D.旅途性精神病E.急性应激障碍
我国2001年1月1日起实施的关于工程招投标的法律的名称是()。
广告费是属于企业在生产经营过程中发生的管理费用。()
某企业本月在向职工支付工资的同时,从应付职工薪酬中扣还为职工代垫的医药费5000元,该公司对此有关的会计处理应该是()。
P公司2007年的员工流失率为14%,2008年的员工流失率为12%,这两年的公司人力资源部都进行了员工满意度调查,发现连续两年员工对公司薪酬的满意度都比较低,公司在2009年将全体员工的基本薪酬提高了15%,当年员工的流失率下降为6%。(1)该公
辩论是指双方都用一定理由的证据指出对方见解的矛盾错误,并论证自己对事物问题的看法的正确。下列选项中,符合定义的构成要件的是()。
美西战争
霍妮十分重视焦虑对神经症的作用,把焦虑看作神经症的动力根源,焦虑分为()
A.条件(1)充分,但条件(2)不充分B.条件(2)充分,但条件(1)不充分C.条件(1)和条件(2)单独都不充分,但条件(1)和条件(2)联合起来充分D.条件(1)充分,条件(2)也充分E.条件(1)和条件(2)单独都不充分,条件(1)和条件(2
最新回复
(
0
)