如何让  “-7.405621E-02” 这个数据转换成  “-0.0741”

这样可以不，不要问为什么，因为我也不知道。

Round函数
      

描述

返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。

语法

Round(expression [,numdecimalplaces])

Round函数语法有如下几部分：

部分 描述
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

二种方法：
1、格式化：
Dim A As Single, B As Single
A = Val(Label1.Caption)
B = Format(A, "0.0000")   '使用格式化函数 Format 格式化
Text1.Text = B

2、数字处理：
Dim A As Single, B As Single
A = Val(Label1.Caption)
B = Round(A, 4)    '小数保留小数后几位函数，4 就是保留小数后 4 位
Text2.Text = B