Private Sub CommandButton1_Click()

Dim x As Single, у As Single, z As Single

х = Val(TextBox1.Text)

у = Val(TextBox2.Text)

If х > у Then z = х - у Else z = у - х + 1

Label3.Caption = "Результат z= " & z

End Sub

4. Изучите код процедуры

Функция Val преобразует вводимое значение из текстового формата в числовой. Свойство Text элемента "Поле" является свойством по умолчанию, т.е. при обращении к этому свойству можно не указывать его после точки. Таким образом, записи х = Val(TextBox1.Text) и х = Val(TextBox1) равноправны

5. Напишите для события Click второго элемента "Кнопка" код процедуры выхода из программы.

6. Выполните запуск приложения. Проверьте полученный результат.

7. Добавьте на форму еще 1 элемент "Надпись" и 1 элемент "Поле".

8. Составьте процедуру для решения следующей задачи: Даны действи­тельные числа а, b, с. Подсчитать количество и сумму нечетных чисел среди трех чисел а, b, с. Для подсчета количества и суммы используйте следующий алгоритм:

k=0

sum=0

If a mod 2 <> 0 Then k=k+1: sum=sum+a

If b mod 2 <> 0 Then k=k+1: sum=sum+b

…

ЗАДАНИЕ №1

Даны три действительных числа. Напишите процедуру для решения задачи согласно варианту. Для выполнения процедуры измените созданную вами форму.

Варианты заданий

1. Количество пар равных между собой чисел.

2. Количество положительных нечетных чисел.

3. Произведение и сумму ненулевых чисел.

4. Сумму положительных чисел, кратных 5.

5. Количество пар равных по абсолютному значению между собой чисел.

6. Среднее арифметическое ненулевых чисел.

7. Сумму отрицательных чисел из диапазона от -10 до -1.

8. Количество и произведение тех чисел, которые при делении на 7 дают остаток 1.

9. Количество пар взаимно противоположных чисел.

10. Среднее арифметические чисел, больших 1, но меньших 10.

Тема №2: «Оператор выбора»

За счёт вкладывания одного условного оператора в другой, конструкция усложняется и становится тяжёлой для восприятия. В подобных случаях хорошей альтернативой оператору If служит оператор выбора Select Case, который позволяет выбрать одно из нескольких возможных продолжений программы. Оператор Select Case удобно использовать, когда в зависимости от значения некоторого выражения, имеющего конечное множество допустимых значений, необходимо выполнить разные действия. Он также относится к условным операторам, но имеет другой вид:

Select Case < Выражение >

Case < 3начение 1 >

< оператор 1 >

[ Case < 3начение N >

< оператор N >]

[ Case Else

<оператор N+1,]