Http://community.9cbs.net/expert/topic/3696/3696464.xml?temp =.5409204
Now two arrays A (10), B (10) where 10 different numbers contain 10 different numbers, so that the B array is equal to the number of numbers in the corresponding A array and if there is the same Digital, B array must have a part of the same name !!
The following debugging
DIM A (10) AS INTEGER, B (10) AS INTEGER
'Input Data A (0) = 12A (1) = 45A (2) = 67A (3) = 62A (4) = 67A (5) = 78A (6) = 66A (7) = 91A (8) = 12A ( 9) = 26
DIM C (9) AS INTEGERDIM I AS INTEGER, J AS Integer I = 0 to 9 c (i) = a (i) Next
'Temporary Index, Temporary Number, and Surplus Dip AS INTEGERDIM TMP1 AS INTEGERDIM TMP2 AS INTEGERTMP = 0TMP1 = 0TMP2 = 10
i = 0do untric tmp2 = 0 i = i 1 'Find a maximum number of index TMP = 0 for j = 1 to 9 if c (j)> c (tmp) TMP = j end if next tmp1 = c (TMP) 'Maximum number
'Sort Number Settings B (TMP) = I C (TMP) = -32000' Excluded the TMP2 = TMP2 - 1 'Remaining Number of TMP2 - 1
'Finding the number of mats with the maximum number for j = 0 to 9 if c (j) = tmp1 THEN B (J) = i c (j) = -32000' Excluded the found TMP2 = TMP2 - 1 'remaining number -1 End if nextloop
For i = 0 to 9 debug.print B (i) Next
