format是个格式化输出函数。#代表原样输出。0的话补位。最好打开程序试一下。
Private Sub Command2_Click()
Print Format(2, "###")
Print Format(2, "000")
Print Format(2, "0.00")
End Sub