2011春vb上机3

《2011春vb上机3》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2011年(春)上机试卷(03)(本试卷完成时间为70分钟)【考试须知】1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考。2.考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分。3.程序代码应缩行书写(呈锯齿形)。一、改错题(14分)【题目】本程序的功能是:输入整数n,在小于等于n的素数序列中,找出所有接连3个素数之和也是素数的子序列。程序界面参见下图。PrivateSubCommand1_Click()DimnAsInteger,pn()AsInteger,kAsIntegerDimiAsInteger,

2、sumAsInteger,stAsStringn=Text1k=2DoIfprime(k)Theni=i+1ReDimpn(i)pn(i)=kEndIfk=k+1LoopUntilk>nFori=1ToUBound(pn)sum=0Fork=iToi+2sum=sum+pn(k)st=st&pn(k)&"+"NextkIfprime(sum)ThenList1.AddItemLeft(st,Len(st)-1&"="&sum)EndIfst=""NextIEndSubPrivateFunctionprime(nAsInteger)AsBooleanDimiAsIn

3、tegerFori=2ToSqr(n)IfnModi=0ThenExitForNextiprime=TrueEndFunction【要求】1.新建工程,输入上述代码,改正程序中的错误。2.改错时,不得增加或删除语句,但可适当调整语句位置。3.将窗体文件和工程文件分别命名为F1和Pl,并保存到T盘的根目录下。二、编程题(26分)【题目】编写程序,找出数组中的最大元素值,把最大元素与数组首元素位置对调;然后再找出数组中的最小元素值,把最小元素与数组末尾元素位置对调。(若存在多个相等的最大元素,只对调其中一个即可,最小元素亦然)【编程要求】1.程序界面参见下图,编程时不

4、得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见2.运行程序,按"生成数组"按钮,出现如图所示的InputBox函数窗口,输人数据个数(或使用缺省值)后按"确定"按钮,则生成两位数的随机整数数组并显示在文本框Text1中;按"运行"按钮,找出数组最大元素和最小元素后,分别与数组首元素位置对调和与末尾元素位置对调,并将位置对调后的数组元素显示在文本框Text2中;按"清除"按钮,将两个文本框清空,焦点置于"生成数组"按钮上。3.程序中应定义一个通用过程,用于求一维数组的最大元素及最小元素。【要求】将窗体文件和工程文件分别命名为F2和P2,并保存

5、到T盘的根目录下。