do while x>0
如果x是素数，当i==x会exit，但显示结果是bushi。

1、质数（prime number）又称素数，有无限个。质数定义为在大于1的自然数中，除了1和它本身以外不再有其他因数，这样的数称为质数。
2、在一般领域，对正整数n，如果用2到 n的开方 之间的所有整数去除，均无法整除，则n为质数。质数大于等于2 不能被它本身和1以外的数整除

[此贴子已经被作者于2017-7-6 09:17编辑过]

x=1
DO WHILE x<>0
  INPUT "请输入1个正整数：" TO  x
  x=INT(x)
  IF x<=0
     CLEAR
  ELSE
     nYes=1
     IF x=1 &&规定1不是，有的地方说2也不是，那就改为 x<=2
        nYes=0
     ELSE
       FOR i=2 TO INT(SQRT(x))+1
            IF x % i = 0 and x<>i
               nYes=0
               EXIT
            ENDIF
       ENDFOR
     ENDIF
     IF nYes=0
        ?x,"不是素数"
     ELSE
        ?x,"它是素数"
     ENDIF
     INKEY(3) &&无按键，停顿3秒
     CLEAR
  ENDIF   
ENDDO