VB期末上机模拟试卷

班级 、姓名 、学号 注意：以下是一期末上机考试模拟试卷，主要用于让同学练习上机考试的交卷操作。收到此卷后，请在第一行处填写你的班级、学号和姓名。并将此文档存入考生文件夹（见“考试说明”）然后提交。Visual Basic程序设计上机试卷（本试卷完成时间90分钟）考试说明：1. 上机考试在中进行。2. 先在硬盘上建立名为学号+姓名的考生文件夹，如0715407088张三，并将答案文件存放在考生文件夹中，考试结束后将该考生文件夹压缩后提交。3. 在上机考试中的“操作题”按钮中提交上述压缩文件。4. 若题目中有参考界面，则仅供参考；5. 程序代码书写应呈现锯齿形。一、改错题（14分）【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体的名称属性设置为frm+学号后四位，如frm7088；4. 将窗体文件和工程文件分别命名为学号-FA1.frm和PA1.vbp，并保存到考生文件夹中。【题目】这是一个生成密文的程序。将原文中的每个字符的ASCII代码值变换为八进制数，且将八进制数逆序，再在每个逆序八进制数之前随机插入13个杂乱的大写英文字母，末尾再加一个大写英文字母，构成密文。含有错误的源程序如下：Option ExplicitPrivate Sub Command1_Click() Dim dec As String, i As Integer, n As Integer Dim k As Integer, enc As String, j As Integer dec = Text1 For i = 1 To Len(dec) n = Asc(Mid(dec, i, 1) k = Int(Rnd * 3) + 1 For j = 1 To k enc = enc & Chr(Int(Rnd * 26) + 65) Next enc = enc & dt8 Next Text2 = enc & Chr(Int(Rnd * 26) + 65)End SubPrivate Function dt8(n As Integer) As String Dim k As Integer, st() As String * 1, i As Integer Do k = n Mod 8 i = i + 1 ReDim st(i) st(i) = CStr(k) n = n 8 Loop Until n = 0 For k = 1 To UBound(st) dt8 = dt8 & st(k) NextEnd Function二、编程题(26分)【题目】编写程序，生成一个由两位随机整数组成的55的数组，并显示在图片框中；再找出该数组的最小元素，并将最小元素所在列删除（将最小元素所在列之后的各列依次前移）；将55的数组重定义为一个54的数组，显示在另一个图片框中。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2 将窗体的名称属性设置为frm+学号后四位，如frm7088。3 按“生成数组”按钮，则将生成的数组显示在图片框中；按“删除列”按钮，则将最小元素所在的列删除后的新数组显示在图片框中。4 按“返回”按钮，则清空二个图片框中的