n 为要验证的枝薯宏数 For i = 2 To Int(Sqr(n)) '从2开始,到根号手禅n(取整数)循环 I f n Mod i = 0 Then Exit For ’如果i除n的余数为0,则退出循环 Next i If i > Int(Sqr(n)) Then '如果i>根号n(取整数),说明没有提前退出循环 Print n & 不猛册是素数; '打印: End If
不清楚耶,用数学算法告诉你好了: INPUT "n="; n 输告或坦入袜桐n IF n divides x(x>=2 and x<n) 如果n整除x(x≥2且x<n) THEN PRINT n not a prime number 那么输出“团基n不是质数” ELSE 否则 PRINT n is a prime number 输出“n是质数” END IF 结束 END 结束