Visual Basic FAQ

Заполнить в памяти матрицу В размерности m на n

Заполнить в памяти ЭВМ матрицу В размерности m*n так, чтобы каждый элемент был равен сумме его индексов строки и столбца. Полученную матрицу напечатать. Проанализировать выполнение программы на примере m=3, n=4.

Private Sub Command1_Click()
 For i = 1 To MSFlexGrid1.Cols
 For t = 1 To MSFlexGrid1.Rows
  MSFlexGrid1.TextMatrix(t - 1, i - 1) = t + i 'записывает в ячейку сумму индексов
 Next t
 Next i
End Sub

Private Sub Form_Load()
MSFlexGrid1.Rows = InputBox("Количество строк") 'задает количество строк
MSFlexGrid1.Cols = InputBox("Количество столбцов") 'столбцов
End Sub

Запись опубликована on 19.12.2009 at 9:50 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.