*
*
Основные элементы программирования.
Содержание:
Массивы.
Массивы- это наборы переменных одного типа, объединенные общим именем.
Существуют одномерные массивы (последовательности) и двумерные (таблицы). Каждый элемент массива имеет имя, тип, порядковый номер (индекс), значение.
Для того, чтобы работать с массивами их необходимо объявить, затем заполнить и только после этого приступать к работе.
1) Объявление массива:
Dim A(10) As Single (в массиве 11 элементов вещественного типа (нумерация индексов с 0));
Dim C(1 to 20) As Integer (в массиве 20 элементов целого типа).
2) Способы заполнения массива:
С помощью оператора присваивания:
For i = 1 To n
x(i) = Int(Rnd * 100)+1 ' заполнение случайными числами из отрезка [1; 100]
Next i
Ввод массива с клавиатуры:
For i = 1 To n
x(i) = InputBox("x(" & Str(i) & ")=", "Ввод массива с клавиатуры")
Next i
Пример: массив заполнен произвольными числами от 1 до 100. Сколько в массиве чисел, меньших 10?
Private Sub Form_Load()
Dim a(1 To 100) As Single
Dim i, k As Byte
Randomize
For i = 1 To 100
a(i) = Rnd * 100
If a(i) < 10 Then k = k + 1
Next i
Label1.Caption = "В массиве " & k & " чисел, меньших 10."
End Sub
Как вы можете заметить, в данной программе используются алгоритмические конструкции: линейный оператор, оператор ветвления и цикл со счетчиком.
Массивы элементов управления.
Использование массивов элементов управления экономит системные ресурсы во время работы приложения и значительно сокращает программный код. Чтобы создать массив элементов, надо поместить на форму первый из них, скопировать в буфер обмена, вставить на форму и утвердительно ответить в появившемся диалоговом окне на запрос о создании массива.
Пример: на форме создать массив из 3 меток.
Замечание: элементы массива будут иметь одинаковое имя Label1 и отличаться значением свойства Index: 0, 1, 2.
Для того, чтобы работать с массивами их необходимо объявить, затем заполнить и только после этого приступать к работе.
1) Объявление массива:
Dim A(10) As Single (в массиве 11 элементов вещественного типа (нумерация индексов с 0));
Dim C(1 to 20) As Integer (в массиве 20 элементов целого типа).
2) Способы заполнения массива:
С помощью оператора присваивания:
For i = 1 To n
x(i) = Int(Rnd * 100)+1 ' заполнение случайными числами из отрезка [1; 100]
Next i
Ввод массива с клавиатуры:
For i = 1 To n
x(i) = InputBox("x(" & Str(i) & ")=", "Ввод массива с клавиатуры")
Next i
Пример: массив заполнен произвольными числами от 1 до 100. Сколько в массиве чисел, меньших 10?
Private Sub Form_Load()
Dim a(1 To 100) As Single
Dim i, k As Byte
Randomize
For i = 1 To 100
a(i) = Rnd * 100
If a(i) < 10 Then k = k + 1
Next i
Label1.Caption = "В массиве " & k & " чисел, меньших 10."
End Sub
Как вы можете заметить, в данной программе используются алгоритмические конструкции: линейный оператор, оператор ветвления и цикл со счетчиком.
Массивы элементов управления.
Использование массивов элементов управления экономит системные ресурсы во время работы приложения и значительно сокращает программный код. Чтобы создать массив элементов, надо поместить на форму первый из них, скопировать в буфер обмена, вставить на форму и утвердительно ответить в появившемся диалоговом окне на запрос о создании массива.
Пример: на форме создать массив из 3 меток.
Замечание: элементы массива будут иметь одинаковое имя Label1 и отличаться значением свойства Index: 0, 1, 2.
В одном из примеров вы могли заметить совершенно не известный оператор InputBox. Данный оперратор относиться к специальным элементам интерфейса интерактивной программы, предназначенные для ввода и отображения информации.
1) Окно ввода: для ввода текстовой информации пользователем во время работы приложения. Вид команды в программном коде:
Символьная переменная = InputBox( «текст сообщения», «заголовок окна», «значение по умолчанию»)
Например:
nm = InputBox("Как тебя зовут?", "Знакомство")
В результате на экран выводится диалоговое окно. Введенная с его помощью информация помещается в символьную переменную и может быть использована при работе приложения. Если пользователь не ввел информацию в текстовое поле окна, нажал Cancel или кнопку закрытия окна, то в символьной переменной будет храниться пустая строка.
2) Окно сообщений: выдается на экран во время работы приложения.
а) Оператор MsgBox:
MsgBox «текст сообщения», встроенные константы, «заголовок окна»
Константы определяют, сколько и каких кнопок будет в окне, а также тип отображаемой в окне пиктограммы (критическая ошибка, запрос, предупреждение, информация).
Например: MsgBox "Наберите имя и нажмите Ok", vbInformation, "Неверный ввод"
б) Функция MsgBox, в отличие от оператора, возвращает значение:
Числовая переменная = MsgBox («текст сообщения», встроенные константы или код, «заголовок окна»)
Например: ex = MsgBox("Вы действительно хотите закончить работу с приложением?", vbYesNo, "Завершение работы")
Значения встроенных констант, определяющих тип пиктограммы и наличие кнопок в диалоговых окнах:
1) Окно ввода: для ввода текстовой информации пользователем во время работы приложения. Вид команды в программном коде:
Символьная переменная = InputBox( «текст сообщения», «заголовок окна», «значение по умолчанию»)
Например:
nm = InputBox("Как тебя зовут?", "Знакомство")
В результате на экран выводится диалоговое окно. Введенная с его помощью информация помещается в символьную переменную и может быть использована при работе приложения. Если пользователь не ввел информацию в текстовое поле окна, нажал Cancel или кнопку закрытия окна, то в символьной переменной будет храниться пустая строка.
2) Окно сообщений: выдается на экран во время работы приложения.
а) Оператор MsgBox:
MsgBox «текст сообщения», встроенные константы, «заголовок окна»
Константы определяют, сколько и каких кнопок будет в окне, а также тип отображаемой в окне пиктограммы (критическая ошибка, запрос, предупреждение, информация).
Например: MsgBox "Наберите имя и нажмите Ok", vbInformation, "Неверный ввод"
б) Функция MsgBox, в отличие от оператора, возвращает значение:
Числовая переменная = MsgBox («текст сообщения», встроенные константы или код, «заголовок окна»)
Например: ex = MsgBox("Вы действительно хотите закончить работу с приложением?", vbYesNo, "Завершение работы")
Значения встроенных констант, определяющих тип пиктограммы и наличие кнопок в диалоговых окнах:
Ученику
Учителю
Дополнительно
*
*
*
*
*
*
*
*