求孪生素数。孪生素数要求为：两个相邻奇数且都是素数。下列Visual Basic程序用于查找100以内的所有孪生素数，其中自定义函数judge用于判断一个数是否是素数，程序运行界面如左图所示，Command1鼠标单击事件过程的流程图如右图所示。请在划线处填入相关代码。

程序代码如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear    '清除列表框内容
For i = 3 To 97 ___①___
If judge(i) And    ②____ Then
List1.AddItem Str(i) + " 和 " + Str(i + 2)
End If
Next i
End Sub
Function judge(x As Integer) As Boolean   
Dim j As Integer
judge = True
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
judge = false   
Exit For  
End If
Next j
End Function
将加框部分转换为Do While条件循环结构，部分代码如下：
Private Sub Command1_Click()
Dim i As Integer
i = 3
Do While i <= 97
'循环内语句块与加框处循环内语句块相同
③________
Loop
End Sub