攘姨稚士

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 ...

原來的zoomr只有200mb容量 升級可到4gb的容量 但是在flickr的勢力下 不知道可以支撐多久 不囉唆 原文升級方法見： 此 中文解說： 1.到beta.zoomr.com註冊帳號（sign-up） 2.上傳一張圖 3.點進自己的圖，按上方的all size 4.下方有html語法（div之類的那一串） 5.複製起來，貼在自己的blog上並且發表出去 6.到 此 輸入你的blog網址進行驗證 7.如果成功，你就有4gb的zoomr pro帳號了 by kj!

相關網址 ----文字摘要------由高至低--------- Norton Internet Security 2006 118.33 43.33 57.78 1000 Fonts 105.00 30.00 40.00 Kaspersky Internet Security 6.0.0.303 85.67 10.67 14.22 Yahoo Instant Messenger 8.0 85.67 10.67 14.22 AOL Instant Messenger 1.5 Preview 85.33 10.33 13.78 McAfee SecurityCentre 83.67 8.67 11.56 Kazaa 3 (+included crapware) 83.67 8.67 11.56 Trillian 3.1 Basic 83.33 8.33 11.11 VMWare Workstation5.5.1-19 83.33 8.33 11.11 Microsoft Visual Studio2005 Pro. 82.67 7.67 10.22 .NET Framework Runtime2.0 81.67 6.67 8.89 100 Fonts 80.33 5.33 7.11 Microsoft Office 2003(v11) Pro. 80.00 5.00 6.67 Windows Live Messenger(MSNM8) 80.00 5.00 6.67 Gaim 1.5.0 79.67 4.67 6.22 Adobe Photoshop CS 2 79.33 4.33 5.78 OpenOffice 2.0.3 79.00 4.00 5.33 Macromedia Studio MX 2004 79.00 4.00 5.33 QuickTime 7.1 78.67 3.67 4.89 DivX 6.3 78.67 3.67 4.89 DirectX 9.0c 78.67 3.67 4.89 Azureus 2.5.0.0 (+ Java Runtime) 78.33 3.33 4.44 BitDefender v10 78.00 3.00 4.00 WinRAR 3.60 78.00 3.00 4.00 Java Runtime 1.5.0.06 78....