江苏省v历年上机试卷.docVIP

2009年春上机试卷(01) 本试卷完成时间为70分钟 【考试须知】 改错题的界面不作要求，主要是用来调试程序，若题目中有参考界面，则仅作参考。 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分。 程序代码应缩行书写（呈锯齿型）。 改错题(14分) 【题目】 本程序的功能是：把10~20范围内的数分别表示成若干质因子连乘的形式。程序界面参见如下图： Option explicit Option base 1 Private sub command1_click() Dim j as integer,pf() as integer ,I as integer Dim st as string For i=10 to 20 Call prime_f(i, pf) st=cstr(i)”=” for j=1 to ubound(pf) st=ststr(pf(j))”*” next j st=ststr(pf(j)) list1.additem st next i end sub private sub prime_f(n as integer, a() as integer) dim I as integer ,k as integer i=2 do if n mod i=0 then k=k+1 redim preserve a(k) a(k)=i n=n\i else i=i+1 endif loop until n=0 end sub 【要求】 新建工程输入上述代码，改正程序中的错误。 改错时，不得增减或删除语句，但可调整语句位置。 将窗体文件和工程文件命名为F1和P1，并保存到T盘的根目录下。 编程题（26分） 【题目】 编写程序找出介于M、K（M100,K10000）之间的勾股弦数。设N 是介于M、K之间的正整数，它的第一位数字依次为a、b，最后一位（或两位）是c，若a^2+b^2=c^2,则这样的数N称为勾股弦数. 【编程要求】 程序界面参见下图：编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。 运行程序，首先在文本框M和K中输入查找范围，然后按“运行”按钮，在列表框中以指定格式输出查找结果，若指定区间无勾股弦数，则输出“无勾股弦数！”信息；按“清理”按钮，将文本框和列表框清空，焦点置于文本框M 上；按结束按钮，结束程序运行。 程序中应定义一个通用过程，用于将一个整数按给定规则分解成三个数，并验证其是否为勾股弦数。 【算法提示】 注意,三角形的边长不得为0. 【要求】 将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。 2009年（春）上机试卷(02) （本试卷完成时间为70分钟） 【考试须知】 改错题的界面不作要求，主要是用来调试程序，若题目中有参考界面，则仅作参考。 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分。 程序代码应缩行书写（呈锯齿型）。 一.改错题(14分) 【题目】 下面的程序的功能是：找出100以内的所有因子（包括1和本身）之和为一个完全平方数的正整数，并按图中所示格式将结果显示在列表框中。程序界面参见如下图。 Option explicit Option base 1 Private sub command1_click() Dim I as integer,j as integer Dim f() as integer,sum as integer Dim s as string For i=3 to 100 If fac(I,F,sum ) then Sum=0 S=I ”:” For j=1 to ubound(F) S=S F(j) “+” Next j List1.additem s F(j) “=” sum “=” sqr(sum) “^2” End if Next i End sub Private function fac(k as integer, a() as integer,sum as integer) as Boolean Dim