江苏VFP二级2005-2008上机操作第5题.docVIP

2005-2008 上机试卷第五题 五、 程序改错（5分）2005VFP01 下列程序的功能是：随机出10道100以内整数加减法算术题。如果是加法，则两数的和不得大于100；如果是减法，则被减数不小于减数。要求： ① 项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改（注：注释部分不 需要输入）； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 Clear Ts=1 题数计数 Do while ts=10 Czf=iif(rand()0.5, ”+”, ”-”) rand()函数的功能是返回一个0~1之间的随机数 Num1=rand()*100 Num2=rand()*100 If czf=”+” If num1+num2100 Loop Endif Else If num1num2 Exit Endif Endif ? ”(”+str(ts,2)+ ”) ”+str(num1,3)+czf+str(num2,2)+ ”=” ts=ts+1 endif 五、 程序改错（5分）2005VFP02 下列程序的功能是：随机产生一个10至100之间的整数，然后分解质因数，例如：45=3*3*5。 要求：① 项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改（注：注释部分不输入）； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 Nint=int(rand()*100) Do while between(nint,10,100) Nint=int(rand()*100) Enddo Cresult=str(nint,3)+”=” N=2 Do while nint1 If mod(nint,n)=1 Cresult=cresult+ltrim(str(n))+”*” ltrim()函数的功能是删除字符串的前导空格 Nint=nint/n Else N=n+1 If nintn Exit Endif Endif Enddo Cresult=left(cresult,len(cresult)-1) =messagebox(cresult) 五、程序改错题（5分）2006春 下列程序中的过程（过程名为ren）用来产生n个a～b之间的随机整数，然后将他们以从大到小的顺序存储在数组X中，并分别输出n=10,a=5,b=25和n=20,a=50,b=80时数组X的值。要求： （1）项目中有一个程序文件Ｐcode，将下列程序输入到其中并进行修改； （2）在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 CLEAR =ren(10,5,25) =ren(20,50,80) Procedure ren Parameters a,b,n Dimension X(n) X=0 For i=1 to n X(i)=INT((b-a)*RAND()+a) ENDFO FOR j=1 to n If x(k)x(j) X(k)=t Endif ENDFOR FOR i=1 to n ？x(i) ENDFOR ENDPROC 五、程序改错（5分）2006秋vfp1 下列程序的功能是：在一个英文句子中找出最长的单词（单词间以一个或多个空格分隔），若有多个结果则只需显示第一个单词。要求： ① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 cString=’This is one of best books’ nCount=0 cResult=SPACE(0) DO WHILE LEN(cString)0 n=AT(SPACE(1), cString) cWord=ALLT(IIF(n=0, cString, SUBS(cString, 1, n))) 取一个单词 cString= ALLT(IIF(n=0, SPACE(0), SUBS(cString,1,n))) IF LEN(cWord)nCount nCount= nCount+1 cResult=cWord ENDIF ENDDO WAIT WINDOW ’最长的单词是’ + cResult 五、程序修改（5分）2007春 下列程序可用来验证一个身份证号的出生日期部分是否有效，验证的条件是： (1)宽度只能是1