Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом
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. Проверьте работу программы
|
|