数学类计算的程序中,数据类型的选择和精度控制很重要的,你这个运算幅度这么大,肯定会有误差啊Private Sub Command6_Click()
Dim f As Double
Dim rlt1 As Double, rlt2 As Double, rlt3 As Double, rlt4 As Double
Dim s As String
f = 5000
rlt1 = f / (1024 ^ 3)
rlt2 = f / (1024 ^ 2)
rlt3 = f / (1024 ^ 0)
rlt4 = f / (1024 ^ 4)
s = Format(rlt1, ...