樂透彩開獎號碼

用VB撰寫1個模擬樂透彩開獎的程式

題目：撰寫一個模擬樂透彩開獎的副程式

以及一個依據氣泡排序法來遞增排列開獎號碼(不含特別號)的副程式。

提示：(1)樂透彩開獎號碼有6個數字及1個特別號

每一個數字皆需介於1~42之間。


Dim a(7)Private Sub Form_Load() Call 樂透End SubSub 樂透() Randomize For i = 1 To 6age: r = Int(Rnd * 42) 1 a(i) = r For j = 1 To i - 1 If a(j) = a(i) Then GoTo age: Next Next For i = 1 To 6 For j = i 1 To 6 If a(i)

arrow
arrow
    文章標籤
    樂透彩開獎號碼 大樂透彩開獎號碼 樂透彩中獎號 台灣樂透彩 大樂透彩開獎 樂透彩程式 樂透彩號碼 樂透彩解夢 樂透彩玩法 樂透彩開獎時間樂透彩 Next End Sub Sub 樂透 模擬 氣泡排序法 樂透 程式 Rnd Randomize Dim
    全站熱搜

    qaz1014080 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄