987654("#0.0e0")-->98.8e4
1503.92311("0.0##e+00")-->1.504e+03
1.8901385E-16("0.0e+00")-->1.9e-16
例:
例:
Alltext = ""
Alltext = Alltext & " 庫存資料 "
Alltext = "****I*******X(I)******Y(I)***"
RichTextBox1.Text = Alltext
For I = 1 To N
Alltext = Alltext & vbCrLf & " " & Format(I, "000")
Alltext = Alltext & " " & Format(X(I), "0.0####E+00")
Alltext = Alltext & " " & Format(Y(I), "0.0####E+00")
Next I
RichTextBox1.Text = Alltext
MsgBox("庫存資料顯示")
Alltext = Alltext & " 庫存資料 "
Alltext = "****I*******X(I)******Y(I)***"
RichTextBox1.Text = Alltext
For I = 1 To N
Alltext = Alltext & vbCrLf & " " & Format(I, "000")
Alltext = Alltext & " " & Format(X(I), "0.0####E+00")
Alltext = Alltext & " " & Format(Y(I), "0.0####E+00")
Next I
RichTextBox1.Text = Alltext
MsgBox("庫存資料顯示")
沒有留言:
張貼留言