Экзамен по информатике

Sub m_1()
MsgBox "Меня зовут Елизавета"
End Sub

Sub m_1()
'Создание на пластинке оперативной памяти поименнованной области (массива) myArray.
'1 To - означает, что элементы массива будет нумероваться с единицы
'(по умолчанию массив нумеруется с нуля, что неудобно непрограммисту).
'String означает, что в массиве будет содержаться только текст (а не числа, например).
Dim myArray(1 To 5) As String
'Создание на пластинке оперативной памяти поименнованной области (переменной) i.
'Integer означает, что в переменной будут содержаться только целые числа (не дробные).
Dim i As Integer
'Заполнение массива данными.
myArray(1) = "Фамилия Имя"
myArray(2) = "Год рождения"
myArray(3) = "Образование "
myArray(4) = "Пол"
myArray(5) = "Семейное положение"
'Заполнение первого листа Excel данными.
'For i ... To ... Next i - это называется цикл.
For i = 1 To 5
    'Помещение в Excel вопросов.
    Worksheets(1).Cells(i, 1).Value = myArray(i)
    'Помещение в Excel ответов.
    Worksheets(1).Cells(i, 2).Value = InputBox("Введите " & myArray(i))
Next i
End Sub

Sub m_1()
Dim myArray(1 To 5) As String
Dim i As Integer
For i = 1 To 5
    myArray(i) = InputBox("Ââåäèòå íàçâàíèå ãîðîäà")
    Debug.Print i & " ãîðîä " & myArray(i)
Next i
End Sub

Sub m_1()
Dim Количество As Integer
'Single означает, что в перменной Стоимость могут быть как целые, так и дробные числа.
Dim Цена As Single
Dim Скидка As Single
'Вывод на экран результатов вычисления, происходящих в функции под именем Стоимость.
'Функции Стоимость передаём два числа, которые содержатся в двух переменных
'Количество и Скидка.
Количество = InputBox("Введите количество товара")
Цена = InputBox("Введите цену товара")
MsgBox Стоимость(Количество, Цена)
End Sub
Function Стоимость(Количество As Integer, Цена As Single)
Dim Скидка As Single
'Select Case используется для того, чтобы выбрать,
'какое действие выбрать в зависимости от числа, находящего в переменной Количество.
Select Case Количество
'Если в переменной Количество содержится число больше 100 или равно 100, то
Case Is >= 100
    'то в переменную Скидка помещаем число 0.02
    Скидка = 0.02
Case Is >= 50
    Скидка = 0.05
Case Is >= 10
    Скидка = 0.1
End Select
'Собственно расчёт. Здесь Стоимость - это и есть имя функции.
Стоимость = Количество * Цена - (Количество * Цена * Скидка)
End Function

'Single означает, что в перменной Цена могут быть как целые, так и дробные числа.

'Количество и Цена.