首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够
(1)考生文件夹中有工程文件sjt3.vbp。窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够
admin
2016-09-06
30
问题
(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 Integer,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=-l 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.Text="" Randomi ze 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 Integer,m As Integer,index As Integer Dim t As Integer Dim f As Integer 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 If Next i t=Data(f) Data(f)=Data(index) Data(index)=t End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/DZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要对文本框中已有的内容进行编辑,按下键盘上的按键,但不起作用,原因是设置了______。
设有数组定义语句:Dima(5)AsInteger,List1为列表框控件。下列给数组元素赋值的语句错误的是
数据结构分为逻辑结构和存储结构,线性链表属于______。
需求分析的最终结果是产生______。
按“先进后出”原则组织数据的数据结构是______。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()
组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和______。在这3种不同类型的组合框中,只能选择而不能输入数据的是_____。
执行以下程序段后,变量C$的值为()。A$="VisualBasicPrograming"B$="Quick"C$=B$&Ucase(Mid$(A$,7,6))&Right$(A$,11)
关于MDI窗体下列说法正确的是()。
在面向对象方法中,对象之间进行通信的构造称为______________。
随机试题
场景某城市道路全长20km,路面面层为三层式沥青混凝土结构。施工企业为公路交通大型企业专业施工队伍,设施精良。为保证工程施工质量,防止沥青路面施工中沥青混合料摊铺时发生离析或沥青混凝土路面压实度、平整度及接缝达不到要求,施工单位在施工准备、沥青混合料的拌
1953年9月,毛泽东在对民主党派和丁商界部分代表讲话时指出:改造资本主义工商业和逐步完成社会主义过渡的必经之路是()。
赵某因故意杀人罪被判处无期徒刑,剥夺政治权利终身。在服刑期间,他仍可享有下列哪些权利?()
西周时期全面负责中央司法事务的是()。
设f(u)为连续函数,且∫0χtf(2χ-t)dt=ln(1+χ2),f(1)=1,则∫12f(χ)dχ=_______.
Goinghungryisamajorcontributortoillhealth,particularlyamongchildren,andanewreportrevealshowlong-lastingtheda
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click()Dims1AsString.a2AsStringOpen"c:\d4.
A、Becauseitisspelleddifferentlyfrom"dinner".B、Becausethefirstdinerwasnotarealdiner.C、Becausedinerwasanewwor
Statinsareaclassofdrugsthatworktodecreasethelevelofcholesterolintheblood.Theyareabletoperformthisfunction
Extensivenewstudiessuggestthattheworldhasmadeextraordinaryprogressinreducingpovertyinrecentdecades.Theresearch
最新回复
(
0
)