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

0.13

0.13

。
（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 fla g=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