[VB6 ] 請問一下方塊圖該怎麼做?

[mroscar (小歐斯卡)]

我想要每個方格的顏色隨機出現灰或籃色

圖例:


        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■
        ■■■■■■■■■■


請問一下我的程式碼該怎麼修正呢?

Scale (0, 0)-(200, 200)

  X1 = Int(200 * Rnd)

  Y1 = Int(200 * Rnd)

  X2 = Int(200 * Rnd)

  Y2 = Int(200 * Rnd)

  w = Rnd

  If w > 0.5 Then c = QBColor(0)

  If w < 0.5 Then c = QBColor(1)


  DoEvents


  If w > 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF


  If w < 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF


  tt = Timer

  Do While Timer - tt = 0.1


  Loop

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.114.192.251