如何将多次输入的数字，在每次之间抽出相同数字?谢高手指点!

Question

如何将多次输入的数字，在每次之间抽出相同数字?谢高手指点!

Answer 1

在文本框中输入多个数字,,按下BUTTON按钮,如果在输入的数字中有相同的就将相同的数字显示在一个LABEL里面,,即是如果输入:12,2,3,4,5,45,12    在这些数字里面12是相同的,,这样12就会在LABEL里面显示出来,,这个效果我不会实现请高手指点!!!!!!

Answer 2

Private Sub Command1_Click()
Dim Temp As String, N() As String, i As Integer, j As Integer, Tstr As String
Temp = Text1.Text
N = Split(Temp, ",")  '以逗号为分割标致，读取TEXT1中的字符
For i = LBound(N) To UBound(N) - 1
    Tstr = N(i)
    For j = LBound(N) + 1 To UBound(N)
        If Tstr = N(j) Then
           Label1.Caption = N(j)
           Exit Sub
        End If
    Next
Next
    
End Sub

Answer 3

Private Sub Command1_Click()
Dim Temp As String, N() As String, N_1() As String, i As Integer, j As Integer, k As Integer, Tstr As String
Dim IsSample As Integer, IsSample1 As BooleanLabel2.Caption = ""
Temp = Text1.Text
N = Split(Temp, ",")  '以逗号为分割标致，读取TEXT1中的字符
For i = LBound(N) To UBound(N)
    Tstr = N(i)
    IsSample = 0
    'Label2.Caption = Label2.Caption & N(i)
    For j = LBound(N) To UBound(N)
        If Tstr = N(j) Then
          IsSample = IsSample + 1
          'Exit For
        End If
    Next
    If IsSample > 1 Then
      N_1 = Split(Label2.Caption, ",")
      IsSample1 = False
      For k = LBound(N_1) To UBound(N_1)
        If N(i) = N_1(k) Then
          IsSample1 = True
          'Exit For
        End If
      Next
      If IsSample1 = False Then
        Label2.Caption = Label2.Caption & "," & N(i)
      End If
    End If