写程序太麻烦。告诉你方法吧。设i=2.先判断输入的整数是否为1和2
成都创新互联专注于天元企业网站建设,响应式网站建设,商城网站制作。天元网站建设公司,为天元等地区提供建站服务。全流程按需求定制网站，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务
。如果是1，直接反回索数。如果是2反回非素数。如果不是1，2。则进入循环把整数除i
，判断余数0并且i整数，i++。一旦出现余数=0侧为反回非素数，如果循环完了还没有，反回素数。原理：是素数只1与自身整除。
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内的所有素数。
这得通过对循环
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 是不是素数。
