帮我用VB编个分数小数 转换器，以下是代码，要源码，谢谢！

Question

Public Function Friction(Fri As Single) As String
Const MAX = 0.01
Dim i As Integer
Dim str As String
i = 1
While Abs((i / Fri) - Round((i / Fri), 0)) > MAX
i = i + 1
Wend
str = i & "/" & Round(i / Fri)
Friction = str

End Function
这是一个程序，你在Text1中输入小数，点击Command1，它在label1中显示分子，在label2中显示分母。

Answer 1

这是要完成什么样的功能啊？

追问

这是一个程序，你在Text1中输入小数，点击Command1，它在label1中显示分子，在label2中显示分母。

追答

Private Sub Command1_Click()
s = Text1.Text
Dim fz As Long, fm As Long, a As Long
fm = 10 ^ (Len(s) - InStr(s, "."))
fz = Val(s) * fm
a = gcd(fz, fm)
fz = fz / a
fm = fm / a
Label1.Caption = fz
Label2.Caption = fm
End Sub

Function gcd(x As Long, y As Long) As Long
Dim r As Long
Print x, y
Do
r = x Mod y
x = y
y = r
Loop Until r = 0
gcd = x
End Function