Question

VB 中如何将数值（或是一位数，或是两位数）转换成字符型并在之前补0至千位

Answer 1

Private Sub Command1_Click()
Dim a As Integer
a = Text1.Text
s = Str(a)
s = Format(s, "0###")
Print s
End Sub

也可以直接用Format(s, "0###") 就行，因为FORMAT就是把任何数据类型格式化成字符型的

Answer 2

用格式化函数轻松实现
Format(Text1.Text, "0000")