Закрасить диагонали от выбранного элемента - VB
Формулировка задачи:
Дан двумерный массив 10х10. Указав строку и столбец элемента, нужно найти сам элемент.Это я сделала. А вот дальше от этого элемента нужно провести две диагонали вниз, закрасить их и все, что находится ниже. И это вызвало у меня затруднения. Помогите, пожалуйста.
Листинг программы
- For i = 0 To 99
- b(i) = Round(Rnd * 1000, 0)
- Next
- For i = 0 To 9
- For j = 0 To 9
- a(i, j) = b(j + i * 10)
- txta(j + i * 10).Text = b(j + i * 10)
- Next
- Next
- txta((Val(Text1.Text) - 1) * 10 + (Val(Text2.Text) - 1)).BackColor = RGB(30, 125, 53)
Решение задачи: «Закрасить диагонали от выбранного элемента»
textual
Листинг программы
- For i = 0 To 99
- b(i) = Round(Rnd * 1000, 0)
- Next
- For i = 0 To 9
- For j = 0 To 9
- a(i, j) = b(j + i * 10)
- txta(j + i * 10).Text = b(j + i * 10)
- Next
- Next
- jl=Val(Text2.Text) - 1
- jr=Val(Text2.Text) - 1
- for i=Val(Text1.Text-1)to 9
- if jl>=0then txta(i * 10 + jl).BackColor = RGB(30, 125, 53)
- if jr<=9then txta(i * 10 + jr).BackColor = RGB(30, 125, 53)
- jl=jl-1
- jr=jr+1
- next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
