广州若恒 > 文章列表
数据分类统计的算法 (浏览次数:3947)
发表于2007/12/4 13:27:00
VB6   Code

Dim   v()   As   String
Dim   n(9)   As   Long
Dim   i   As   Long

v   =   Split( "5,7,6,8,5,2,1,6,4,8,6,9,4,1,3,2,5 ",   ", ")
For   i   =   LBound(v)   To   UBound(v)
      n(CLng(v(i)))   =   n(CLng(v(i)))   +   1
Next

For   i   =   0   To   9
        Debug.Print   i   &   "次数: "   &   n(i)
Next
楼主

您必须登录后才能进行回复或者发起新的主题