《05年春江苏计算机二级VB上机试题及答案.doc》由会员分享，可在线阅读，更多相关《05年春江苏计算机二级VB上机试题及答案.doc（29页珍藏版）》请在金锄头文库上搜索。
1、江苏2005春二级Visual Basic语言 （试卷代号 VB01）（本试卷完成时间 70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。一、改错题（14分）【题目】下面程序功能是：找出100以内满足N+1个连续自然数之和等于其后N个连续自然数之和的序列（例如：4+5+6=7+8就是满足要求的序列）。Option ExplicitPrivate Sub Command1_Click()Dim I As Integer,S As
2、 String,Flg As BooleanFor I=2 To 10Call Sub1(I,S,Flg)Flg=FalseIf Flg ThenText1=Text1&S&vbCrLfEnd IfNext IEnd SubPrivate Sub Sub1(K As Integer,S As String,F As Boolean)Dim I As Integer,Sum1 As Integer,Sum2 As IntegerDim N As Integer, Start As IntegerDo While Sum1Sum2 And N100Start=Start+1N=StartS=N:S
3、um1=NFor I=1 To K-1N=N+1Sum1=Sum1+NS=S&+&NNext IS=S&=&NN=N+1Sum2=NFor I=1 To K-2N=N+1Sum2=Sum2+NS=S&+&NNext IN=N+1If Sum1=Sum2 ThenF=TrueEnd IfLoopEnd Sub【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】本程序的功能是：按设定的数据位数N（N=2、3、3、4、5、6），随机生成20
4、个互不相等正整数，按5个一行的形式输出到文本框中，并从中找出所有降序数输出到列表框。所谓降序数是指所有高位数字都大于其低位数字的数。例如973就是一个降序数。【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 在文本框1中输入N值，按“执行”按钮，则开始计算并在文本框2中显示生成的随机数，在列表框中输出其中的降序数；按“清除”按钮，则将2个文本框及列表框清空，焦点置于文本框1上；按“退出”按钮，结束程序运行；3. 程序中应定义一个用于判断一个N位数是否是降数的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并
5、保存到软盘A的目录下。二级Visual Basic语言 （试卷代号 VB02）（本试卷完成时间 70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是对字符串加密。密钥为一数字串，每个数字表示将首字符右移的位置，例如，若明文字符串为help me，密钥中第一个数字4表示将首字符h移到位置4，得到新字符串elph me，再取密钥的下一个数字符串进行上述操作，直到最后一个密钥数字处理完就得到密
6、文。若移位超出原文长度，则自动回转（按原文长度取模）。Option ExplicitPrivate Sub Command1_Click()Dim I As String,s2 As String,i As Integer,key As Integer s1=Text1 / s2=Text2For i=1 To Len(s2) key=Val(Mid(s2,i,1)Call encode(s1,key) Next i Text3=s1End SubPrivate Sub encode(s As String, K As Integer)Dim I As Integer,t As String*
7、1,n As Integer t=Mid(s,1,1)n=k Mod Len(s) if n=0 Then k=nEnd IfFor i=2 To kMid(s,i-1,1)=Mid(s,i,1)Next iMid(s,i,1)=t End Sub【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】本程序的功能是：首先按给定格式（数据以逗号分隔，-1表示数据结束）将输入到文本框1中的数据依次存入一个数组，然后为该组数据建立一个按从大到
8、小次序的索引表并显示在文本框2中。如下土，文本框2中的第一个数据4表示文本框1中4个数最大；文本框2中的最后一个数据8表示文本框1中第8个数最小。【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 在文本框1中输入测试数据，按“处理”按钮，则按题目要求得到结果并显示在文本框2中；按“清除”按钮，则将2个文本框清空，将焦点置于文本框1上；按“退出”按钮，结束程序运行；3. 程序中应定义一个根据数组元素的大小从大到小取其排列号的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的目录下。 二级Visu
9、al Basic语言 （试卷代号 VB03）（本试卷完成时间 70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。一、改错题（14分）【题目】下面程序功能是：求出（K+1）个连续数的平方数，其和等于其后的K个连续数的平方数之和。Option ExplicitPrivate Sub Command1_Click()Dim I As Integer,K As IntegerDim Flg As Boolean,S As String
10、 DoK=K+1Flg=FalseFor I=3 To 100S=I&2Call Sub1(I,K,S,Flg) If Flg ThenText1=Text1&S&vbCrLfEnd IfNext ILoop While K6 End SubPrivate Sub Sub1(N As Integer,K As Integer,S As String,F As Boolean)Dim J As Integer,Sum1 As Integer,Sum2 As Integer,A As Integer Sum1=N2/此处插入图片For J=1 To K N=N+1Sum1=Sum1+N2S=S &
11、 + & N & 2 Next JN=N+1S=S&=&N&2Sum2=N2For A=1To K-1N=N+1Sum2=Sum2+N2S=S & + & N & 2 Next AIf Sum1=Sum2 ThenF=TrueEnd If End Sub【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】在A盘根目录下建立纯英文的文本文件Data.txt。要求编程用字符串S1替换文件中所有字符子串S，字符串S不区分字母大小写，S1与S
12、长度不一定相同。文件Data.Txt的内容如下，其中VB、Vb，vB,vb都要求用Visual Basic替换。This a VB bookWe study vbVb is very usefulHello VB运行程序，替换后的结果见界面图。 【编程要求】1. 按“开始”按钮，则开始运行程序，将结果按图示格式显示在文本框中；按“清除”按钮，则将文本框清空；按“结束”按钮结束程序运行；2. 要求编写一个实现字符串替换的通用过程；3. 不允许使用Instr函数。【要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 将窗体文件和工
13、程文件分别命名为F2和P2，并保存到软盘A的目录下。二级Visual Basic语言 （试卷代号 VB04）（本试卷完成时间 70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序用于验证下列命题：可被37整除的三位整数，其各位数字循环移位后得到的三位数也可被37整除。例如148，481，841都是这样的数（不考虑含有数字0的三位数）。Option ExplicitPrivate Sub Command1_Click()Dim n As
