推 mroscar:謝謝 這比我想像中的要好耶,不過有些東西我還不懂... 05/03 20:12
→ mroscar:我會好好研究的! 05/03 20:12
※ 引述《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