05春江苏计算机二VB上机试题及答案.docVIP

江苏2005春二级Visual Basic语言 （试卷代号 VB01） （本试卷完成时间 70分钟） 【考试须知】 1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3. 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】下面程序功能是：找出100以内满足N+1个连续自然数之和等于其后N个连续自然数之和的序列（例如：4+5+6=7+8就是满足 要求的序列）。 Option Explicit Private Sub Command1_Click() 牋牋Dim I As Integer,S As String,Flg As Boolean 牋牋For I=2 To 10 牋牋Call Sub1(I,S,Flg) 牋牋牋牋Flg=False 牋牋牋牋If Flg Then 牋牋牋牋牋燭ext1=Text1SvbCrLf 牋牋牋牋End If 牋牋燦ext I End Sub ?Private Sub Sub1(K As Integer,S As String,F As Boolean) 牋牋Dim I As Integer,Sum1 As Integer,Sum2 As Integer 牋牋Dim N As Integer, Start As Integer 牋牋Do While Sum1Sum2 And N100 牋牋牋牋Start=Start+1 牋牋牋牋N=Start 牋牋牋牋S=N:Sum1=N 牋牋牋牋For I=1 To K-1 牋牋牋牋牋牋N=N+1 牋牋牋牋牋牋Sum1=Sum1+N 牋牋牋牋牋牋S=S+N 牋牋牋牋Next I 牋牋牋牋S=S=N 牋牋牋牋N=N+1 牋牋牋牋Sum2=N 牋牋牋牋For I=1 To K-2 牋牋牋牋牋牋N=N+1 牋牋牋牋牋牋Sum2=Sum2+N 牋牋牋牋牋牋S=S+N 牋牋牋牋Next I 牋牋牋牋N=N+1 牋牋牋牋If Sum1=Sum2 Then 牋牋牋牋牋牋F=True 牋牋牋牋End If 牋牋Loop End Sub ? 【要求】 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的目录下。 ?? 二级Visual Basic语言 （试卷代号 VB02） （本试卷完成时间 70分钟） 【考试须知】 1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3. 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是对字符串加密。密钥为一数字串，每个数字表示将首字符右移的位置，例如，若明文字符串为help me，密 钥中第一个数字4表示将首字符h移到位置4，得到新字符串elph me，再取密钥的下一个数字符串进行上述操作，直到最后一个密钥 数字处理完就得到密文。若移位超出原文长度，则自动回转（按原文长度取模）。 Option Explicit Private Sub Command1_Click() ????Dim I As String,s2 As String,i As Integer,key As Integer ????s1=Text1 ???????????????????????????