二级真题9202.docx
- 文档编号:4014963
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:69
- 大小:230.37KB
二级真题9202.docx
《二级真题9202.docx》由会员分享,可在线阅读,更多相关《二级真题9202.docx(69页珍藏版)》请在冰点文库上搜索。
二级真题9202
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(1999年秋)
二级VisualBasic语言(试卷代号VB01)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】本程序用于求1~10中相邻两数之和是素数的所有自然数对。
(1,2)、(2,3)、(3,4)、(5、6)、(8,9)、(9、10)为符合要求的数对。
OptionExplicit
PrivateSubForm_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Nexti
Fori=1To10
Ifp(a(i)+a(i+1))=TrueThenPrinta(i),a(i+1)
Nexti
EndSub
PrivateFunctionp(xAsInteger)AsBoolean
DimiAsInteger
p=False
Fori=2ToInt(Sqr(x))
IfxModi=0ThenExitFor
Nexti
p=True
EndFunction
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句,但可适当调整语句位置;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,验证输入的三位正整数是否为同构数。
x若出现在自己平方数的末三位,则x是同构数。
如625的平方是390625,则625是同构数。
【编程要求】
1、程序参考界面如图1所示。
编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
2、单击“验证”按钮,验证输入数是否是同构数,根据验证结果给出如图2所示的信息提示。
3、单击“结束”按钮,结束程序运行。
图1图2
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
输入1
x=
验证
Verify
结束
Finish
是同构数
Yes
不是同构数
No
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(1999年秋)
二级VisualBasic语言(试卷代号VB02)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】本程序用于生成二维数组a(4,4),数组元素为三位随机正整数,并对每一列数组元素求和。
PrivateSubForm_Click()
Randomize
Dima(4,4)AsInteger,sAsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a(i,j)=Rnd
Printa(i,j);
Nextj
Nexti
Fori=1To4
s=0
Forj=1To4
s=s+a(i,j)
Nextj
Print"sumof";j;"columnis";s
Nexti
EndSub
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句,但可适当调整语句位置;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,计算数列第n项的值(1≤n≤16)。
【编程要求】
1、程序参考界面如图1所示。
若输入数据不在指定范围中,显示如图2所示的提示信息。
编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
2、单击“计算”按钮,计算数列第n项的值并在文本框显示。
3、单击“结束”按钮,结束程序运行。
图1图2
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
输入n
x=
第n项
An
计算
Calculate
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(1999年秋)
二级VisualBasic语言(试卷代号VB03)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、编程题(40分)
【题目】编写程序求数组a(4,4)副对角线元素的和。
所谓副对角线,是指方阵右上角元素到左下角的连线。
【编程要求】
1、在A盘根目录下建立test.txt文本文件(使用记事本或写字板建文件),其内容如下:
2,7,4,9,3,8,6,11,5,1,10,14,12,16,13,15
2、程序参考界面如图1所示。
初始状态“求和”按钮无效。
编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
3、单击“读取”按钮,从A盘根目录的test.Txt文件中读取数组,将数组元素按图2的格式显示在PictureBox控件中,并激活“求和”按钮。
4、单击“求和”按钮,求数组副对角线元素的和,显示在文本框中。
求和必须用循环结构实现,否则扣分。
5、单击“结束”按钮,结束程序运行。
【要求】以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
数组
Array
副对角线之和
Sum=
读取
Read
求和
Sum
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(1999年秋)
二级VisualBasic语言(试卷代号VB04)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】下面程序的功能是计算:
若通项分母的值≥200,停止计算(正确答案是s=1.409524)。
OptionExplicit
PrivateSubForm_Click()
DimSAsSingle
S=0
I=1
Do
S=S+1/Fun(I)
I=I+1
IfFun(I)>=200ThenExitDo
Loop
Print"s=";S
Print"n=";I
EndSub
PrivateFunctionFun(NAsInteger)AsSingle
DimIAsInteger,pAsInteger
p=1
ForI=1ToN
p=p*(2*N-1)
NextI
Fun=p
EndFunction
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句,但可适当调整语句位置;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,求输入数据的指定函数值。
【编程要求】
1、程序的起始参考界面如图1所示,单选按钮“平方根”的Value属性初始值为True;Label2的Caption属性初始值为“运算结果”。
编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
2、单击“计算”按钮,按选定的运算类型计算函数值并显示在文本框2中,文本框2前的Label2控件的Caption属性也作相应的改变(如图2所示)。
此外计算平方根时若输入的x值小于0,则在文本框2中显示“DataError”。
3、单击“结束”按钮,结束程序运行。
图1图2
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
请输入x
x=
平方根
Sqr
绝对值
Abs
运算类型
Operation
计算
Calculate
清除
Clear
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2000年春)
二级VisualBasic语言(试卷代号VB01)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】本程序用于判断输入的正整数是否为降序数。
设正整数n=d1d2d3…dk,如果满足di≥di+1(i=1,2,…,k-1),则n就是一个降序数。
如4321,10433都是降序数。
程序中的中文可以用英文或汉语拼音替代。
OptionExplicit
PrivateSubForm_Click()
DimnAsInteger
n=InputBox("Inputn:
")
CallConver(n,flg)
Ifflg=TrueThen
Printn;"是降序数"
Else
Printn;"不是降序数"
EndIf
EndSub
PrivateSubConver(nAsInteger,flgAsBoolean)
DimxAsString,iAsInteger
x=Trim(Str(n))
Fori=1ToLen(x)
IfMid(x,i,1)>Mid(x,i+1,1)ThenExitFor
Nexti
Ifi=Len(x)Thenflg=TrueElseflg=False
EndSub
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,根据身高计算标准体重。
计算公式如下:
男标准体重(kg)=身高(cm)-100
女标准体重(kg)=身高(cm)-105
【编程要求】
1、程序的起始参考界面如图1所示,单选按钮“男”的Value属性初始值为True;编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
2、单击“计算”按钮,根据输入的身高和计算公式计算相应性别的标准体重,并显示在文本框中。
3、单击“结束”按钮,结束程序运行。
图1
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
身高
Height
体重
Sqr
男
Man
女
Woman
计算
Calculate
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2000年春)
二级VisualBasic语言(试卷代号VB02)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、编程题(40分)
【题目】编写程序,计算职工的实发工资。
计算工资公式如下:
离、退休人员:
实发工资=基本工资+职称补贴
在职人员:
实发工资=基本工资+职称补贴-税收
税收标准:
(收入-1000)*税率
收入s(基本工资+职称补贴)
税率
0
0
1000≤s≤2000
0.1
2000
0.2
3000以上
0.3
【编程要求】
1、程序参考界面如图1所示,单选按钮“在职人员”的Value属性初始值为True。
编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;截面2中的中文说明可用表1中对应的英文代替。
2、单击“计算”按钮,计算税收、实发工资并显示在相应的文本框中。
3、单击“清除”按钮,清除所有文本框的内容。
4、单击“结束”按钮,结束程序运行。
图1
【要求】以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
基本工资
Base
职称补贴
Technical
税收
Tax
实发工资
Total
人员分类
Class
在职人员
Incumbent
离、退休
Retire
计算
Calculate
清除
Clear
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2000年春)
二级VisualBasic语言(试卷代号VB03)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】数组a有9个元素,本程序按序号依次将(a1,a2,a3),(a2,a3,a4),…,(a9,a1,a2),九组元素分别相加(每组3个元素),生成新数组b,然后找出b数组中的最大元素。
OptionExplicit
OptionBase1
PrivateSubForm_Click()
DimIAsInteger,A(9)AsInteger,B(9)AsInteger
DimKAsInteger,MAsInteger
ForI=1To9
A(I)=I
PrintA(I);
NextI
ForK=3To11
S=0
ForI=0To-2Step-1
M=K+I
IfM>=9ThenM=MMod9
S=S+A(M)
NextI
B(K-2)=S
PrintB(K-2);
NextK
Print"MatrixB'sMax.Elementis:
";Maxv(B)
EndSub
PrivateFunctionMaxv(B()AsInteger)AsInteger
DimIAsInteger
Maxv=B
(1)
ForI=2ToLBound(B)
IfMaxv
NextI
EndFunction
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,按指定要求计算圆周长或圆面积。
【编程要求】
1、程序参考界面如图1所示,单选按钮“圆周长”的Value属性初始值为True;编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置;界面中的中文说明可用表1中对应的英文代替。
2、单击“计算”按钮,若选中“圆周长”单选按钮,则计算圆周长;若选中“圆面积”单选按钮,则计算圆面积,并将计算结果显示在文本框中,文本框前的Label控件也作相应的改变(如图2所示)。
3、单击“结束”按钮,结束程序运行。
图1图2
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
表1
中文
英文
半径
Radius
圆周长
Girth
圆面积
Area
操作
Operation
计算
Calculate
结束
Finish
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2000年秋)
二级VisualBasic语言(试卷代号VB01)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】本程序的功能是用来统计二维数组A(1To4,1To4)中所有元素中0~9十个数字出现的次数,存入数组Timers中并显示在窗体上。
OptionExplicit
PrivateSubForm_Click()
DimA(1To4,1To4)AsInteger,IAsInteger,JAsInteger
DimTimes(9)AsInteger
Randomize
ForI=1To4
ForJ=1To4
A(I,J)=Int(Rnd
(1)*100)+1
PrintFormat(A(I,J),"###"),
NextJ
NextI
CallStat(A,Times)
ForI=1To10
PrintI;"...";Times(I)
NextI
EndSub
PrivateSubStat(A()AsInteger,T()AsInteger)
DimIAsInteger,JAsInteger,CubAsInteger,KAsInteger
DimRubAsInteger,CharAsString
Cub=UBound(A,1):
Rub=UBound(A,2)
ForI=1ToCub
ForJ=1ToRub
Char=LTrim(Str(A(I,J)))
ForK=1To10
T(Mid(Char,K,1))=T(Mid(Char,K,1))+1
NextK
NextJ
NextI
EndSub
【要求】1、新建工程,输入上述代码,改正程序中的错误;
2、改错时,不得增加或删除语句;
3、以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写一个收购小麦与代扣农业税的程序。
【编程要求】
1、程序参考界面如图1所示,其中Label1对象用于显示“小麦的收购价是:
1.10元/公斤”、“农业税额:
55元/亩”等提示信息;编程时不得增加或减少界面对象或改变对象的种类,但界面元素大小、位置可随意设置。
2、实现功能:
(1)单击“计算”按钮,则根据输入的小麦数量以及所拥有的土地亩数,求出应缴税款和应得粮款(应得粮款=小麦总金额-应缴税款),并显示在相应的文本框中;
(2)单击“清除”按钮,清除4个文本框中的内容;
(3)单击“结束”按钮,结束程序运行。
图1
【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目录下。
【注意】考试结束,考试盘中若无指定文件,则不予评分。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2000年秋)
二级VisualBasic语言(试卷代号VB02)
(本试卷完成时间70分钟)
[试卷须知]
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(17分)
【题目】本程序的功能是将一个正整数序列重新排列为一个新的序列。
新序列排列规则是:
序列左边是奇数,序列右边是偶数,奇、偶数分别从序列的两端开始依次向序列中间排放。
例如:
若原序列是31,58,71,5,82,45,54,41,2,
则新序列是31,71,5,45,41,2,54,82,58。
OptionExplicit
OptionBase1
PrivateSubForm_Click()
Dima(10)AsInteger,IAsInteger,JAsInteger
Dimb(10)AsInteger,KAsInteger
Randomize
ForI=1To10
a(I)=Int(Rnd*100)+1
Printa(I);
NextI
J=1:
K=5
ForI=1To10
Ifa(I)Mod2=0Then
b(J)=a(I)
J=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 9202