請問我要如何寫VB亂數(我有5*5個button 我要讓程式執行時 (Visual basic2005)VB亂數(請幫我檢查程式碼)我是不是哪裏寫錯瞭 - 趣味新聞網

發表日期 2009-04-24T10:30:34+08:00

     本帖最後由 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通通用成白色),或是是我哪裏寫錯瞭還是觀念不對.請幫幫我.

分享鏈接