VB常用算法——素数.docxVIP

VB 常用算法 —— 素数 VB 常考算法（三）素数： 1、算法说明 所谓素数是指只能被 1 和它本身整除的数。 1）判断某数是否为素数。根据循环控制变量来判断。 算法说明：根据素数只能被 1 和它本身整除的性质， 我们可以使用循环依次判断 2 到 n-1 （或者 Sqr(n)）之间有没有被它整除的数，一旦有退出循环，退出循环后通过检验循环变量 的值来判断是不是素数。即，当循环正常退出，循环变量的值等于 n 时，该数是素数；当循 环提前退出，循环变量的值小于等于 n-1，该数不是素数。 程序代码如下： Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(Text1.Text) If n 1 Then MsgBox 请正确输入数据 Else n = Val(Text1.Text) For i = 2 To n - 1 If n Mod i = 0 Then Exit For Next i If i = n Then MsgBox n 是素数 Else MsgBox n 不是素数 End If End If End Sub 2）判断某数是否为素数。根据标志位 Private Sub Command1_Click() Dim n As Integer, i As Integer