攘姨稚士

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

出處 http://blog.blueshop.com.tw/hammerchou/articles/27760.aspx 複製內容保留: VB.Net StrConv 函式介紹 Public Shared Function StrConv(ByVal Str As String, _ByVal Conversion As Microsoft.VisualBasic.VbStrConv, _Optional ByVal LocaleID As Integer) As String 參數 Str : 必要項。所要轉換的 String 運算式。 Conversion : 必要項。Microsoft.VisualBasic.VbStrConv 成員。指定所要執行的轉換型別的列舉值。 LocaleID : 選擇項。如果不同於系統 LocaleID 值，則使用此 LocaleID 值 (系統 LocaleID 值是預設值)。 Conversion 引數設定包括： 列舉成員 說明 VbStrConv.None 不執行轉換 VbStrConv.LinguisticCasing 使用大小寫的語言規格，而不是檔案系統 (預設值)。 只有配合大寫及小寫時才有效。 VbStrConv.UpperCase VbStrConv.UpperCase VbStrConv.LowerCase VbStrConv.LowerCase VbStrConv.ProperCase VbStrConv.ProperCase VbStrConv.Wide* VbStrConv.Wide* VbStrConv.Narrow* VbStrConv.Narrow* VbStrConv.Katakana** VbStrConv.Katakana** VbStrConv.Hiragana** VbStrConv.Hiragana** VbStrConv.SimplifiedChinese* VbStrConv.SimplifiedChinese* VbStrConv.TraditionalChinese* VbStrConv.TraditionalChinese* 實際運用: 透過 StrConv 函式來進行繁體字及簡體字的相互轉換 Dim strData As Strin...

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