作者mroscar (小欧斯卡)
看板Visual_Basic
标题[VB6 ] 请问一下方块图该怎麽做?
时间Thu May 3 15:28:17 2007
我想要每个方格的颜色随机出现灰或篮色
图例:
■
■■
■■
■■
■■
■
■
■■
■■■■■■
■
■
■■
■■
■■
■■
■
■
■■■
■■■
■■
■
■
■■
■■
■■
■■
■
■
■■
■■
■■
■■■
■■■■■
■■
■■
■
■
■■
■■
■■
■■
■
请问一下我的程式码该怎麽修正呢?
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