Question

用do loop语句描述判断一个数是否为素数的算法的步骤

Answer 1

Dim N%,I%,K%

N=Val(InputBox("N=?"))

K=Int(Sqr(N))

do while(IK Then

Print N;"是素数"

Else

Print N;"不是素数"

End If