Задание. Составить программу для заполнения массива Таbl(5,5) случайными целыми числами в интервале [0+150].
Результат вычислений вывести в виде таблицы Microsoft FlexGrid.

1. Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект Project.
2. Для создания приложения необходимо использовать следующие объекты управления:
   Label1 - метка;
   Command1 - командная кнопка;
   MS FlexGrid - таблица.
   Чтобы поместить элемент Microsoft Flex Grid на панель инструментов, необходимо в меню Project выбрать команду Components , в одноименном диалоге найти и отметить флажком элемент Microsoft Flex Grid Control 6.0 и нажать кнопку "Применить". Выбранный элемент появится на панели компонентов в виде значка (см. раздел "Панель инструментов").
   Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, так как других компонент нет.
   
   Рис. 4.6. Заготовка и результат работы программы
   
3. В работе следует использовать следующие свойства Properties:
   

   Label1	Caption = 'Группа, Ф.И.О. студентов'
   Commandl	Caption = 'Заполнить таблицу'
   form1	Caption = 'Практическая работа № 4'
   MS FlexGrid	Rows = 6, Cols = 6

4. Набрать программный код в соответствии с приведенным ниже текстом :
   
   Option Explicit
   Private Sub Commandl_Click()
   Dim Tab1(5, 5), c, w As Integer ' w - столбцы, с - строки
       for w = 0 To 4 ' начало цикла по строкам
      for с = 0 То 4 ' начало цикла по столбцам
      Tab1(w, с) = Int(Rnd * 150) ' заполнение таблицы целыми
      Next с ' случайными числами
   Next w
   Rem назначение количества строк и столбцов на нестандартном элементе
      MSFlexGridl.Rows = 6: MSFlexGridl.Cols = 6
      MSFlexGridl.Row = 0 ' нумерация столбцов на MSFlexGridl
   for с = 0 To 5
   MSFlexGridl.Col = с
   MSFlexGridl.ColWidth(с) = 500 ' ширина столбцов на MSFlexGridl
   MSFlexGridl.Text = с
   Next с
      MSFlexGridl.Col = 0 ' нумерация строк на MSFlexGridl
      for w = 1 To 5
      MSFlexGridl.Row = w
      MSFlexGridl.Text = w
      Next w
   Rem заполнение ячеек на MSFlexGridl элементами массива
   Tab1(5,5)
   for w = 1 To 5
      for с = 1 To 5
      MSFlexGridl.Col = с
      MSFlexGridl.Row = w
      MSFlexGridl.Text = Tabl(w - 1, с - 1)
      Next с
   Next w
   End Sub
   
5. Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы следует нажать кнопку "Заполнить таблицу". Таблица в окне элемента MSFlexGridl заполнится числами.
6. Результат работы программы показан на рис. 4.7. Повторите все сначала: нажимая на кнопку "Заполнить таблицу".
   
   
   Рис. 4.7. Результат работы программы
   
7. Для завершения выполнения программы необходимо нажать значок "закрыть" на форме или выполнить команду Run/End.
8. Сохранить файл программы и файл формы с соответствующими расширениями .bas и .frm.
9. Задание. Измените данные, количество строк и столбцов, тип чисел, размеры ячеек и другие свойства элемента MSFlexGridl и повторите запуск программы.