哪位懂VB的牛人来一下

帮忙看一下下面这段代码错在哪里
为什么每次运行都死机- -

Dim a As Double, b As Double, i As Double, k As Double

Private Sub Command1_Click()
k = Val(Text1.Text)
i = 3
If k <= 1 Or k Mod 1 <> 0 Then
MsgBox ("。。。")
Else
a:
If i > k / 2 Then
MsgBox ("你玩哥呢？")
Else
a = 2
Do While i Mod a <> 0
a = a + 1
Loop
If a <> i Then
i = i + 2
GoTo a:
Else
b = 2
Do While k - i Mod b <> 0
b = b + 1
Loop
If b <> k - i Then
i = i + 2
GoTo a:
Else
MsgBox (CStr(k) + "可以分解为质数" + CStr(i) + "和质数" + CStr(k - i))
End If
End If
End If
End If
End Sub
没事闲的灌水的就不用来了，就像一楼
我感觉没进入无限循环啊- -
有什么办法验证卡在哪了么？

vb哪位有用VB使用 Excel 控件的实例的做数据库报表的实例告诉我一下 懂VB 的大侠进来指点一下 懂VB的进来指点一下 懂VB的高手指教一下,谢谢 懂VB窗体的指教一下。 哪位仁兄能介绍一下VB考试所需要的教材和辅导书 哪位侠哥侠姐能提供一下vb函数keybd_event的虚拟键码 如何用vb做一个透明的textbox框?哪位高手指点一下啦！ VB程序阿！关于切割的！哪位高人指点一下啊！！ 从网赏下的VB怎么是一个文件夹，不会装啊？？？？哪位高手赐教一下啊~~~