下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text="" For n=3 to 100 k=Int(Sqr(n)) i=2 Flag=0 Do

admin2013-01-23  23

问题 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private Sub Command1_click()
Text1.Text=""
For n=3 to 100
k=Int(Sqr(n))
i=2
Flag=0
Do While i<=______And Flag=0
If n Mod i=0 Then
Flag=1
Else
i=i+1
End If
Loop
If______Then
Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10)
End If
Next n
End Sub

选项

答案k Flag=O

解析 判断一个数是不是素数,其算法是:从2开始到该数的平方根的下限(即为题中k的值)去除这个数,如果没有可以整除的数则说明该数是个素数。本题中设置了一个标志变量Flag,默认值为 0,如果在整除的循环中,检查出该数不是素数,则设置Flag为1,也就是循环后Flag为0的数表示该数是素数,并把它显示在Text1文本框。
转载请注明原文地址:https://kaotiyun.com/show/m0hp777K
0

最新回复(0)