那位高人会VFP的来帮我解释一下 几个题目..先谢啦！

Question

1.下列命令文件用于求小于100的数中能被3整除的数及其个数.(这个程序中有错误,请问怎么修改) SET TALK OFF
  STORE 0 T X,Y
  DO WHILE X<=100
  X=X+1
  IF INT(X/3)<>X/3
  LOOP
  ENDIF
  ?? " ",X
  Y=Y+1
  END DO
  ? "Y=",Y
  SET TALK ON  
  RETURN2.执行下列程序显示结果为:M=120 （怎么修改才能得到 M=120）   
  SET TALK OFF
  M = 2
  K = 3
  DO WHILE K<=5
  M = M*K
  k = K+1
  ENDDO
  ? "M=", M  
  RETURN3.执行下列程序共显示多少次"AAA"
 SET TALK OFF
  K=1
  DO WHILE K/5<>2
  ?? "AAA"
  K = K + 1
  IF K>1000
  EXIT
  ENDIF
  ENDDO
 RETURN

Answer 1

1.  
  SET TALK OFF
  STORE 0 To X,Y
  DO WHILE X<=100
  X=X+1
  IF INT(X/3)<>X/3
  LOOP
  ENDIF
  ?? " ",X
  Y=Y+1
  ENDDO
  ? "Y=",Y
  SET TALK ON   
  RETURN

Answer 2

2.
SET TALK OFF
  M = 2
  K = 3
  DO WHILE K<=5
  M = M*K
  k = K+1
  ENDDO
  ? "M=", M   
  RETURN

Answer 3

STORE 0 To X,Y
  DO WHILE X<=100
  X=X+1
  IF INT(X/3)<>X/3
  LOOP
  ENDIF
  ?? " ",X
  Y=Y+1
  ENDDO &&此處修改
  ? "一共有："+alltrim(str(Y))+"個可以被3整除的數"
  SET TALK ON  
  RETURN
2.無修改
clear
SET TALK OFF
  M = 2
  K = 3
  DO WHILE K<=5
  M = M*K
  k = K+1
  ENDDO
  ? "M=" + ALLTRIM(STR(M))
  RETURN
3.看輸出了多少個A，再除3，或加個變量如
SET TALK OFF
  K=1
  x=0
  DO WHILE K/5<>2
  ?? "AAA"
  x=x+1
  K = K + 1
  IF K>1000
  EXIT
  ENDIF
  ENDDO
  ? x 輸出9
 RETURN
樓主已經發過貼