平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 1452|回復: 4
打印 上一主題 下一主題

[求助] 請問數組中找相同最快的算法是什么?

[復制鏈接]
跳轉到指定樓層
1
發表于 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
復制代碼

這個只是舉個例子,數組里沒加數值,大家知道什么意思就行了,這不是重點,重點是用我的方法一對相同項會出現兩次,請問最快的算法是什么?
先謝謝了!
2
發表于 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
回復 支持 反對

使用道具 舉報

3
發表于 2019-4-3 23:05:49 | 只看該作者
hashset(C++ STL 里和 Python 的set)
VB里可以用字典對象
回復 支持 反對

使用道具 舉報

4
 樓主| 發表于 2019-4-11 14:29:05 | 只看該作者
cwa9958 發表于 2019-3-29 08:15
Dim a(1 To 10) As String

Private Sub Form_Load()

謝謝
回復 支持 反對

使用道具 舉報

5
 樓主| 發表于 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-5-26 20:07

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
平码公式规律出肖 pk10最牛稳赚计划软件 365彩票app手机版下载 必赢客软件使用技巧 全网最早原创36码特国网址 皇家pk10计划软件手机版 七星彩购买前四位网站 时时彩全包组三方法 时时彩后三技巧稳赚法 体育彩有官网投注吗 黑龙江时时投注