Используя вложенные циклы , изобразить шахматную доску - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы