（加试题）小明编写了一个求真分数精确值的 VB 程序。程序运行时，在文本框 Text1 中输入被 除数，在文本 Text2 中输入除数，并保证被除数小于除数，单击“计算”按钮 Command1，在 标签 Label3 中显示结果。如果无限小数的小数点后，从某一位起向右进行到某一位止的一节数 字循环出现，首尾衔接，称这种小数为循环小数，这一节数字称为循环节。如果商为循环小数 保留一个循环节，否则最多计算到第 20 位。 程序运行界面如下图所示。

（1）运行程序，在文本框 Text1 中输入被除数 13，在文本框 Text2 中输入除数 99，单击“计算”按钮 Command1，在标签 Label3 中显示的结果是_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer, b(1 To 20) As Integer
Private Sub Command1_Click
Dim m As Integer, n As Integer, pa As Integer, pb As Integer
Dim flag As Boolean, s As String m = Val(Text1.Text)
n = Val(Text2.Text)
s = Str(m) + "/" + Str(n) + " = " s = s + "0."
pa = 1: pb = 1: flag = True b(1) = m
m = m * 10
Do While pa <= 20 And flag = True a(pa) = m \ n
If a(pa) > 0 Then pb = pb + 1
①________
m= b(pb)*10
Else
m = m * 10
End If
flag = Jud(pb)
If b(pb) = 0 Then flag = False s =②_________
pa = pa + 1
Loop
Label3.Caption = s
End Sub
Function Jud(x As Integer) As Boolean
Dim i As Integer
For i = 1 To x - 1
If③________Then
Jud = False
Exit Function   '退出自定义函数
End If
Next i
Jud = True
End Function