[電腦討論]

(Visual basic2005)VB亂數(請幫我檢查程式碼)我是不是哪裡寫錯了

本帖最後由 yea620 於 2009-5-6 12:17 編輯

請問我要如何寫VB亂數(我有5*5個button,我要讓程式執行時,可以讓那5*5個button隨機產生總共四種的不同顏色在button上)
以下是我自己寫的:
Dim b(25) As Button
        Dim c, i, a As Integer
        b(1) = Button1
        b(2) = Button2
        b(3) = Button3
        b(4) = Button4
        b(5) = Button5
        b(6) = Button6
        b(7) = Button7
        b(8) = Button8
        b(9) = Button9
        b(10) = Button10
        b(11) = Button11
        b(12) = Button12
        b(13) = Button13
        b(14) = Button14
        b(15) = Button15
        b(16) = Button16
        b(17) = Button17
        b(18) = Button18
        b(19) = Button19
        b(20) = Button20
        b(21) = Button21
        b(22) = Button22
        b(23) = Button23
        b(24) = Button24
        b(25) = Button25
        For i = 1 To 25
            Randomize()
            a = Int(Rnd() * 5)
            c = Int(Rnd() * 5)
            If c = 1 Then
                b(i).BackColor = Color.Blue
            ElseIf c = 2 Then
                b(i).BackColor = Color.Red
            ElseIf c = 3 Then
                b(i).BackColor = Color.Green
            ElseIf c = 4 Then
                b(i).BackColor = Color.Yellow
            End If
        Next i
        For i = 1 To 25
            If b(i).BackColor = Color.White Then
                Randomize()
                If c = 1 Then
                    b(i).BackColor = Color.Blue
                ElseIf c = 2 Then
                    b(i).BackColor = Color.Red
                ElseIf c = 3 Then
                    b(i).BackColor = Color.Green
                ElseIf c = 4 Then
                    b(i).BackColor = Color.Yellow
                End If
            End If
        Next i
    End Sub
但是我有了新問題,請問我該如何讓程式在執行時不再出現白色的BUTTON(我把程式裡的BUTTON的BACKCOLOR通通用成白色),或是是我哪裡寫錯了還是觀念不對.請幫幫我.

風箏惡魔:
現在時間2009.04.25 21:30
請於2009.04.27 21:30前
依版規規定修改標題格式
則刪帖論...
喜歡這篇文章嗎?
回覆 2
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top