小明編寫了一個求真分數(shù)精確值的 VB 程序。程序運行時，在文本框 Text1 中輸入被 除數(shù)，在文本 Text2 中輸入除數(shù)，并保證被除數(shù)小于除數(shù)，單擊“計算”按鈕 Command1，在 標(biāo)簽 Label3 中顯示結(jié)果。如果無限小數(shù)的小數(shù)點后，從某一位起向右進行到某一位止的一節(jié)數(shù) 字循環(huán)出現(xiàn)，首尾銜接，稱這種小數(shù)為循環(huán)小數(shù)，這一節(jié)數(shù)字稱為循環(huán)節(jié)。如果商為循環(huán)小數(shù) 保留一個循環(huán)節(jié)，否則最多計算到第 20 位。程序運行界面如下圖所示。
（1）運行程序，在文本框 Text1 中輸入被除數(shù) 13，在文本框 Text2 中輸入除數(shù) 99，單擊“計算”按鈕 Command1，在標(biāo)簽 Label3 中顯示的結(jié)果是

0.13

0.13

。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
Dim a（1 To 20）As Integer,b（1 To 20）As Integer
Private Sub Command1_Click（　?。?br />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'退出自定義函數(shù)
End If
Next i
Jud=True
End Function