UC知道pci采集卡 vb程序段 翻译
来源：百度知道 编辑：UC知道 时间：2024/05/28 07:16:59
程序如下，求牛人翻译，谢谢
Function strnum(i As Single) As String
i = Round(i, 3)
If Abs(i) < 1 And i <> 0 Then
If i > 0 Then
strnum = Trim(i)
Else
strnum = "-" & Trim(Abs(i))
End If
Else:
strnum = Trim(i)
End If
End Function
Function strnum(i As Single) As String
i = Round(i, 3)
If Abs(i) < 1 And i <> 0 Then
If i > 0 Then
strnum = Trim(i)
Else
strnum = "-" & Trim(Abs(i))
End If
Else:
strnum = Trim(i)
End If
End Function
i = Round(i, 3)
: 该函数首先保留变量i 小数位数3位
If Abs(i) < 1 And i <> 0 Then : 如果I的值为-1~1之间,且不为0
If i > 0 Then
strnum = Trim(i)
Else
strnum = "-" & Trim(Abs(i))
End If :这部分代码使函数返回i的实际值(3位小数)
Else
strnum = Trim(i) 其他情况,直接返回i的实际值
End If