Private Sub Command1_Click()
Dim a, p, c
a = Val(Text1)
p = 3
c = 1
Do While p <= a And Len(c) < 22
If InStr(fenjieyinzi0(Val(p)), "*") = 0 Then
c = MbC(Trim(c), Val(p))
Else
c = c
End If
p = p + 2
Loop
Text2 = c & "/" & p - 2
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""