格式转变

[leonnet]

用StrAmt = Format(Arr(3) * 100)无法实现在原来的数据前补0，例数据为：
286.00
45621.00
2364.00
等
要求出来的数据为10位数
0000028600
0004562100
0000236400

如何解决？

[LUOLZD001]

StrAmt = Format(Arr(3) * 100,"0000000000")

[SYSSZ]

Private Sub Form_Load()
Arr = Array(286#, 45621#, 2364#, 2670)
For i = 0 To UBound(Arr)
stramt = Format(Arr(i) * 100, "0000000000")
MsgBox stramt
Next
End Sub
'没错