Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
PicMas2.Cls
For i = 1 To 5 For j = 1 To 5 If i > j Then mas2(i, j) = 1 If i < j Then mas2(i, j) = -1 If i = j Then mas2(i, j) = 0 PicMas2.Print mas2(i, j); " "; Next j PicMas2.Print Next i 10. Проверить работу программы.
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3 Тема: Динамические массивы данных. Цель: Получить навыки использования динамического массива данных Порядок выполнения 1. Установите на форме следующие объекты и измените им свойства:
2. Приведите свою форму в соответствие с образцом
3. В разделе общих объявлений набрать:
Dim student() As String Dim x, n As Integer 4. В окне кода процедуры обработки события Load для объекта Form набрать
Frame2.Caption = " Студент N " + Str(n + 1) 5. В окне кода процедуры обработки события Click для объекта Cmd1 набрать
x = Val(TxtKol.Text) ReDim student(x) ‘ переопределение размера массива List1.Clear Frame2.Visible = True Frame1.Visible = False n = 0 6. В окне кода процедуры обработки события Click для объекта Cmd2 набрать
If n < x Then student(n) = TxtFam.Text + " " + TxtName.Text TxtFam.Text = " " TxtName.Text = " " n = n + 1 Frame2.Caption = " Студент N " + Str(n + 1) If n = x Then Frame2.Caption = " " MsgBox " Массив заполнен полностью" Frame2.Visible = False Frame1.Visible = True For i = 0 To n - 1 List1.AddItem student(i) Next i End If End If
7. Проверьте работу программы
|