用VB语言找出大于200的最小的质数

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 12:07:46
用VB语言找出大于200的最小的质数用VB语言找出大于200的最小的质数用VB语言找出大于200的最小的质数对质数的定义是:除了1和本身,不能和其它数整除.那么计算质数我们,仅需要一趟循环检查就可以了

用VB语言找出大于200的最小的质数
用VB语言找出大于200的最小的质数

用VB语言找出大于200的最小的质数
对质数的定义是:除了 1 和 本身,不能和其它数整除.
那么计算质数我们,仅需要一趟循环检查就可以了.
假设用户输入了初始值 jj 那么确定质数应该:
1)计数器 aa 必须从 2 开始(1 不算).
2)计数器 aa 必须小于 jj 结束(本身不算).
3)数据 jj 不能被在上面条件 1 - 2 之间的任何数整除,即为质数
看代码:
For aa = 2 To jj - 1
If jj Mod aa = 0 Then
Exit For '此处说明可以整除,即不是质数,退出循环
End If
如果循环是调用 Exit For 中断的
那么 jj < aa (不是质数)
否则 jj = aa (是质数)
看代码:
If aa = jj Then
Label1.Caption = jj & "是质数"
Else
Label1.Caption = jj & "不是质数"
End If
楼主应该很明白了吧,另外说一下这个代码的循环次数过多,优化后:
For aa = 2 To jj \ 2 '备注(在 VB 中 \ 号是整除的意思,并非写错)
If jj Mod aa = 0 Then
Exit For
End If
(把 jj 整除一下 2,因为只需要判断一半的大小,就可以确定是否是质数了)