如何求得3个一组的五组数字中相同数字的个数?紧急
现有个问题,很急,请帮忙了!
有5组数字,分别是3位一组,例如 468 257 201 378 321,现想求得以下结果:
1、百位数相同的个数？例如上面百位相同的2有2组，3有2组，这样就是百位数相同的个数有2个，如果全是1开头的那就有5组，就是相同的个数有1个
2、上面5组数中，相同的数字合并后的数字共几个？例如上面数字中，合并重复的数字后，就有012345678 共9个数。
求解了！
[解决办法]
请问兄弟，这个要怎么引用啊？GetNum_2是解决第2个问题吗
-----------------------------
是啊。帮你整理一下，不是最好的方法，不过应该能符合你要要求吧
Function GetNum_1(ByRef a() As Integer) As Integer
Dim arr(0 To 9) As Integer
Dim i As Integer
Dim tmp As Integer
For i = 0 To UBound(a)
tmp = CInt(Left(a(i), 1))
arr(tmp) = arr(tmp) + 1
Next
For i = 1 To 9
If arr(i) > 1 Then GetNum_1 = GetNum_1 + 1
Next
End Function
Function GetNum_2(ByRef a() As Integer) As Integer
Dim s As String
Dim tmp As String, tmps As String
Dim i As Integer
For i = 0 To UBound(a)
s = s & a(i)
Next
Do
tmp = Left(s, 1)
If UBound(Split(s, tmp)) > 1 Then tmps = tmps & tmp
s = Replace(s, tmp, vbNullString)
Loop While Len(s)
GetNum_2 = Len(tmps)
End Function
Private Sub Command1_Click()
Dim a(5) As Integer
a(0) = 521
a(1) = 522
a(3) = 469
a(4) = 126
a(5) = 125
Print GetNum_1(a)
Print GetNum_2(a)
End Sub
