小数显示

Question

怎样使显示在TEXT中小数是0。00003456而不是。3456_e-4

Answer 1

Dim st As Double
   
   st = 0.00003456
   
   Text1.Text = Format(st, "0.00000000")

Answer 2

FormatNumber函数返回一个数字格式的表达式.
语法;
FormatNumber(Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensFor
NegativeNumbers[,GroupDigits]]]])其中Expression是必需的要被格式化的表达式.
NumDigitsAfterDecimal是可选的数字值,表示小数点右边的显示位数.缺省值为1,表示使用计算机的区域设置值.
IncludeLeadingDigit是可选的三态常数,表示小数点前是否显示.
UseParensForNegativeNumbers是可选的三态常数,表示是否把负数值放在括号内.
GroupDigits是可选的的三态常数,表示是否用组分隔符对数字分组,组分隔符在计算机的区域设置值中指定.

Answer 3

Text1.Text = FormatNumber( 数值, 8, Ture, False, False)

Answer 4

在设计时设定text1的dataformat属性。BTW:你是怎样让它显示成.3456_E-4的？我怎么搞都搞不出来，都显示的.00003456TEXT1=0.00003456

Answer 5

怎样给分呀?
我给第1位10分,第二位10分另:回答飘零风
Private Sub Command1_Click()
我的程序这样做
Dim y As Single
Dim z As String
Text1.Text = " "
f1 = 100
f2 = 250
fs = 700
dt = 1 / fs
For k = 1 To 10
y = Sin(2 * 3.14 * f1 * k * dt) + Sin(2 * 3.14 * f2 * k * dt)
z = y
Text1.Text = Text1.Text + z + Chr(13) + Chr(10)
Next
End Sub
运行后显示
1.564088
7.109167E-04
.8659196
5.735937E-03
-1.950597
-5.973283E-03
4.777882E-03
-7.916746E-03
1.94843
1.437266E-02

Answer 6

嗯，就是这样了：
z=format(y,"0.0000000000")
另外，chr(13)+chr(10)用vbCrLf代替比较好:
Text1.Text=Text1.Text+z+vbCrLf