繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
發表文章前請先閱讀相關版規尊貴會員無限下載附件你準備好成為出色的版主了嗎？
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › 請問怎麼將未知的亂數做遞增排序
七龍珠波多野結ge柯南母乳幼女自慰
超級機器the twis空之軌跡3d avata截教掃地帶著超級energy
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

(4月新番)[繁]我的英
[繁]怪異與少女與神隱
[繁]神明渴求著遊戲。

[繁]我的英雄學院 第
✡ 斗破蒼穹 年番／鬥
[繁]怪獸八號05-
電腦新資訊電腦軟體討論電腦軟體資訊分享電腦硬體討論電腦硬體資訊分享電腦萌化版電腦系統 OS 討論電腦程式設計
電腦設計技術交流圖像設計及交流各類下載工具教學寬頻上網討論
返回列表發新帖

查看: 5608|回復: 3
打印上一主題下一主題

[求助]請問怎麼將未知的亂數做遞增排序[複製鏈接]

s125064417

Rank: 2Rank: 2

帖子
621
積分
571 點
潛水值
9240 米
跳轉到指定樓層
樓主
發表於 2014-4-27 02:19 PM|只看該作者|倒序瀏覽
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。
要設計產生亂數並自動排序
好不容易做出亂數卻停頓在做排序的困難上...
爬了文卻幾乎是用常數做排序
  1. Dim i, j, a(6) As Integer
  2.         Dim s As String
  3.         Randomize()
  4.         For i = 1 To 6
  5. c:
  6.             a(i) = Int(Rnd() * 49) + 1
  7.             For j = 1 To i - 1
  8.                 If a(i) = a(j) Then
  9.                     GoTo c
  10.                 End If
  11.             Next j
  12.             
  13.             s = s & " " & a(i)
  14.         Next


  17.             MsgBox(s)
  18.     End Sub
複製代碼
我想求助 遞增排序如何寫上去 拜託大大...


...
瀏覽完整內容，請先 註冊 或 登入會員
分享分享0收藏收藏0支持支持0
http://3rdeye.jp/products/testament/img/bnr/widB.jpg
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

使用道具檢舉

皇臾 該用戶已被刪除
頭香
發表於 2014-4-28 09:54 AM|只看該作者
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。
請參考下例，我是以泡沫排序方式來另行呼叫，輸出結果放在Listbox中
  1. Private Sub Command1_Click()
  2.     Dim i, j, a(6) As Integer
  3.     Dim s As String
  4.    
  5.     Randomize
  6.    
  7.     List1.Clear
  8.    
  9.     For i = 1 To 6
  10.         a(i) = Int(Rnd() * 49) + 1
  11.     Next
  12.    
  13.     sortA a
  14.    
  15.     For i = 1 To 6
  16.         List1.AddItem a(i)
  17.     Next
  18. End Sub

  20. Private Sub sortA(value() As Integer)
  21.     Dim i, j, temp As Integer
  22.    
  23.     For i = LBound(value) To UBound(value) - 1
  24.         For j = LBound(value) To UBound(value) - 1
  25.             If value(j) > value(j + 1) Then
  26.                 temp = value(j)
  27.                 value(j) = value(j + 1)
  28.                 value(j + 1) = temp
  29.             End If
  30.         Next
  31.     Next
  32. End Sub
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

snowflying

  尊貴會員

Melty Snow　　雪靈

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
3224
積分
24366 點
潛水值
77410 米
3樓
發表於 2014-4-28 03:45 PM|只看該作者
若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。
insertion sort
  1.     Dim i, j, tmp, a(6) As Integer
  2.    
  3.     Dim s As String
  4.     Randomize
  5.         
  6.     For i = 1 To 6
  7.             
  8.         tmp = Int(Rnd() * 49) + 1
  9.         For j = i - 1 To 0 Step -1
  10.             If a(j) > tmp Then
  11.                 a(j + 1) = a(j)
  12.             Else
  13.                 GoTo c
  14.             End If
  15.         Next
  16.                
  17. c:
  18.         a(j + 1) = tmp
  19.     Next


  22.     For i = 1 To 6
  23.         s = s & " " & a(i)
  24.     Next
  25.     MsgBox (s)
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
Melty Snow [雪靈]
回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

s125064417

Rank: 2Rank: 2

帖子
621
積分
571 點
潛水值
9240 米
4樓
發表於 2014-4-29 08:47 PM|只看該作者
如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。
snowflying 發表於 2014-4-28 03:45 PM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

insertion sort

非常感謝您!成功弄出來了~
http://3rdeye.jp/products/testament/img/bnr/widB.jpg
升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部