Определение максимального и минимального значений переменных. Задание 1. Даны две переменные А и В, значения которых вводятся командой Input. Определить максимальное и минимальное значения данных переменных. Вывести на форму значения данных переменных, максимальное и минимальное значения. Private Sub Button1_Click() Dim a, b as integer '1-й способ Input a, b Print "1- й способ" Print "a="; a; " b="; b If a > b Then Max = a Else Max = b Print "Максимальное значение ="; Max If a < b Then Min = a Else Min = b Print "Минимальное значение ="; Min

'2- й способ Input a, b Print "2- й способ " Print "a="; a; " b="; b Max = a If b > Max Then Max = b Print " Максимальное значение ="; Max Min = a If b < Min Then Min = b Print " Минимальное значение ="; Min End Sub Задание 2. Даны три переменные А, В и С, значения которых вводятся командой Input. Определить максимальное и минимальное значения данных переменных. Вывести на форму значения данных переменных, максимальное и минимальное значения.

Private Sub Button2_Click() Dim a, b, c as integer Input a, b, с Print "a="; a; " b="; b; " с="; с Max = a If b > Max Then Max = b If с > Max Then Max = с Print " Максимальное значение ="; Max Min = a If b < Min Then Min = b If с < Min Then Min = с Print " Минимальное значение ="; Min End Sub

Задание 3. Даны четыре переменные А, В, С и D, значения которых вводятся командой Input. Определить максимальное и минимальное значения данных переменных. Вывести значения данных переменных, максимальное и минимальное значения. На сколько максимальное больше минимального? Задание 4. Даны три переменные А, В и С, значения которых вводятся командой Input. Определить максимальное и минимальное и промежуточное значения данных переменных. Вывести значения данных переменных, максимальное, минимальное и промежуточное значения.

Задание 5. Даны три переменные А, В и С, значения которых вводятся командой Input. Определить максимальное значение данных переменных и переменную, которая имеет максимальное значение. Вывести значения данных переменных, максимальное значение и переменную, которая имеет максимальное значение. Private Sub Button5_Click() … записать определение максимального из трех переменных If a = Max Then Print "Максимальное значение имеет А" If b = Max Then Print "Максимальное значение имеет B" If c = Max Then Print "Максимальное значение имеет C" End Sub