计算机二级VFP上机模拟考试题

For i=1 To length c=str(oldstr,i,1) Do Case case c>='a' .and. c<='z' iasc=asc(c)+5 if iasc>asc(\ iasc=iasc-26 endif enstr=enstr+chr(iasc) case c>='A' .and. c<='Z' iasc=asc(c)+5 if iasc>asc(\ iasc=iasc-26 endif enstr=enstr+chr(iasc) otherwise enstr=enstr+c endcase endfor ThisForm.text2.value=enstr “退出”按钮的click事件代码如下： Close ThisForm 试题二 程序填空题(20分)

tk375.scx表单的功能是：单击“计算”按钮，对于数列1,1,2,3,5, 8,??(从第3项开始，每一数列项的值为前2项之)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。

在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。

“计算”按钮的click事件代码如下： a1=1 a2=1 nSum=a1+a2 &&第1、2项之和 nCount=2 &&项数，初值为2 DO WHILE nSum<=1000 x=(1) &&此处有一空(1) a1=a2 a2=x+a1 nSum=nSum+a2 nCount=nCount+1 ENDDO nCount=(2) &&此处有一空(2) WAIT WINDOWS \前\项的和刚好不大于1000\