Пример оформления отчета о самостоятельной работе
e – курс евро (44р.);
SumR – сумма в рублях;
SumD – сумма в долларах.
4.2. Присвоение каждому элементу управления индивидуальных свойств.
Таблица 2 - Индивидуальные свойства элементов формы
Элемент |
Свойства |
Значения |
Комментарии |
|---|---|---|---|
UserForm1 |
BackColor Caption |
Светло-зеленый Валюта |
Цвет формы Заголовок формы |
CommandButton1 |
BackColor Caption Font |
Зеленый Перевести Times New Roman, полужирный курсив, 24 |
Цвет кнопки Название Формат шрифта |
Label1 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Сумма в рублях Красный Times New Roman, полужирный курсив, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
Label2 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Сумма в долларах Красный Times New Roman, полужирный курсив, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
Label3 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Сумма в евро Красный Times New Roman, полужирный курсив, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
TextBox1 TextBox2 TextBox3 |
TextAlign Caption ForeColor Font |
2-fm TextAlign Белый Черный Times New Roman, полужирный, 26 |
Выравнивание текста Цвет фона Цвет шрифта Формат шрифта |
4.3. Создание исходного кода в соответствии с алгоритмом.
'Запускается программа Sub командной кнопкой 1
Dim d As Single
Dim e As Single
Dim SumR As Integer
Dim SumD AsSingle
Dim SumE As Single
' Задание типов переменных d (дробное число), e (дробное число), SumR (целое число), SumD (дробное число), SumE (дробное число)
d = InputBox("Введите курс доллара. d=?", "Ввод данных", 0)
e = InputBox("Введите курс евро. e=?", "Ввод данных", 0)
SumR = Val(TextBoxR.Text)
' Ввод значений переменных d, e с клавиатуры и ввод значения переменной SumR в текстовое поле R
SumD = SumR / d
SumE = SumR / e
' Вычисление значений SumD, SumE
TextBoxD.Text = CStr(SumD)
TextBoxE.Text = CStr(SumE)
' Вывести значение переменных SumD и SumE на экран в текстовые поля D и E
End Sub
' Конец программы Sub
Для этого нужно нажать кнопку Run. Если в программе есть ошибки, то откроется исходный код, и курсор будет стоять в той строке, где она допущена (выделяется желтым цветом). Если ошибок нет, то на форме исчезнут точки.
Ответ:
