主题：求助

您 好!大师:

我的表A的"svfinyfg" 列,输入小数转换分数,代码如下:

If e.DataCol.name = "svfinyfg" Then
    Dim z As String = e.NewValue
    If z > "" Then
        Dim s() As String = z.split(".")
        If s.Length = 1 Then
            e.NewValue = (s(0))
        Else
            Dim b As Long = CInt(s(1))
            Dim a As Long  = 10 ^ s(1).Length
            Dim c As Long  = a Mod b
            Dim x = a
            Dim y = b
            Do While c <> 0
                a=b
                b=c
                c = a Mod b
            Loop
           
            If (s(0)) = 0  Then
                Dim r = y/b & "/" & x/b
            Else
                Dim r = s(0) &" " & y/b & "/" & x/b
                Dim k = CStr(r)
                e.NewValue = (k)
            End If
        End If
    End If
End If

提示运行错误:

.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2017.3.18.1
错误所在事件：
详细错误信息：
无法在 System.String 和 System.Int32 上执行“/”操作。
请求大师帮忙指教!!!谢谢!!!