以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符转换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171982)
--  作者：狐表（小白）
--  发布时间：2021/9/16 16:53:00
--  字符转换
如图，我想把宽的数值转换成编号列那样，编号列保留5位，末尾必须是0，前面不够位补充0，怎么实现？

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/9/16 17:02:00
--  
Dim i As Integer = 900
Dim s As String = i & "0"
s = s.PadLeft(5,"0")
msgbox(s)
--  作者：狐表（小白）
--  发布时间：2021/9/16 19:30:00
--  
谢谢