资源描述：
《江苏省vb历年上机试卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、2009年春上机试卷(01)本试卷完成时间为70分钟【考试须知】1.改错题的界面不作要求，主要是用来调试程序，若题目中有参考界面，则仅作参考。2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分。3.程序代码应缩行书写（呈锯齿型）。一．改错题(14分)【题目】本程序的功能是：把10~20范围内的数分别表示成若干质因子连乘的形式。程序界面参见如下图：OptionexplicitOptionbase1Privatesubcommand1_click()Dimjasinteger,pf()asinteger,IasintegerDimstasstring
2、Fori=10to20Callprime_f(i,pf)st=cstr(i)&”=”forj=1toubound(pf)st=st&str(pf(j))&”*”nextjst=st&str(pf(j))list1.additemstnextiendsubprivatesubprime_f(nasinteger,a()asinteger)dimIasinteger,kasintegeri=2doifnmodi=0thenk=k+1redimpreservea(k)a(k)=in=nielsei=i+1endifloopuntiln<=0endsub【要求】1.新建工程输入上述代码，
3、改正程序中的错误。2.改错时，不得增减或删除语句，但可调整语句位置。1.将窗体文件和工程文件命名为F1和P1，并保存到T盘的根目录下。一．编程题（26分）【题目】编写程序找出介于M、K（M>100,K<10000）之间的勾股弦数。设N是介于M、K之间的正整数，它的第一位数字依次为a、b，最后一位（或两位）是c，若a^2+b^2=c^2,则这样的数N称为勾股弦数.【编程要求】1.程序界面参见下图：编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2.运行程序，首先在文本框M和K中输入查找范围，然后按“运行”按钮，在列表框中以指定格式输出查找结果，若指定区
4、间无勾股弦数，则输出“无勾股弦数！”信息；按“清理”按钮，将文本框和列表框清空，焦点置于文本框M上；按结束按钮，结束程序运行。3.程序中应定义一个通用过程，用于将一个整数按给定规则分解成三个数，并验证其是否为勾股弦数。【算法提示】注意,三角形的边长不得为0.【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。2009年（春）上机试卷(02)（本试卷完成时间为70分钟）【考试须知】1.改错题的界面不作要求，主要是用来调试程序，若题目中有参考界面，则仅作参考。2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分。3.程序代码应缩行
5、书写（呈锯齿型）。一.改错题(14分)【题目】下面的程序的功能是：找出100以内的所有因子（包括1和本身）之和为一个完全平方数的正整数，并按图中所示格式将结果显示在列表框中。程序界面参见如下图。OptionexplicitOptionbase1Privatesubcommand1_click()DimIasinteger,jasintegerDimf()asinteger,sumasintegerDimsasstringFori=3to100Iffac(I,F,sum)thenSum=0S=I&”:”Forj=1toubound(F)S=S&F(j)&“+”NextjList1.a
6、dditems&F(j)&“=”&sum&“=”&sqr(sum)&“^2”EndifNextiEndsubPrivatefunctionfac(kasinteger,a()asinteger,sumasinteger)asBooleanDimnasinteger,jasintegerForn=1tokIfkmodn=0thenJ=j+1Redima(j)A(j)=nSum=sum+nEndifNextnIfsum=int(sqr(sum))^2thenfac=trueEndfunction【要求】1.新建工程输入上述代码，改正程序中的错误。2.改错时，不得增减或删除语句，但可调整
7、语句位置。3.将窗体文件和工程文件命名为F1和P1，并保存到T盘的根目录下。二.编程题（26分）【题目】编写程序,随机生成15个10~100之间的整数,找出其中所有的素数以及最大的素数.【编程要求】1.程序界面参见下图：编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2.运行程序，按“运行”按钮，生成15个随机数存放到数组中,并显示在文本框1中;找出其中的素数输出到列表框中;再找出最大的素数在文本框2中显示;按“清除”按钮，将文本框和列
