Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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. Установите на форме следующие объекты и измените им свойства:

 

Объект Свойство Значение
Рамки Name Frame1
Caption Укажите кол-во студентов
Name Frame2
Caption (отсутствует)
Visible False
Командные кнопки Name Cmd1
Caption Переопредеить массив
  Name Cmd2
  Caption Добавить в массив
Текстовые окна Name TxtKol
Name TxFamt
Name TxtName
Список Name List1
Остальные объекты - метки

 

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. Проверьте работу программы







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.