Решение прикладных задач на компьютере. Практикум для студентов



         

Результат = Зарплата / Рост


Перейдите в режим формы (Вид – Форма) и щелкните по кнопке. В результате выполнения этой операции изменится свойство Value (Значение) объекта Результат (по умолчанию). Вернитесь в режим Конструктора и добавьте в программу более сложную формулу, выполните расчеты.

Циклический алгоритм: вычисление суммы всех целых чисел в диапазоне значений полей Рост и Зарплата (или других). Перепишите программный модуль кнопки (или создайте новую кнопку) :

Результат =0

For I = Рост to  Зарплата : Результат = Результат + I : Next I

Запустите программу.

Ветвящийся алгоритм  с изменением цвета поля:

     условие                           условие выполнено                условие  не выполнено

If Судимость = True  Then Имя.Backcolor = vbRed Else  Имя.Backcolor = vbGreen

Цвет поля Имя должен становиться зеленым или красным в зависимости от значения поля Судимость. Опробуйте другие условия, например Рост > 170, Зарплата < 1000, сложные логические условия, например запрограммируйте  изменение свойства Visible (Видимый) окна Зарплата в зависимости от судимости, роста и зарплаты:

If Судимость = True AND  Рост > 170  OR Зарплата < 1000 Then

Зарплата. Visible = True

Else

Зарплата. Visible = False

EndIf

Расчеты можно проводить по данным, отобранным с помощью Поля со Списком; например, Поле со Списком можно использовать для выбора из базы данных названия товара, его стоимости и других параметров, а затем вычислить стоимость покупки и сформировать товарный чек. Создайте форму, позволяющую заполнять таблицу Цех. Для этого укажите Цех в качестве Источника данных и разместите на форме поля Фамилия, Деталь и Количество, кнопку и два Поля со Списком: одно с полем Имя из таблицы Анкета, другое с полями Деталь и Номер  из таблицы Детали. Переименуйте эти поля со списком в ПС1 и ПС2. В Обработчик события Нажатие кнопки (программу) поместите код

    Деталь = ПС2. Column(1)  ' Значение берется из второго столбца,

   Фамилия = ПС1    ' Первый столбец имеет индекс Column(0) по умолчанию                                            




Содержание  Назад  Вперед