完整word版05年春江苏计算机二级VB上机试题及答案.docx
- 文档编号:2809183
- 上传时间:2022-11-15
- 格式:DOCX
- 页数:16
- 大小:72.81KB
完整word版05年春江苏计算机二级VB上机试题及答案.docx
《完整word版05年春江苏计算机二级VB上机试题及答案.docx》由会员分享,可在线阅读,更多相关《完整word版05年春江苏计算机二级VB上机试题及答案.docx(16页珍藏版)》请在冰豆网上搜索。
完整word版05年春江苏计算机二级VB上机试题及答案
江苏2005春二级VisualBasic语言(试卷代号VB01)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】下面程序功能是:
找出100以内满足N+1个连续自然数之和等于其后N个连续自然数之和的序列(例如:
4+5+6=7+8就是满足
要求的序列)。
OptionExplicit
PrivateSubCommand1_Click()
DimIAsInteger,SAsString,FlgAsBoolean
ForI=2To10
CallSub1(I,S,Flg)
Flg=False
IfFlgThen
Text1=Text1&S&vbCrLf
EndIf
NextI
EndSub
PrivateSubSub1(KAsInteger,SAsString,FAsBoolean)
DimIAsInteger,Sum1AsInteger,Sum2AsInteger
DimNAsInteger,StartAsInteger
DoWhileSum1<>Sum2AndN<100
Start=Start+1
N=Start
S=N:
Sum1=N
ForI=1ToK-1
N=N+1
Sum1=Sum1+N
S=S&"+"&N
NextI
S=S&"="&N
N=N+1
Sum2=N
ForI=1ToK-2
N=N+1
Sum2=Sum2+N
S=S&"+"&N
NextI
N=N+1
IfSum1=Sum2Then
F=True
EndIf
Loop
EndSub
【要求】
1.新建工程,输入上述代码,改正程序中的错误;
2.改错时,不得增加或删除语句,但可适当调整语句位置;
3.将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(26分)
【题目】本程序的功能是:
按设定的数据位数N(N=2、3、3、4、5、6),随机生成20个互不相等正整数,按5个一行的形式输出到
文本框中,并从中找出所有降序数输出到列表框。
所谓降序数是指所有高位数字都大于其低位数字的数。
例如973就是一个降序数。
【编程要求】
1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2.在文本框1中输入N值,按“执行”按钮,则开始计算并在文本框2中显示生成的随机数,在列表框中输出其中的降序数;按“清
除”按钮,则将2个文本框及列表框清空,焦点置于文本框1上;按“退出”按钮,结束程序运行;
3.程序中应定义一个用于判断一个N位数是否是降数的通用过程。
【要求】
将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的目录下。
二级VisualBasic语言(试卷代号VB02)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】本程序的功能是对字符串加密。
密钥为一数字串,每个数字表示将首字符右移的位置,例如,若明文字符串为helpme,密
钥中第一个数字4表示将首字符h移到位置4,得到新字符串elphme,再取密钥的下一个数字符串进行上述操作,直到最后一个密钥
数字处理完就得到密文。
若移位超出原文长度,则自动回转(按原文长度取模)。
OptionExplicit
PrivateSubCommand1_Click()
DimIAsString,s2AsString,iAsInteger,keyAsInteger
s1=Text1 //
s2=Text2
Fori=1ToLen(s2)
key=Val(Mid(s2,i,1))
Callencode(s1,key)
Nexti
Text3=s1
EndSub
PrivateSubencode(sAsString,KAsInteger)
DimIAsInteger,tAsString*1,nAsInteger
t=Mid(s,1,1)
n=kModLen(s)
ifn=0Then
k=n
EndIf
Fori=2Tok
Mid(s,i-1,1)=Mid(s,i,1)
Nexti
Mid(s,i,1)=t
EndSub
【要求】
1.新建工程,输入上述代码,改正程序中的错误;
2.改错时,不得增加或删除语句,但可适当调整语句位置;
3.将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(26分)
【题目】本程序的功能是:
首先按给定格式(数据以逗号分隔,-1表示数据结束)将输入到文本框1中的数据依次存入一个数组,然
后为该组数据建立一个按从大到小次序的索引表并显示在文本框2中。
如下土,文本框2中的第一个数据4表示文本框1中4个数最大;
文本框2中的最后一个数据8表示文本框1中第8个数最小。
【编程要求】
1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2.在文本框1中输入测试数据,按“处理”按钮,则按题目要求得到结果并显示在文本框2中;按“清除”按钮,则将2个文本框清
空,将焦点置于文本框1上;按“退出”按钮,结束程序运行;
3.程序中应定义一个根据数组元素的大小从大到小取其排列号的通用过程。
【要求】
将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的目录下。
二级VisualBasic语言(试卷代号VB03)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】下面程序功能是:
求出(K+1)个连续数的平方数,其和等于其后的K个连续数的平方数之和。
OptionExplicit
PrivateSubCommand1_Click()
DimIAsInteger,KAsInteger
DimFlgAsBoolean,SAsString
Do
K=K+1
Flg=False
ForI=3To100
S=I&"^2"
CallSub1(I,K,S,Flg)
IfFlgThen
Text1=Text1&S&vbCrLf
EndIf
NextI
LoopWhileK<6
EndSub
PrivateSubSub1(NAsInteger,KAsInteger,SAsString,FAsBoolean)
DimJAsInteger,Sum1AsInteger,Sum2AsInteger,AAsInteger
Sum1=N^2 //此处插入图片
ForJ=1ToK
N=N+1
Sum1=Sum1+N^2
S=S&"+"&N&"^2"
NextJ
N=N+1
S=S&"="&N&"^2"
Sum2=N^2
ForA=1ToK-1
N=N+1
Sum2=Sum2+N^2
S=S&"+"&N&"^2"
NextA
IfSum1=Sum2Then
F=True
EndIf
EndSub
【要求】
1.新建工程,输入上述代码,改正程序中的错误;
2.改错时,不得增加或删除语句,但可适当调整语句位置;
3.将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(26分)
【题目】在A盘根目录下建立纯英文的文本文件Data.txt。
要求编程用字符串S1替换文件中所有字符子串S,字符串S不区分字母大
小写,S1与S长度不一定相同。
文件Data.Txt的内容如下,其中VB、Vb,vB,vb都要求用VisualBasic替换。
ThisaVBbook
Westudyvb
Vbisveryuseful
HelloVB
运行程序,替换后的结果见界面图。
【编程要求】
1.按“开始”按钮,则开始运行程序,将结果按图示格式显示在文本框中;按“清除”按钮,则将文本框清空;按“结束”按钮结
束程序运行;
2.要求编写一个实现字符串替换的通用过程;
3.不允许使用Instr函数。
【要求】
1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2.将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的目录下。
二级VisualBasic语言(试卷代号VB04)
(本试卷完成时间70分钟)
【考试须知】
1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3.程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】本程序用于验证下列命题:
可被37整除的三位整数,其各位数字循环移位后得到的三位数也可被37整除。
例如148,481,
841都是这样的数(不考虑含有数字0的三位数)。
OptionExplicit
Private
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整 word 05 江苏 计算机 二级 VB 上机 试题 答案