显示格式

[kewy]

我想将一个字符串，只显示6位，如果不够6位的，就在后面用0来填补。要如何做好

[lilaclone]

用Left函数及Len函数实现如:
If Len(string)>6 Then
String=Left(String,6)
Else
For I=Len(String) To 6
String=String & "0"
Next
End If