中科新闻网长春安防监控:Visual Basic 60. 怎样 增值 时 可以 自动补 0
来源：百度文库 编辑：中科新闻网 时间：2024/05/16 04:27:02
例如我由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")