首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
admin
2017-09-20
51
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向显示,如图(b)所示。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。其功能是:
1)单击“产生数据”按钮,产生10个随机整数,并显示在Picture1图片框的第1行;
2)在Text1文本框中输入要清0的第1个数的位置,在Text2文本框中输入要清0的个数,然后单击“清0”按钮,则把清0后的数据显示在图片框的下一行。如图所示。
其他约束:
a)若输入的第1个数位置大于10,则认为从第10个数开始;
b)若不输入第1个数位置,则认为从第1个数开始;
c)若不输入清0个数,则认为一直清0到最后一个数;
d)若输入的清0个数超出了最后1个数,则清0到最后一个数为止。
在窗体文件中已经给出了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1) 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Command1_Click() Dim k%.s$ For k=1 To(Listl.ListCount一1) 2 s$=List1.List(k) List1.List(k)=List1.List(List1.ListCount-k) List1.List(List1.ListCount—k)=s Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Option Base 1 Dim a(10)As Integer Private Sub Commandl_Click() Randomize For k=1 To 10 a(k)=Int(Rnd*99)+1 Picture1.Print a(k); Next k Picture1.Print End Sub Private Sub Command2_Click() Dim start As Integer,n As Integer start=Val(Text1.Text) If start=0 Then start=1 End If If start>10 Then start=10 End If If Text2.Text=””Then n=10一start+1 Else n=Val(Text2.Text) End If If start+n>11 Then n=10一start+1 End If For k=start To start+n-1 a(k)=0 Next k For k=1 To 10 Picture1.Print a(k); Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/3kGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列数组声明正确的是()。
在程序的空白行处填写适当的语句,完成以下功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。DoWhileList2.ListCount________
为了在窗体上建立2组单选按钮,并且当程序运行时,每组都可以有一个单选按钮被选中,则以下做法中正确的是
在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand1_cickc() a=InputBox("enterthefirstinteger") b=InputBox("enterthesecon
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
为了使命令按钮(名称为Command1)右移200,应使用的语句是
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对______的______属性进行设置。
随机试题
真理具有客观性,被称为客观真理,是因为()
一般可以认为,“药物滥用”与“吸毒”没有本质上的区别。()
1984年4月8日,中国用“长征3”号运载火箭发射了第一颗自行研制的地球静止轨道通信卫星,卫星被命名为“东方红-2号”。()
优先购买权的行使如果没有约定时,可以按照以下情形确定:()。
甲公司为增值税一般纳税企业。2007年3月份发生下列销售业务:(1)6日,向A公司销售商品10件,每件商品的标价为80万元,每件商品的成本为50万元。为了鼓励多购商品,甲公司同意给予A公司10%的商业折扣。开出的增值税专用发票上注明的售价总额为72
邓小平理论是当代中国的马克思主义,对中国特色社会主义建设具有重要的指导意义、具体表现在()。
2008,2006,2003,1998,1991,1980,()
ThechangeofWeatherMadealotofpeoplesick.TheoldManthoughttheIndianWasthedoctor.
PleaserouteallemploymentapplicationstotheHumanResourcesforscreeningbefore______interviews.Tocentralizetheprocess
Wemightmarvelattheprogressmadeineveryfieldofstudy,butthemethodsoftestingaperson’sknowledgeandabilityremain
最新回复
(
0
)