VB中去除重复数字

发布网友发布时间：2022-07-14 15:36

共1个回答

热心网友时间：2023-09-29 03:22

Private Sub Text1_Change()
Text4 = ""
For i = 1 To Len(Text1)
For j = 1 To Len(Text2)
If Mid(Text1, i, 1) = Mid(Text2, j, 1) Then GoTo a
Next
For j = 1 To Len(Text3)
If Mid(Text1, i, 1) = Mid(Text3, j, 1) Then GoTo a
Next
Text4 = Text4 & Mid(Text1, i, 1)
a:
Next
End Sub

Private Sub Text2_Change()
Text1_Change
End Sub

Private Sub Text3_Change()
Text1_Change
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com