...的字符啊。如text1=“1233651aa",提取重复字符到text2;text2=”13...
发布网友
发布时间:2024-05-14 17:35
我来回答
共1个回答
热心网友
时间:2024-05-29 08:42
Option Base 1
Private Sub Command1_Click()
Dim a$()
Text2 = ""
n = Len(Text1)
ReDim a(n)
For i = 1 To n
a(i) = Mid(Text1, i, 1)
'Print a(i)
Next
For i = 1 To n
For j = i + 1 To n
If a(i) = a(j) Then Text2 = Text2 + a(i)
Next j, i
End Sub