Label1.Caption = FormatNumber(p, x)p是运算后的变量，x是小数的位数，你可以自行设置
假如得出的数是a(a=text1.text(或其它输出的内容))b=instr(1,a,"E+")c=mid(a,b+2,len(a)-b-2)for d=1 to ce=e & "0"next d
Format(数据,"格式")
