如何让计算结果包含根号？

来源：百度知道 编辑：UC知道 时间：2024/06/11 00:13:34
比如：
Sqr(3)
显示 根号3 不显示1.***
也就是无法开整数方根的时候显示根号 不显示小数

Function sqrt(num As Long)
snum = Sqr(num)
If snum = Int(snum) Then
sqrt = snum
Else
For i = Int(snum) To 1 Step -1
If num Mod i ^ 2 = 0 Then Exit For
Next
sqrt = IIf(i = 1, "√" & num, i & "√" & num / i / i)
End If
End Function

你指的是什么结果，最好给一个算式