首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
admin
2019-03-14
42
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向显示,如图(b)所示。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。其功能是:
1)单击“产生数据”按钮,产生10个随机整数,并显示在Picturel图片框的第l行;
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 kCh).s$ For k=1 To(List1.ListCount—1) 2 s$=List1.List(k) List1.List(k)=List1.List(List1.List Count=k) List1.List(Ljstl.ListCount—k)=s Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Option Base 1 Dim a(10)As Integer Private Sub Command1_Click() Randomize For k=1 To 10 a(k)=Int(Rnd*99)+1 Picture1.Print a(k); Next k Picturel.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 Picturel.Print a(k); Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题主要考察列表框控件属性的使用方法,根据题意可知,程序从列表框的第二项开始,将首尾项进行互换,所以循环变量k的初始值应该设置为1,循环体中的三条语句是将列表框的首尾对应项进行互换。
(2)单击Command1命令按钮时,随机产生10个整数放入数组a中,使用图片框控件的Print方法输出数组中的原始数据,单击Command2命令按钮时,使用If语句判断输入起始位置的值和清0的个数,变量start用来来保存起始位置,变量n用来保存清0的个数,再使用For循环根据起始位置清0n个数组元素值,并将结果输出。
转载请注明原文地址:https://kaotiyun.com/show/eKFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有两个关系R和S如下:则由关系R得到关系S的操作是
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
以下不能用Print方法输出数据的对象或窗口是
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
以下关于事件、事件驱动的叙述中,错误的是( )。
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click() DimmAsString m=InputBox("请输入字符串") Printpick_str(m)En
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl.Click()s=0Fori=1To15x=2*i-1If
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
随机试题
①“国家战略”一词,最早出自美国②最近几年,由于国家领导人以及社会各界的倡导,全民阅读问题已经引起广泛的重视③中国学术界对“国家战略”一词尚无统一定义④我国先后提出过知识产权国家战略、能源问题国家战略等,但遗憾的是一直没有把全民阅读作为国家战略⑤其
策略在总统竞选中起关键性的作用。
股骨颈骨折的典型畸形是患肢缩短、外旋。()
A.灶心土B.河砂C.麦麸D.蛤粉E.滑石粉能和中益脾,缓和药物燥性的辅料是
轻取不应,重按始得;举之不足,按之有余,为浮大中空,按之如葱管,应指浮大而软,按之上下或两边实而中间空,为
2010年1月至8月,被告人李宁为营利,先后与他人预谋,采取张贴广告、登报的方式招聘男青年做“公关人员”,并制定了《公关人员管理制度》。李宁指使他人对公关先生进行管理,并在其经营的“金麒麟”、“廊桥”及“正麒”酒吧内将多名“公关先生”多次介绍给男性顾客,由
背景资料某大型水闸工程施工招标文件依据《水利水电工程标准施工招标文件》(2009年版)编制,招标文件规定:1.开标时间为2013年9月21日上午9:00;2.计划工期为12个月;3.工程预付款为签约合同价的10%,分2次平均支付,第1次支付前,承包
下列各项中,( )不属于个人贷款抵押房屋保险的保险标的。
中国共产党在革命根据地进行土地革命时,对待中农采取的态度是:
CapitalControlsandMonetaryPolicyinDevelopingCountriesThispaperlooksatboththetheoreticalandempiricalliteratu
最新回复
(
0
)