使用format设置占位符,让长度不一样的数据对齐。
代码如下:
Dim i As Integer
Me.Text2 = ""
For i = 1 To 100
'将有1-3位数 使用Format 可以让它对齐
Me.Text2 = Me.Text2 & Format(CStr(i), "@@@") & Space(1)
If i <> 0 And i Mod 10 = 0 Then
Me.Text2 = Me.Text2 & vbCrLf
End If
Next i
示 例:
点击下载此附件
图 示: