[讨论]有点难度的汇总

tycp

我喜欢从轮子做起,没办法,只能这样长啊!

彭希仁

QUOTE:

以下是引用tycp在2007-11-28 17:29:10的发言：

用二维数组做的,比一维数组快很多!

Dim p As Integer, pp As Integer
Dim jxgz() As String, sf() As String

Sub check()
Dim m As Integer
Dim arr
Dim s1 As Integer, s2 As String
Dim over() As Boolean, over1() As Boolean
Dim box() As Integer
With Worksheets("数据")
p = .Range("a65536").End(xlUp).Row
arr = .Range("a2:c" & p)
End With
m = UBound(arr, 1)
ReDim over(1 To m) As Boolean
ReDim over1(1 To m) As Boolean
ReDim jxgz(1 To m) As String
ReDim sf(1 To m) As String

'提取不重复的机型故障-----------------------------------------------------------
p = 0
For i = 1 To m
If over(i) = False Then
p = p + 1
jxgz(p) = Trim(arr(i, 2)) & Trim(arr(i, 3))
over(i) = True
For j = 1 To m
If i <> j And over(j) = False Then
src = Trim(arr(i, 2)) & Trim(arr(i, 3))
des = Trim(arr(j, 2)) & Trim(arr(j, 3))
If src = des Then
over(j) = True
End If
End If
Next
End If
Next
'提取不重复的省份---------------------------------------------------------------
pp = 0
For i = 1 To m
If over1(i) = False Then
pp = pp + 1
sf(pp) = Trim(arr(i, 1))
over1(i) = True
For j = 1 To m
If i <> j And over1(j) = False Then
src = Trim(arr(i, 1))
des = Trim(arr(j, 1))
If src = des Then
over1(j) = True
End If
End If
Next
End If
Next

ReDim box(1 To p, 1 To pp + 1) As Integer
For i = 1 To m
s1 = findnum(Trim(arr(i, 2)) & Trim(arr(i, 3)), True)
box(s1, pp + 1) = box(s1, pp + 1) + 1
s1 = findnum(Trim(arr(i, 2)) & Trim(arr(i, 3)), True)
s2 = findnum(Trim(arr(i, 1)), False)
box(s1, s2) = box(s1, s2) + 1
Next

Range("d2").Resize(p, pp + 1) = box

End Sub
Function findnum(str As String, flag As Boolean) As Integer
Dim i As Integer
If flag = True Then
For i = 1 To p
If jxgz(i) = str Then
findnum = i
Exit For
End If
Next
Else
For i = 1 To pp
If sf(i) = str Then
findnum = i
Exit For
End If
Next
End If
End Function

试了一下,和题目要求有点不一样.

tycp

QUOTE:

以下是引用彭希仁在2007-11-28 17:42:37的发言：

试了一下,和题目要求有点不一样.

题目还可以再改一下，更具有通用性，比如说，搞10几个字段，可以按任意几个字段进行分类汇总！！ADO+SQL应该可以搞出来！！纯数组不知道谁能搞得出来呢？

彭希仁

QUOTE:

以下是引用tycp在2007-11-28 17:59:41的发言：

题目还可以再改一下，更具有通用性，比如说，搞10几个字段，可以按任意几个字段进行分类汇总！！ADO+SQL应该可以搞出来！！纯数组不知道谁能搞得出来

一步一步来

顽皮公主

大哥这个代码,我就看不明白了,还是先把我的作业完成了,再来看,强啊

tycp

彭兄,你那个捡金币的算法是怎么想出来的?你有没有学过类似的算法思想!如果没学类似的东西就能想出来 ,真的是天才啊!!!

彭希仁

QUOTE:

以下是引用tycp在2007-11-29 9:09:02的发言：

彭兄,你那个捡金币的算法是怎么想出来的?你有没有学过类似的算法思想!如果没学类似的东西就能想出来 ,真的是天才啊!!!

我是半路出家的和尚，没有经过专业的培训。要说东西从那里学来的，只就经常到EH里面逛逛，聊聊，再自已多写写

tycp

QUOTE:

以下是引用彭希仁在2007-11-29 9:20:40的发言：

我是半路出家的和尚，没有经过专业的培训。要说东西从那里学来的，只就经常到EH里面逛逛，聊聊，再自已多写写

厉害,你说什么样的人才称的是天才,就是没学过动态规划,就写出了跟动态规划一样的程序!!!就是无师自通,自创算法的人称的上是天才!!其他经过强化训练才达到的不算!

ldy888

 

我已检验过楼主，严重同意楼上的说法。

[此贴子已经被作者于2007-11-29 11:19:11编辑过]

BrandSex

QUOTE:

以下是引用tycp在2007-11-29 10:11:45的发言：

厉害,你说什么样的人才称的是天才,就是没学过动态规划,就写出了跟动态规划一样的程序!!!就是无师自通,自创算法的人称的上是天才!!其他经过强化训练才达到的不算!

一个论坛不能容下两个天才，除非一公一母，他的程序是凑出来的好伐，这也算是天才，那我岂不是天才中的天才，人称the gods of god。