Написать программу для вывода матрицы - VB

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

Помогите написать программу для вывода матрицы чтобы, можно было ее транспонировать и пользователю вводить ( менять) числа данной матрицы и задавать размерность , чтобы это было все графически . Не могу найти ничего подходящего

Решение задачи: «Написать программу для вывода матрицы»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim n&, i&, y0!, x0!, h!, w!
  n = Val(Text1)
  If n < 1 Or n > 10 Then
    MsgBox "Введите число от 1 до 10"
    Exit Sub
  End If
  For i = 1 To Text2.Count - 1 'удаление существующей матрицы
    Unload Text2(i)
  Next
  With Text2(0)
    y0 = .Top
    x0 = .Left
    h = .Height - 1   '-1, чтобы границы были тоньше, Scalemode=3 (pixel)
    w = .Width - 1
    .Text = 0
  End With
  For i = 1 To n * n - 1      'создание новой матрицы
    Load Text2(i)
    With Text2(i)
      .Visible = True
      .Top = y0 + h * (i Mod n)
      .Left = x0 + w * (i \ n)
      .Text = i
    End With
  Next
End Sub
                        

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

6 голосов , оценка 4 из 5

Похожие ответы