作业帮 > 数学 > 作业

12,13,14,15,21,23,24,25,31,32,34,35,41,42,43,45,51,52,53,54

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/20 18:51:05
12,13,14,15,21,23,24,25,31,32,34,35,41,42,43,45,51,52,53,54
点击按钮过滤重复 12 21 是一样的 31 13 一样

12,13,14,15,21,23,24,25,31,32,34,35,41,42,43,45,51,52,53,54
Private Sub Command3_Click()
Dim s() As String,t As String,i As Integer,j As Integer
Text1.Text = Replace(Text1.Text," ","")
s = Split(Text1.Text,",")
For i = 0 To UBound(s) - 1
For j = i + 1 To UBound(s)
If Len(s(i)) = 2 And Len(s(j)) = 2 And (s(i) = s(j) Or s(i) = StrReverse(s(j))) Then
s(j) = ""
End If
Next
Next
t = Join(s,",")
Do While InStr(t,",")
t = Replace(t,",",",")
Loop
Text1.Text = t
End Su