VB 空格串补齐

来源:百度知道 编辑:UC知道 时间:2024/05/18 12:00:56
s=text1.text
ss=text2.text
if len(s)>len(ss) then
ss=ss & int(len(s)-len(ss))" "
我想做,如果SS的长度小于S的话,就自动在后面加入空格补齐与S的长度相等

s=text1.text
ss=text2.text
If Len(s) > Len(ss) Then ss = ss & Space(Len(s) - Len(ss))

space(i)
产生i个空格组成的string 变量

a=int(len(s)-len(ss)
dim i as long
for i = 1 to a
text2.text = text2.text + " "
next