1个回答
展开全部
Private Sub Command1_Click()
Dim i%
arr = Split(Text1.Text)
For i = 0 To UBound(arr)
p arr(i)
Next
Text2.Text = Mid(Text2.Text, 2)
Text2.MultiLine = True
End Sub
Sub p(ByVal t1$, Optional ByVal t2$ = "")
Dim i%, l%, t$, tt1$, tt2$
l = Len(t1)
If l = 1 Then
t = t2 & t1
If InStr(Text2.Text, t) = 0 Then
Text2.Text = Text2.Text & " " & t
End If
Else
For i = 1 To l
t = Mid(t1, i, 1)
tt1 = Replace(t1, t, "", , 1)
tt2 = t2 & t
p tt1, tt2
Next
End If
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询