首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
admin
2019-03-14
39
问题
(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全国计算机二级
相关试题推荐
为了在窗体上画一个文件列表框,应先在工具箱窗口中选中的图标是
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Line2。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
在软件开发中,需求分析阶段产生的主要文档是( )。
下列关于线性链表的叙述中,正确的是( )。
关于随机文件,以下叙述中错误的是( )。
有下面程序代码:PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a,"T")PrintIIf(n=0,"未找到",
以下能够设置控件焦点的方法是
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)
随机试题
下列奖项与其表彰对象对应关系错误的是()。
突触前抑制的结构基础是()
下颌开口型正常的是
患者,女,30岁。怀孕6个月。因车祸腹部受重力相撞,该孕妇突然持续性腹痛,有少量阴道流血,腹部检查子宫硬如板状,有压痛,子宫底位于脐与剑突之间。子宫处于紧张状态,首先考虑
施工企业成本管理的常用方法有()。
材料:某教师正在进行八年级上册第三课《与友同行》的教学,该教学内容主要是引导学生学会与同学朋友的交往。课堂上,教师先进行了一个“写一写”的教学环节:每个学生发了一张课前准备好的桃形“爱心卡”,告诉学生如果你曾经得到过本班学生的关心和帮助,请在卡片上写一句表
一位清洁工人坐拥千万房产,却仍坚持从事清洁工作。并且教育子女自食其力。你对这种现象有什么看法?
阅读下列文字回答问题:1978年,我国国内生产总值(GDP)只有1473亿美元,到了2007年我国国内生产总值(GDP)达到32801亿美元,2000年,我国GDP超过意大利,位于世界第六位,占美国国内生产总值GDP的12.3%,占日本国内生产总
设f(x,y)在(0,0)处连续,且=4,则().
每个人一生中都该有个志向,否则他的精力便会浪费掉。每个青年人都力求成为一个有成就的人物。【T1】一个青年人只期望富有或只专心于求得权力与名望是不明智的。(nor;indulgein)一个青年人希望做个有成就者,结果常常会实现。狄斯拉里(Disr
最新回复
(
0
)