下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private
下列程序用于在带垂直滚动条的文本框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
请帮忙给出正确答案和分析，谢谢！
参考解答
461***265
2023-07-22 16:38:26
正确答案：k Flag=O
判断一个数是不是素数，其算法是：从2开始到该数的平方根的下限(即为题中k的值)去除这个数，如果没有可以整除的数则说明该数是个素数。本题中设置了一个标志变量Flag，默认值为0，如果在整除的循环中，检查出该数不是素数，则设置Flag为1，也就是循环后Flag为0的数表示该数是素数，并把它显示在Text1文本框。
相似问题
当列表框中的项目较多 超过了列表框的长度时 系统会自动在列表框边上加一个______。请帮忙给出正确
当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。请帮忙给出正确答案和分析，谢谢！
如果在立即窗口中执行以下操作 a=8 b=9 print (a＞b); 则输出结果为______。请
如果在立即窗口中执行以下操作 a=8 b=9 print (a＞b); 则输出结果为______。请帮忙给出正确答案和分析，谢谢！
设当前日期为2007年12月27日 星期四 则执行下面语句后的输出结果为______。 Print
设当前日期为2007年12月27日，星期四，则执行下面语句后的输出结果为______。 Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now)请帮忙给出正确答案和分析，谢谢！
首先执行循环体 然后再进行条件判断 决定是否结束循环的循环语句是______。请帮忙给出正确答案和分
首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是______。请帮忙给出正确答案和分析，谢谢！
下列程序段的执行结果为______。 i=4 a=5 Do i=i+1 a=a+2 Loop Unt
下列程序段的执行结果为______。 i=4 a=5 Do i=i+1 a=a+2 Loop Until i＞=7 Print "A= "; a请帮忙给出正确答案和分析，谢谢！
