首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
admin
2018-06-29
40
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向显示,如图(b)所示。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。其功能是:
1)单击“产生数据”按钮,产生10个随机整数,并显示在Picturel图片框的第1行;
2)在Text1文本框中输入要清0的第1个数的位置,在Text2文本框中输入要清0的个数,然后单击“清0”按钮,则把清0后的数据显示在图片框的下一行。如图所示。
其他约束:
a)若输入的第1个数位置大于10,则认为从第10个数开始;
b)若不输入第1个数位置,则认为从第1个数开始;
c)若不输入清0个数,则认为一直清0到最后一个数;
d)若输入的清0个数超出了最后1个数,则清0到最后一个数为止。
在窗体文件中已经给出了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤l:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim k%,s$ For k=1 To f List1.ListCount—1) 2 s$=List1.List(k) List1.List(k)=List1.List(List1.List Count-k) List1.Listf List1.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/gdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有下面的语句:PrintIIf(x>0,1,IIf(X
对于循环队列,下列叙述中正确的是()。
(1)在名称为Forml的窗体上添加一个名称为Commamll的命令按钮数组,含1个命令按钮,它们的标题依次为“是”、“否”、“取消”,IndeX属性分别为0、1、2,每个按钮的高、宽均为,300、800。窗体的标题为“按钮窗口”。运行后的窗体如图所示。
窗体上有Commandl、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommandl_Click()m=Input
以下关于菜单的叙述中,错误的是()。
下列操作中不能向工程添加窗体的是
以下关系表达式中,其值为True的是
产生100以内(不含100)2位随机整数的VisualBasic表达式是
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
窗体上有一个名称为VScrol11的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScrol11.Value的值等于
随机试题
简述流行性脑脊髓膜炎普通型的临床表现。
影响尿路感染的因素有哪些?
患者男性,20岁,阵发性晨间咳嗽、憋气1周就诊,检查两肺呼吸音清。询问病史:患者4个月前曾有上呼吸道感染。为确定诊断,下列哪项检查最有价值
男性,54岁,骨病变活检镜下见皮质骨表现为层板骨纹理结构粗糙,部分骨细胞消失,骨陷窝空虚,并可见微裂;骨髓小动脉内膜、内弹力层消失,肌层纤维化,外膜增厚。病理诊断应为
某医师随机抽取正常大白鼠13只,由测得的内毒素x(μg/ml)与24小时肌酐清除率y(ml/分)的数据算出∑x=1.32∑x2=0.15∑xy=189.19∑y=1728.03∑y2=244464.11,则有
再生障碍性贫血引起贫血最主要的原因是()
行政立法的立法性质主要表现在()。
下列属于极端状态的市场有()。
2005年7月1日是星期五,那么2008年7月1日是星期几?
施测某标准化测验获得原始分数均值为80,标准差为16;导出分数均值为50,标准差为10。某被试参加测试所得导出分数为70,那么它的原始分数是
最新回复
(
0
)