VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 903|回复: 4

[求助] 请问数组中找相同最快的算法是什么?

[复制链接]
发表于 2019-3-25 15:40:35 | 显示全部楼层 |阅读模式
在一个数组中有很多的数据,我想挨个找到相同的,我用的是最傻也最费时的办法--每个都比对一次,如下:
  1. Dim a(1 To 10) As String

  2. Private Sub Form_Load()
  3.     For i = 1 To 10
  4.         For j = 1 To 10
  5.             If a(i) = a(j) Then List1.AddItem a(i) & a(j)
  6.         Next
  7.     Next
  8. End Sub
复制代码

这个只是举个例子,数组里没加数值,大家知道什么意思就行了,这不是重点,重点是用我的方法一对相同项会出现两次,请问最快的算法是什么?
先谢谢了!
发表于 2019-3-29 08:15:08 | 显示全部楼层
Dim a(1 To 10) As String

Private Sub Form_Load()
    For i = 1 To 9
        For j = i+1 To 10
            If a(i) = a(j) Then List1.AddItem a(i) & a(j)
        Next
    Next
End Sub
回复 支持 反对

使用道具 举报

发表于 2019-4-3 23:05:49 | 显示全部楼层
hashset(C++ STL 里和 Python 的set)
VB里可以用字典对象
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-4-11 14:29:05 | 显示全部楼层
cwa9958 发表于 2019-3-29 08:15
Dim a(1 To 10) As String

Private Sub Form_Load()

谢谢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-4-11 14:29:38 | 显示全部楼层
cwa9958 发表于 2019-3-29 08:15
Dim a(1 To 10) As String

Private Sub Form_Load()

谢谢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-4-22 16:00

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表