求偶数可分解为2个质数

关于求偶数可分解为2个质数的问题，为什么不行啊
Private Sub Command1_Click()
Dim a As Integer, b As Integer, n As Integer
Dim Num1 As Integer, Num2 As Integer
Dim IsPrime As Boolean
Form1.Show
For n = 6 To 1000 Step 2
For Num1 = 2 To n
IsPrime = ture
b = Int(Sqr(Num1)) + 1
For a = 2 To b
If Num1 Mod a = 0 Then
IsPrime = False
Exit For
End If
Next a

If IsPrime Then
Num2 = n - Num1
b = Int(Sqr(Num2)) + 1
For a = 2 To b
If Num2 Mod a = 0 Then
IsPrime = False
Exit For
End If
Next a
End If
Next Num1
If IsPrime Then
List1.AddItem Str(n) + "=" + Str(Num1) + "+" + Str(Num2)
Exit For
End If
Next n

End Sub

有个质数 由2个质数组成,2数之和为8,2数只差为2,这个质数是? 为什么判断一个数是否为质数要先看这个数是不是2 有三个数，成公差为80的等差数列，且这三个数都为质数，问这样的数有多少个． 编程实现输入2个整数判断这两个数是否互为质数 一个数是质数，它的数字位置任意交换应为质数，这样的数为绝对质数．证明∶绝对质数不能多于三个不同数字 怎样判断一个数是否为质数用VB语言 一个数a为质数,并且a+10,a+14 也都是质数,a是多少 100以内哪些数是3个质数的积? 100以内25个质数？怎么才能分得出质数和合数？ 什么是质数和合数