Clear
accept "输入一个数" to aa
*!* 不是数值型
If Vartype(aa) != 'N'
Return
Endif
*!* 因为1不是素数
If aa