江苏省vb历年机试卷.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() a