对质数的定义是：除了 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,因为只需要判断一半的大小,就可以确定是否是质数了）
