作者tpjobp (邪修岁月)
看板Visual_Basic
标题Re: [VB6 ] 请问一下方块图该怎麽做?
时间Thu May 3 18:06:03 2007
※ 引述《mroscar (小欧斯卡)》之铭言：
: 我想要每个方格的颜色随机出现灰或篮色
: 图例:
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
: ■■■■■■■■■■
改写过 不晓得是不是你要的
Dim Num As Byte
Cls
Num = InputBox("请问是多少乘多少的方块")
Scale (0, 0)-(Num, Num)
ReDim SQ(1 To Num ^ 2) As Boolean
Randomize Timer
For i = 1 To Num ^ 2
SQ(Int(Rnd * Num ^ 2) + 1) = True
Next i
X1 = 0
Y1 = 0
For i = 1 To Num ^ 2
If SQ(i) = True Then c = QBColor(7) Else c = QBColor(1)
X2 = X1 + 1
Y2 = Y1 + 1
Line (X1, Y1)-(X2, Y2), c, BF
X1 = X1 + 1
If i Mod Num = 0 Then Y1 = Y1 + 1: X1 = 0
Y1 = ((i \ Num)) * 1
Next i
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.81.88.26
1F：推 mroscar:谢谢 这比我想像中的要好耶,不过有些东西我还不懂... 05/03 20:12
2F：→ mroscar:我会好好研究的! 05/03 20:12