|
本帖最后由 joforn 于 2020-12-5 13:07 编辑
- Sub Test()
- Dim sngVar As Single
- Dim dblVar As Double
- Dim varVar As Variant
-
- sngVar = 1.1
- dblVar = sngVar
- Debug.Print Format(dblVar, "#0.0000000000000000")
- dblVar = Round(sngVar, 1)
- Debug.Print Format(dblVar, "#0.0000000000000000")
-
- varVar = Round(sngVar, 1)
- Debug.Print "Round(Single,1)返回的类型是:" & TypeName(varVar)
- varVar = Round(dblVar, 1)
- Debug.Print "Round(Double,1)返回的类型是:" & TypeName(dblVar)
-
- Range("A1") = Round(sngVar, 1)
- Range("A2") = dblVar
-
- Range("A3") = Round(CDbl(sngVar), 1)
- Range("A4") = Format$(sngVar, "#0.0")
- End Sub
复制代码
运行一下上面的代码就明白了。
|
|