VB输出位数问题

来源：百度知道 编辑：UC知道 时间：2024/07/06 20:53:40
例如 我要输出20个0到100的数字，为了保证能对齐，要控制每个数所占位数为5为 该用什么语句

Private Sub Command1_Click()
Cls
For i = 1 To 20
Randomize
X = Int(Rnd * 101)
Print Format(X, " 00");
If i Mod 5 = 0 Then Print
Next i
End Sub

================

Private Sub Command1_Click()
Cls
For i = 1 To 20
Randomize
X = Str(Int(Rnd * 101))
X = X + Space$(5 - Len(X))
Print X;
If i Mod 5 = 0 Then Print
Next i
End Sub

Dim i As Long
Dim s As String

i = 80
s = CStr(i)
s = s + Space$(5 - Len(s))
这样不足五位的由空格补齐,前面没有符号位

马上给你