Private Sub Command9_Click()
Dim sum As Double
sum = Format(sum, "0.0000#E+00")
sum = 2.483 * (10 ^ -2) * (Text7.Text ^ 0.9597) * Text8.Text
Label21.Caption = sum
End Sub
为什么显示出来不是保留四位，请问怎么改
vb 中科学计数 保留四位
答案:2 悬赏:80 手机版
解决时间 2021-02-15 04:07
- 提问者网友：雪舞兮
- 2021-02-14 21:51
最佳答案
- 五星知识达人网友：深街酒徒
- 2021-02-14 22:09
Private Sub Command9_Click()
Dim sum As Double
sum = Format(sum, "0.0000#E+00")
sum = 2.483 * (10 ^ -2) * (Text7.Text ^ 0.9597) * Text8.Text
Label21.Caption = Format(sum, "0.0000#E+00")
End Sub
第三行计算后会改变长度，所以赋值给label的时候再format一下。
Dim sum As Double
sum = Format(sum, "0.0000#E+00")
sum = 2.483 * (10 ^ -2) * (Text7.Text ^ 0.9597) * Text8.Text
Label21.Caption = Format(sum, "0.0000#E+00")
End Sub
第三行计算后会改变长度，所以赋值给label的时候再format一下。
全部回答
- 1楼网友：西风乍起
- 2021-02-14 23:34
设置单元格的格式：
objimportsheet.cells(i, 1) .numberformatlocal = "0.0"
objimportsheet.cells(i, 2).numberformatlocal = "0.000e+00"
下面的都一样。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯