攘姨稚士

49取6，不重複且由小至大排序 Public Class 抽6個 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click produce_number() End Sub Public Sub produce_number() Dim number(6) As Integer '用陣列取6個亂數 Dim i As Integer '抓亂數用 Dim j As Integer '抓亂數用 Dim exist As Boolean '確認用的指標 Randomize() For i = 0 To 5 '用i表示抽出6個數字 Do number(i) = (Int(49 - 1) * Rnd() + 1) ' 這樣num(1) = Int(Rnd() * 49) + 1 應該也行 exist = False For j = 0 To (i - 1) If number(i) = number(j) Then exist = True : Exit For Next If Not exist Then Exit Do Loop Next '-------------排序-------------- Dim k1 As Integer '排序用 Dim k2 As Integer '排序用 Dim TEMP As Integer '排序暫存交換用 For k1 = 0 To 5 For k2 = (k1 + 1) To 5 ...

vb真的很麻煩 不過也算是微軟的一大特色 下回繼續... 一安裝起來就要連裝 1.dotnet framework 2.中文語系 3.主程式 4.msdn 中間只要一樣不能裝 就不給安裝 然後災難就開始了 第一次進行到一半 對不起 找不到dotnet程式 明明就放在同一資料夾了 手動安裝 再次安裝 對不起 找不到lanpack程式 取消 再次手動安裝 第三次安裝 總算這次通過多一點了 但是msdn還是出問題裝不上去 微軟 I 服了 You~