我有个文本框是4位的，因为名字有长有短，怎样才能在不足4个字符的情况下用空格补足剩余的位置？

if len(text1.text) <4 then
select case len(text1.text)
case 1
text1.text = text1.text & " "
case 2
text2.text=text2.text & " "
case 3
text1.text=text1.text & " "
end select
end if

你判断字符的长度,如果不到4位的话就把字符串加上空格
dim strname as string =txt_name.Text
if txt_name.Text.Length = 4
strname=txt_name.Text
else if txt_name.Text.Length=3
strname+=" "
else if txt_name.Text.Length=2
strname+=" "
esle
MsgBox("你输入的名字不准确.")
End if

看看这样能不能达到你要的效果的呢.

建议楼上..你用还是到版去..

嗯。谢谢！学习

用SPACE函数
if len(text1)<4 then
text1=text1+space(4-len(text1))
end if

6楼的效率比较高啦，呵呵！！
Private Sub cmdAddSpace_Click()
Dim str As String
str = "888"
If Len(str) < 6 Then
str = str + Space(6 - Len(str))
End If
MsgBox "the length of '" & str & "' is " & Len(str) & ""
End Sub

差点受三楼的误导
还以为可以那样定义呢

他用的是