vb编程学习_学习VB编程第16天 做一个计算质数的小工具

今天学习了刘金玉老师VB编程教程的第24期，学习的主要内容是使用穷举法求素数(质数)。

一、使用穷举法求素数

1.穷举法又叫枚举法，他有两个特点：①一般都是一个确定的穷举范围。②每个可能的值去判断是否符合我们需要的条件。

2.质数(prime number)又称素数，有无限个。质数定义为在大于1的自然数中，除了1和它本身以外不再有其他因数。换句话说，质数大于1的只能被1和它自己本身整除的整数。

3.使用穷举法求素数：

①明确一个范围，在什么什么范围范围的素数?手工输入一个范围。

②符合大于1，且只能被1和自己整除的整数。

③逻辑思路：在一个范围内先取一个数；将取出的数，对这个数内，从大于1的整数开始到这个数本身，依次穷举；把符合条件的拿下(大于等于2且小于这个数本身，这个数无法分解的数)，如果能被这个范围内的数整除(余数为0)，那么它就不是素数。

④输入代码：

Private Sub Command1_Click()

Dim n As Long

n = Val(Text1.Text)

Dim i%, j%

For i = 2 To n Step 1

Dim flag As Boolean

flag = True

For j = 2 To i - 1 Step 1

If i Mod j = 0 Then

flag = False

End If

Next j

If flag Then Text2.Text = Text2.Text & i & ","

Next i

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_Change()

End Sub

⑤在录入框内输入需要求的素数范围，点击求素数我们可以看到全部的素数都算出来了。