Вариант 16. Даны 2 переменные. Определить их произведение и вывести результат на экран

  • ID: 18544 
  • 10 страниц
200 рубСкачать

антиплагиат в подарок

Задачи.xls

Отчет.docx

Содержание:


Задача №1

Постановка задачи

Даны 2 переменные. Определить их произведение и вывести результат на экран

Текст программы

Sub task1()

Dim a As Integer, b As Integer, c As Long

a = 100

b = 200

c = a * b

MsgBox ("A*B=" & c)

End Sub

Блок-схема

Начало

a = 100

b = 200

c = a * b

Вывод

c

Начало

Задача №2

Постановка задачи

Составить блок-схему и функцию пользователя для определения премии торговому агенту от суммы совершенной им сделки. Если объем сделки до 3000 рублей, то премия 1.5%; если объем до 10000, то - 3%; если выше 10000, то - 5%. Предусмотреть проверку корректности данного “объем сделки“.

Текст программы

Public Function Премия(summ)

Dim pr As Single

If ((IsNumeric(summ) = False) Or summ < 0) Then

MsgBox "Ошибка в исходных данных", vbInformation, "Определение премии"

Else

If summ 3000 And summ 10000 Then pr = 5

End If

Премия = pr

End Function

Блок-схема

Начало