vb期末上机模拟试卷

《vb期末上机模拟试卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、班级、姓名、学号注意：以下是一期末上机考试模拟试卷，主要用于让同学练习上机考试的交卷操作。收到此卷后，请在第一行处填写你的班级、学号和姓名。并将此文档存入考生文件夹（见“考试说明”）然后提交。VisualBasic程序设计上机试卷（本试卷完成时间90分钟）考试说明：1.上机考试在http://sit.suda.edu.cn中进行。2.先在硬盘上建立名为学号+姓名的考生文件夹，如0715407088张三，并将答案文件存放在考生文件夹中，考试结束后将该考生文件夹压缩后提交。3.　在上机考试中的“操作题”按钮中提交上述压缩文件。4.若题目中有参考界面，则仅供参考；5.程

2、序代码书写应呈现锯齿形。一、改错题（14分）【要求】1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体的名称属性设置为frm+学号后四位，如frm7088；4.将窗体文件和工程文件分别命名为学号-FA1.frm和PA1.vbp，并保存到考生文件夹中。【题目】这是一个生成密文的程序。将原文中的每个字符的ASCII代码值变换为八进制数，且将八进制数逆序，再在每个逆序八进制数之前随机插入1~3个杂乱的大写英文字母，末尾再加一个大写英文字母，构成密文。　含有错误的源程序如下：OptionExplicitPriva

3、teSubCommand1_Click()DimdecAsString,iAsInteger,nAsIntegerDimkAsInteger,encAsString,jAsIntegerdec=Text1Fori=1ToLen(dec)n=Asc(Mid(dec,i,1))k=Int(Rnd*3)+1Forj=1Tokenc=enc&Chr(Int(Rnd*26)+65)Nextenc=enc&dt8NextText2=enc&Chr(Int(Rnd*26)+65)EndSubPrivateFunctiondt8(nAsInteger)AsStringDimkAs

4、Integer,st()AsString*1,iAsIntegerDok=nMod8　i=i+1ReDimst(i)st(i)=CStr(k)n=n8LoopUntiln<=0Fork=1ToUBound(st)dt8=dt8&st(k)NextEndFunction二、编程题(26分)【题目】编写程序，生成一个由两位随机整数组成的5×5的数组，并显示在图片框中；再找出该数组的最小元素，并将最小元素所在列删除（将最小元素所在列之后的各列依次前移）；将5×5的数组重定义为一个5×4的数组，显示在另一个图片框中。【编程要求】1．　程序参考界面如图所示，编程时不得增加

5、或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2．将窗体的名称属性设置为frm+学号后四位，如frm7088。3．按“生成数组”按钮，则将生成的数组显示在图片框中；按“删除列”按钮，则将最小元素所在的列删除后的新数组显示在图片框中。4．按“返回”按钮，则清空二个图片框中的内容。5．在程序中定义一个实现查找数组中最小元素函数过程。6．将窗体文件和工程文件分别命名为学号-FA2.frm和PA2.vbp保存在考生文件夹中。