Дан двумерный массив, вводя столбец и строку выделить как показано на картинках - VB

Формулировка задачи:

Проблема в следующем, дан двумерный массив, вводя столбец и строку выделить как показано на картинках... вот код, спасибо!

                    Листинг программы
                
 
                        
                          
                    
Dim a(100), b(100), c(10, 10), k, l, m, n, g, d As Integer
Dim i, j, r, p As Long
 
Private Sub Command1_Click()
For i = 0 To 99
Text1(i).BackColor = RGB(255, 255, 255)
Next
For i = 0 To 9
For j = 0 To 9
c(i, j) = Round(Rnd * 100, 0)
Text1(r).Text = c(i, j)
r = r + 1
Next
Next
r = 0
 
End Sub
 
Private Sub Command4_Click()
p = 0
m = Text7.Text
n = Text8.Text
g = m - 1
d = n - 1
For i = 0 To 99
Text1(i).BackColor = RGB(255, 255, 255)
Next
p = o
For i = g To 9
For j = d To 9
If i - j = m - n Then
Text1(i * 10 + j).BackColor = RGB(0, 255, 255)
p = p + 1
End If
Next j
Next i
 
End Sub
 
Private Sub Form_Load()
For i = 0 To 99
Text1(i).Text = ""
Next
End Sub

и вот скриншоты как должно выглядеть:

Решение задачи: «Дан двумерный массив, вводя столбец и строку выделить как показано на картинках»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command4_Click()
p = 0
m = Text7.Text
n = Text8.Text
g = m - 1
d = n - 1
For i = 0 To 99
     Text1(i).BackColor = vbWhite
Next
p = 0
 
  i = g
  j = d
  Dim nn As Integer, mm As Integer
  nn = 1: mm = 1
  Do
      Text1(i * 10 + j).BackColor = vbBlue
      p = p + 1
      j = j + mm
      i = i + nn
      If i >= 9 Then nn = -nn:
      If j >= 9 Then mm = -mm:
  Loop Until (i > 9) Or (j > 9) Or (i < 0) Or (j < 0)
 
End Sub