VB实现小数和分数的相互转化
摘要:
Function fenshu(ByVal xiaoshu As Single, Optional ByVal jingdu As Integer = 3) As String '小数转换为分数,误差小于0.1^jingduDim i As LongDoi = i + 1Loop Until Ab... 阅读全文
posted @ 2006-06-03 21:21 王峰炬 阅读(603) 评论(0) 推荐(0) 编辑