首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够
(1)考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够
admin
2016-08-24
34
问题
(1)考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够用编辑好的内容替换被选中的列表项,并自动清空文本框;当双击某个列表项时,则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后,则把该文本添加为列表框的一个新列表项,添加完成后,将文本框清空。运行窗体如图所示。
要求:程序已经给出,但不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。
(2)考生文件夹中有一个工程文件sjt4.vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是,当程序运行时,单击“运算”按钮,能够产生10个1~100之间的随机整数,并显示在上面一个文本框中,然后,程序从中找出一个最大值,并将最大值与第1个数互换位置,最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出,但不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
(1)步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 private Sub List1_Click () Text1.Text=List1.Text End Sub Private Sub List1 DblClick() List1.RemoveItem List1.ListIndex Text1.Text="" End Sub PriVate Sub Text1_KeyDown(KeyCode As Inte cter,Shift As Integer) If KeyCode=13 And Text1.Text<>""Then If List1.ListIndex=一1 Then List1.AddItem Text1.Text Else List1.List(List1.ListIndex)= Text1.Text List1.ListIndex= 一1 End If Text1.Text="" End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘 (2)步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) PriVate Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Text1.Taxt="" Randomsize For i =1 To 10 a(i)=Int(Rnd*100+1) Text1.Text=Text1.Text&a(i)&"" Next i Call Exchange(a) Text2.Text="" For i=1 To 10 Text2.Text=Text2.Text&a(i)&"" Next i End Sub PriVate Sub Exchange(ByRef Data()As Integer) Dim i As Ingeger,m As Integer,index As Integer Dim t As Inteqer Dim f As Inteqer f=LBound(Data) index=LBound(Data) m=Data(index). For i=f+1 To UBound(Data) If Data(i) >m Then m=Data(i) index=i End It Next i t=Data(f) Data(f) =Data(index) Data(index)=t End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题主要考查对列表框控件的使用,包括向列表框中增加项目,从列表框中删除项目,修改列表框中选中项目的值。
第一个空使用列表框的Text属性,该属性的值为最后一次选中的表项的文本。
第二个空使用列表框的List1ndex属性,该属性的值是已选中的表项的位置。
第三个空判断Text1文本框中的内容是否为空。
第四个空表示当列表框中无选中项目时,将Text1中的内容添加到列表框的最后。
第五个空表示将。Text1文本框中的文本替换为列表框中选中的项目,使用列表框的List和ListIndex属性。
(2)本题主要考核对数组中元素的基本操作,利用循环语句找出数组中的最大值,并将保存最大值和其所对应的下标,然后将最大值与数组中的第一个元素进行互换操作。
转载请注明原文地址:https://kaotiyun.com/show/1YLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
对变量名说法不正确的是()。
以下关于过程及过程参数的描述中,错误的是()。
For-Next循环是一种______确定的循环。
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
设s="中华人民共和国",表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为()。
可以用InputBox函数产生“输入对话框”。若执行下列语句st$=InputBox("请输入字符串","字符串对话框","字符串")当用户输入完毕,按“确定”按钮后,st$变量的内容是()。
随机试题
栝蒌薤白白酒汤所治疗的病证是
患者,女,32岁,近日咽喉肿痛,合并乳房胀痛,舌苔黄,脉数,医生诊断后,处方蒲公英等药物。此药物的特点为()。
2009年8月18日,我国宣布正式启动和部署国家基本药物制度工作。中药饮片纳入了基本药物目录,保留了中药的传统特色。在中药饮片的使用中,医生在治疗的过程中形成相对固定的院内制剂。院内制剂经过开发,有的可能会成为一种自主创新的新药,出台基本药物目录制度。希望
根据《标准施工招标文件》中的通用合同条款,在合同履行过程中,没有()的变更指示,承包人不得擅自变更。
信息化指的是()的开发和利用,以及信息技术的开发和应用。
甲、乙因工程款纠纷引起诉讼,在案件审理过程中,甲对乙提交的工程造价鉴定结论有异议,申请重新鉴定。根据有关规定,法院在()的情况下,予以重新鉴定。
下列相关公式,计算正确的是()。
2015年1-3月,国有企业营业总收入103155.5亿元,同比下降6%。其中,中央企业收入63191.3亿元,同比下降7%。地方国有企业收入39964.2亿元,同比下降4.2%。1-3月,国有企业营业总成本100345.5亿元,同比下降5.1%
Howmuchwillthemanhavetopayifhebuystwopens.’?
Shewastheonlyoneofthefewgirlswho______passedtheexamination.
最新回复
(
0
)