Используя вложенные циклы , изобразить шахматную доску - VB
Формулировка задачи:
Используя вложенные циклы , изобразить шахматную доску ( каждую клетку пронумеровать , для чего воспользуйтесь формулой : j + (i -1 ) *nj для выражения номера через значения счетчиков обоих циклов ) и лоскутный ковер размером ( 8 * 8 ) , клетки которого имеют случайные цвета из палитры RGB . Предусмотрите наличие режима автоматической смены цветов лоскутного ковра ( использовать компонент Timer ) .
Задача есть, но нужно переделать её как написано в задаче по формуле(изменив переменные) и пронумеровать клеточки не используя CurrentX, CurrentY. ПОМОГИТЕ ПОЖАЛУЙСТА!
Решение задачи: «Используя вложенные циклы , изобразить шахматную доску»
textual
Листинг программы
Const n = 8 Sub Pic_Click() Picture1.Scale (1, 1)-(n + 1, n + 1) Randomize (Timer) For i = 1 To n For j = 1 To n r = Int(Rnd * 256): g = Int(Rnd * 256): B = Int(Rnd * 256) Picture1.Line (i, j)-(i + 1, j + 1), RGB(r, g, B), BF Picture1.Line (i, j)-(i + 1, j + 1), 0, B Picture1.CurrentX = i: Picture1.CurrentY = j Picture1.Print i + (j - 1) * n Next j Next i End Sub Private Sub Form_Load() Picture1.AutoRedraw = True Timer1.Enabled = False End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Timer1.Enabled = False Pic_Click Else Timer1.Interval = n * (X + n * Y) Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() Pic_Click End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д