查人人中国名人网王鹏 东部陆军副参谋长:Visual Basic 60. 怎样 增值 时 可以 自动补 0
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/10 08:54:24
例如我由1 至 1000
那 1 就变为 0001
999 变为 0999
最好有代码 ...
那 1 就变为 0001
999 变为 0999
最好有代码 ...
可以把数据转化为字符串,先判定字符串长度,不足在前加0.注意符号位.然后再把字符串输出.
format函数
Dim i As Integer, iStr As String
iStr = Str(i)
Label1.Caption = Format(iStr, "0000")