Question

vb文本框里有空格怎么去掉。

我请别人帮忙写了个程序，建3个文本一个按钮
第一个文本框输入120组三位数字组合如123,124,125等共120组。
第二个文本框输入0-9任意一个数字，可以是单数1,也可以是两个数，1和7，
第三个文本框能把包含任意一个或者两个单数（比如1和7 ，输入1空格7）的所有组合找出来，并且去掉重复的，比如123，和132这属于一样的，是重复的。这种只保留一个。

他做到了，代码是
Dim a, b, c

Private Sub Command1_Click()
Dim l1, l2, l3 As String
Dim t As Boolean
If Len(Text1.Text) <> 0 Then l1 = Text1.Text Else MsgBox "输入错误！": End
If Len(Text2.Text) <> 0 Then l2 = Text2.Text Else MsgBox "输入错误！！": End
a = Split(l1, " ", -1, 1)
b = Split(l2, " ", -1, 1)
la = UBound(a)
lb = UBound(b)
l3 = ""
'数据筛选
For i = 0 To lb
t = True
For j = 0 To la
If InStr(1, b(i), a(j)) <> 0 Then t = False
Next
If t = False Then l3 = l3 & b(i) & " "
Next
c = Split(l3, " ", -1, 1)
lc = UBound(c)
'冒泡法对数组c排序
For i = 0 To lc
For j = i To lc
If Val(c(i)) > Val(c(j)) Then k = c(i): c(i) = c(j): c(j) = k
Next
Next
'去重
l3 = ""

For i = 0 To lc - 1
If Val(c(i)) < Val(c(i + 1)) Then l3 = l3 & c(i) & " "
If Val(c(i)) = Val(c(i + 1)) Then i = i + 1: l3 = l3 & c(i) & " "
Next
If Val(c(lc - 1)) < Val(c(lc)) Then l3 = l3 & c(lc)
'输出
Text3.Text = l3
End Sub
都对，就是提交后文本框最开头部分多了一个空格，每次必须手动删除那个前面的空格，请问怎么样能删除掉那个最前面的空格，是我的那个朋友有的代码有问题吗？还是有其他办法可以删除空格？

Answer 1

你看看你的属性值里的txt是不是有个空格。或者就是你的。text=“”；这里面有个空格， 你可以好好检查下

Answer 2

圆明园