首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
admin
2015-06-30
87
问题
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Click事件过程。程序运行后,如果选择“添加项目”单选按钮,然后单击窗体,则从键盘上输入要添加的项目内容(内容任意,不少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后单击窗体,则从键盘上输入要删除的项目内容,将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向4个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表3.107。 [*] 步骤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 ? ’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 Next j Next i End Sub Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4 arr2(i) = CInt(arr1(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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Q8Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:PrivateSubCommandl_Click()m
以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和,请补充完该程序。DimnAsIntegerDimiAsIntegerDimjAsLongDimsAsLongn
单击命令按钮时,下列程序代码的执行结果为______。PrivateFunctionFirProc(xAsInteger,yAsInteger,zAsInteger)FirProc=2*x+y+3*z
以下程序输出的结果为______。x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx
对于顺序存储的队列,存储空间大小为n,头指针为F,尾指针为R。若在逻辑上看成一个环,则队列中元素的个数为______。
下列程序段的执行结果为______。DimA(4)N=3A(1)=1ForK=0ToN-1ForL=1ToK+1X=K+2-LA(X)
以下程序段的输出结果是【】。a=0:b=0Doa=a+lb=b+aPrintb;ifb>=10ThenExitDoLoop
数据库保护分为:安全性控制、【】、并发性控制和数据的恢复。
有下列二叉树,对此二叉树前序遍历的结果为()。
下列程序段在窗体上输出______,在立即窗口中输出______。S1="software"S2="hardware"S3="computer"PrintRight(S1,3)Picturel.PrintMid(
随机试题
足月新生儿,生后3天,因胎膜早破26小时剖宫产娩出,出生体重2400g,出生无窒息。生后2天吃奶差,呕吐,面色发绀,皮肤、巩膜黄染。查体:体温不升,反应差,前囟平,心率150次/分,双肺无明显异常,腹部稍胀,肝肋下3em,四肢肌张力低。白细胞21×109
_______通过研究,将人的需要按其出现的先后顺序及强弱分为高低不同的七个层次。
对于气源为城市高、中压输配管道的压缩加气站来说,其进站天然气管道上应设置的阀门为()。
在专家判断法中,“5C"要素分析法的5C是指()
银行从业人员的下列行为中,属于“反洗钱”规定的有()。
L公司是一家知名广告设计公司,每年都为广告设计专业的应届毕业生提供实习机会。这些毕业生在实习期间会参与不同的产品设计团队的工作,了解不同产品的广告设计流程,并承担一些基础性的工作。实习期结束后,各团队的管理者会给这些学生按照不同的项目进行评分,邀请其中的优
有如下程序:#includeusingnamespacestd;intmain(){intf,fl=0,12=1;for(inti=3;i<=6;i++){f=f1+t2:
Itoldthedriverthathehadknockedtwopeople______theirbicyclesandhadnearlycausedahadaccident.
"Youareveryselfish.It’shightimeyouwillrealizethatyouarenotthemostimportantpersonintheworld,"Edgarsaidtoh
DearDigitalDiary—LifeloggingintheInternetAgeFromsleepingandeatingtoexerciseandtravel,technologynowallowsus
最新回复
(
0
)