VB判断是否为素数

写程序太麻烦。告诉你方法吧。设i=2.先判断输入的整数是否为1和2

成都创新互联专注于天元企业网站建设,响应式网站建设,商城网站制作。天元网站建设公司,为天元等地区提供建站服务。全流程按需求定制网站，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务

。如果是1，直接反回索数。如果是2反回非素数。如果不是1，2。则进入循环把整数除i

，判断余数0并且i整数，i++。一旦出现余数=0侧为反回非素数，如果循环完了还没有，反回素数。原理：是素数只1与自身整除。

vb判断素数需要添加哪些控件

vb判断素数需要添加的控件有button和listbox。

1、打开vb工程，在上面建一个窗体，然后创建button和listbox

2、在findPrime上写入如下代码：

Private Sub CommandButton1_Click()

Dim flag As Boolean

flag = True

ListBox1.AddItem (1) '默认1和2都是素数

ListBox1.AddItem (2)

For i = 1 To 1000

For J = 2 To i - 1

If (i Mod J = 0) Then

flag = True

Exit For

Else

flag = False

End If

Next

If flag = False Then

ListBox1.AddItem (i)

End If

Next i

End Sub

3、运行结果，列出了1-1000内的所有素数。

vb判断素数

这得通过对循环

For i = 2 To n - 1

If n Mod i = 0 Then Text2.Text = n "不是素数": Exit For

Next i

分析说起；

For i = 2 To n - 1

就是 i 从2开始，逐步递增1，循环到 n - 1 结束，中间每一次循环通过 If 语句一 一 判断。

循环里，执行 If 语句

If n Mod i = 0 Then Text2.Text = n "不是素数": Exit For

注意到，这里有退出循环的语句Exit For

从而，最后循环结束有两种可能；

1，只要有 i 能整除 n，循环就执行Exit For使得循环结束；此时i=n - 1

2，所有的 i 都不能整除 n，这样结束循环的时候；i = n - 1

所以，在最后根据是否能满足i = n - 1，来确定 n 是不是素数。