求一函数：固定长度，右对齐，不足左补空格

Question

数据类型在显示时，要求固定长度，右对齐，不足左补空格

Answer 1

假设你要补足长度到20位:
 
SUB FixStr(Str as String)
Str=space(20-len(Str)) & Str)
end sub调用:
Msgbox FixStr("abc")

Answer 2

10位字符右对齐：
Format$("abc","@@@@@@@@@@")

Answer 3

Private Sub Form_Load()
MsgBox FixStr("abcd", 25)
MsgBox Len(FixStr("abcd", 25))
End Sub
Private Function FixStr(Str As String, L As Integer)
FixStr = Space(L - Len(Str)) & Str
End Function

Answer 4

Right("                                            " & str,20)