题型:综合题 题类:常考题 难易度:普通
【bj】高中信息技术综合库——解析算法2
Dim i As Integer, m As Integer, flag as Boolean
m =
flag=
For i = 2 To int(sqr(m))
If Then
flag=false
Exit For
End if
Next i
If flag=true Then
Text2.Text = str(m) +"是素数"
Else
Text2.Text = str(m) +"不是素数"
End if
试题篮