要表述0.3927只能用"0" & Round(.3927,4)吗?
Private Sub Form_Load()
Dim Alfa, nn
nn = 16
For ii = 0 To nn
Alfa = ii * (360 / nn) * (Atn(1) * 4 / 180)
Debug.Print Round(Alfa, 4)
Next ii
End Sub
0
.3927
.7854
1.1781
1.5708
*********************
Private Sub Form_Load()
Dim Alfa, nn
nn = 16
For ii = 0 To nn
Alfa = ii * (360 / nn) * (Atn(1) * 4 / 180)
If Alfa > 0 And Alfa < 1 Then
Debug.Print "0" & Round(Alfa, 4)
Else
Debug.Print Round(Alfa, 4)
End If
Next ii
End Sub
0
0.3927
0.7854
1.1781
1.5708
-------------------
问VB是否只能表述 .3927, .7854
要表述为0.3927,0.7854
只能用Debug.Print "0" & Round(Alfa, 4)的方法吗?
[解决办法]
format(a,"#0.0000")
[解决办法]
什么叫“表述”?
如果你说的是数字在人机界面的显示的话,告诉你,英美习惯的纯小数表示方法,就是没有前导 0 的。
如果你喜欢有前导零,可以用 Format 函数,甚至可以有多个前导 0 。