首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是,当单击“选择课程”按钮时,如果在List1列表框中没有选中任何列表项,则程序跳出当前过程;如果在Liist1列表框中有一至多个列表项被
(1)考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是,当单击“选择课程”按钮时,如果在List1列表框中没有选中任何列表项,则程序跳出当前过程;如果在Liist1列表框中有一至多个列表项被
admin
2019-05-21
47
问题
(1)考生文件夹下有工程文件sjt3.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是,当单击“选择课程”按钮时,如果在List1列表框中没有选中任何列表项,则程序跳出当前过程;如果在Liist1列表框中有一至多个列表项被选中时,则依次分别将其加入到右侧的List2列表框中,并同时从Ljst1中删除。下图所示的是某次操作结果的示意图。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
(2)考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1一100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框Text3中输入一个数据,按下回车键后,程序开始在数组a中查找该数据是否存在,如果不存在,则出现消息对话框显示“未找到该数据”;如果存在,则将该数据从数组a中删除(删除的方法是将该数据所在元素的后面所有元素依次前移一个位置),删除结束后,将数组元素的个数减l,最终将删除后的结果显示到文本框Text2中,并将文本框Text3设置为不可用。
单击“重新开始”按钮,则调用Start过程重新对数组a以及各控件的内容进行初始化,并形成新的一组数据序列,用户可以重复以上相关操作。
程序的运行结果示意图如下图所示。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画线部分是需要填入的内容) Private Sub Command1_Click() Dim i As Integer If List1.SelCount=0 Then
Exit Sub
End If i=0 Do While i<=
List1.ListCount-1
If List1.Selected(i)=True Then List2.Addhem(
List1.List(i)
) List1.Removehem(i) Else i=i+1 End If Loop End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画线部分是需要填入的内容) Option Base 1 Const N As Integer=10
Dim a() As Integer
Private Sub Start() Dim i As Integer ReDim a(N)As Integer Text1.Text="" Text2.Text=”” Text3.Text="" Text3.Enabled=True Randomize For i=1 To N a(i)=Int(Rnd*100+1) Text1.Text=Text1.Text&a(i)&"" Next i End Sub Private Sub Form_Load() Call Start End Sub Private Sub Commandl_Click() Call Start End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) Dim m As Integer Dim i As Integer,j As Integer m=val(
Text3.Text
) If KeyAscii=13 Then For i=1 To N If a(i)=m Then
Exit For
End If Next i If i=N+1 Then MsgBox("未找到该数据") Else For j=i+1 To N
a(j-1)
=a(j) Next j ReDim
Preserve
(N一1) For j=1 To N—1 Text2.Text=Text2.Text&a(j)&"" Next j Text3.Enabled=FalBe End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)SelCount属性用于统计List1列表框中共有几个列表项被选中。例如,List1.SelCount=2表示有两个被选中的列表项,List1.SelCount=0表示未有列表项被选中。List是一个一维数组,数组中的值就是在执行时看到的列表项。设计时可以在属性窗口中通过List属性建立列表项,运行时对List数组从0到ListCount-1依次取值,可以获得所有项。Selected属性是一个与List数组中的各个元素相对应的一维数组,记录List数组中每个项目是否被选中。例如,List(1)被选中,则Selected(1)=True,否则Selected(1)=False。通过对Selected属性返回值的判断,得知列表项是否被选中,从而进行添加操作。
(2)本题主要考查对数组运用的熟练程度。数组一定要事先定义才能使用,Start过程是对数组的初始化,把随机生成的数据存入数组a中。文本框传入的数据都是字符型,使用时需要转化成相对应的类型。Text3_KeyPress过程利用for循环判断Text3中的数据是否在数组a中,若存在,退出for循环,然后把i+1以及后面的数依次向前移一个位置,最后数组长度减1;若不存在,则弹出“未找到该数据”消息框。重新分配动态数组时,数组的内容将被清除,但如果ReDim中使用了Preserve选择项,则不清除数组内容。
转载请注明原文地址:https://kaotiyun.com/show/YHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
循环队列的存储空间为Q(1:50),初始状态为front=rear=50。经过一系列正常的人队与退队操作后,front=rear=25,此后又正常地插入了一个元素,则循环队列中的元素个数为()。
在名称为Form1的窗体上添加一个名称为Image1的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。要求:
已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车
在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控件
在名称为Form1的窗体上添加一个名称为Command1的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①设置适当属性,使对话框的标题为“打开文件”;
以下不能设置Picture属性的控件是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=13a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintc;sign=-signNe
在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框(.Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框
随机试题
试回答GB/T16311—2009中标线检测抽样方法的相关问题。新施划路面标线初始逆反射亮度系数的取样应执行《新划路面标线初始逆反射亮度系数及测试方法》()。
在分析和设计衰耗器时,使用衰减常数不方便,通常是用()。
电缆火灾扑救对策()
累计凭证是在一定期间内根据多张相同的原始凭证累计而成。()
以下各项中,()是报关企业注册登记许可条件中对注册资本和报关员数量的要求。
某市化妆品生产企业为增值税一般纳税人,于2019年4月成立,适用企业所得税税率为25%。2019年4—12月生产经营情况如下:(1)当年销售高档化妆品给商场,开具增值税专用发票,取得不含税销售收入6500万元,对应的销售成本为2240万元。(2)将
学校和教育机构的权利不包括()。
最低工资立法是各国管制劳动力市场的通行做法。一些经济学家认为,这种做法会提高失业率,而另一些经济学家则指出,这种做法不仅不会提高失业率,反而能够带来工资水平和就业水平的双重上升。请根据你所学的微观经济学理论和模型,讨论以下几个问题:(2013年中国人民大学
请建立一个邮件合并文档。要求:第一行输入“实习证明”,居中对齐。第二行输入“李洋同学”,左对齐;其他内容从剪贴板中粘贴,输入后将文件保存为“实习证明”。
在Excel成绩单工作表中包含了20个同学成绩,C列为成绩值,第一行为标题行,在不改变行列顺序的情况下,在D列统计成绩排名,最优的操作方法是()。
最新回复
(
0
)