@media (prefers-color-scheme: ${dark or light}) { // ... }

樂透彩抽獎小程式

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n(6) As Integer
        '宣告6個位置分別讓電腦依序抽出六個號碼。
        For i = 1 To 6
            n(i) = Int(Rnd() * 49) + 1
            '抽出1~49之中其中一個號碼
            For j = 1 To i - 1
                If n(j) = n(i) Then n(i) = 0 : i = i - 1
                '如果遇到與之前抽過的號碼有衝突則清空該值,重新輸入。
            Next
            MsgBox(n(i))
            '利用訊息框顯示被抽中之開獎號碼。
        Next

        Label1.Text = n(1)
        Label2.Text = n(2)
        Label3.Text = n(3)
        Label4.Text = n(4)
        Label5.Text = n(5)
        Label6.Text = n(6)
        '最後利用六個Label顯示六個剛剛被抽中的號碼。
    End Sub
End Class

張貼留言

0 留言