2005春2VB上机及答案.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2005春） 二级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 ?????????????????????????????????// ??? s2=Text2 ????For i=1 To Len(s2) ????????key=Val(Mid(s2,i,1)) ????????Call encode(s1,key) ????Next i ????Text3=s1 End Sub ? Private Sub encode(s As String, K As Integer) ????Dim I As Integer,t As String*1,n As Integer ????t=Mid(s,1,1) ????n=k Mod Len(s) ????if n=0 Then ????????k=n?????????????????????????????????????????n=k ????End If ????For i=2 To k?????????????????????????????????????For i=2 To n ????????Mid(s,i-1,1)=Mid(s,i,1) ????Next i ????Mid(s,i,1)=t ?????????????????????????????????????Mid(s,i-1,1) End Sub 【要求】 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的目录下。 ? 源程序： Private Sub commandl_Click()?????Dim p() AS Integer,k As Integer,D() As Integer?????Dim i As Integer,st As String?????st=Text1?????call Inum(st,p)?????call Ind(p,D)?????st= ?????For i=1 To UBound(D)??????????st=stStr(D(i))?????Next i?????Text2=stEnd Sub Private Sub lnum(st As String,p() As Integer)?????Dim k As Integer,t As Integer,n As Integer?????Do?????????n=InStr(st,,)?????????If t-1 And n0 Then???????????????t=Val(Left(st,n-1))