计算机等级考试二级VFP习题及答案：第七章

　　3、写出运行结果

　　程序代码：

　　SET TALK OFF

　　M=3

　　DO WHILE M<10

　　N=2

　　DO WHILE N

　　IF INT(M/N)=M/N

　　EXIT

　　ENDIF

　　N=N+1

　　ENDDO

　　IF N=M

　　?M

　　ENDIF

　　M=M+1

　　ENDDO

　　SET TALK ON

　　参考答案：

　　 3

　　 5

　　 7

　　4、写出运行结果

　　程序代码：

　　SET TALK OFF

　　CLEAR

　　INPUT "M=" TO M

　　IF INT(M)!=M OR ABS(M)!=M

　　?"输入的数值不符合题目要求!"

　　LOOP

　　ENDIF

　　?ALLTRIM(STR(M,19))+"的质数因子有:"

　　I=2

　　DO WHILE I<=M

　　IF M%I=0

　　??STR(I,6)

　　M=INT(M/I)

　　LOOP

　　ENDIF

　　I=I+1

　　ENDDO

　　SET TALK ON

　　SET ESCAPE ON

　　设：M的输入值为12。

　　参考答案：

　　12的质数因子有： 2 2 3

　　5、写出运行结果

　　程序代码：

　　SET TALK OFF

　　CLEAR

　　?"* 1 2 3 4 5"

　　A=1

　　DO WHILE A<=5

　　?ALLTRIM(STR(A))+SPAC(2)

　　B=1

　　DO WHILE B<=A

　　S=A*B

　　??STR(S,2)+SPAC(2)

　　B=B+1

　　ENDDO

　　A=A+1

　　ENDDO

　　SET TALK ON

　　参考答案：

　　* 1 2 3 4 5

　　1 1

　　2 2 4

　　3 3 6 9

　　4 4 8 12

　　5 5 10 15 20 25