ПОНЯТНО О Visual Basic NET (том 2)

Еще примеры и задания


Разберите еще несколько примеров работы оператора If:

ФРАГМЕНТ ПРОГРАММЫ

ПЕЧАТЬ

a=10

If a>2  Then Debug.WriteLine("!!!") Else  Debug.WriteLine("!")

!!!



a=4

If a>5     Then a=a+10     Else  a=a-1

Debug.WriteLine(a)

3

s=6

If s-8<>0  Then s=2*s

Debug.WriteLine(s)

12

s=6

If s<0     Then s=2*s

s=s+1

Debug.WriteLine(s)

7

Задание 5.   

Определить без компьютера, какие 3 числа напечатает следующий фрагмент:

        k = 20 : k = k + 10 : If k + 10 <> 30 Then k = 8 Else k = k - 1

        Debug.WriteLine(k)

        k = 20 : k = k + 10 : If k + 10 = 30 Then k = 8 Else k = k - 1

        Debug.WriteLine(k)

        p = 1 : If p > 0 Then p = p + 5

        If p > 6 Then p = p + 1

        Debug.WriteLine(p)

Задание 6.   

В компьютер вводятся два числа. Если первое больше второго, то напечатать их сумму, иначе – произведение. После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.

Задание 7.  

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда ли, что первый отрезок слишком велик, чтобы образовать с другими двумя отрезками треугольник. Указание: Для этого его длина должна быть больше или равна сумме длин двух других отрезков.

В Задание 31 вам будет предложено определить, возможен ли треугольник из этих отрезков, а затем в Задание 35 – нарисовать треугольник по трем сторонам, если он возможен.

Задание 8.   

Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет – только по две. Сколько голов и глаз у дракона, которому N лет?

Анализируем свойства объектов. Если в выражения, входящие в условие оператора If, включить свойства объектов, то вы можете заставить компьютер с ними работать. Например, компьютеру нужно определить, видимо или невидимо в данный момент текстовое поле TextBox1. Делает это такой оператор:

        If   TextBox1.Visible = True   Then   MsgBox("Видимо")   Else   MsgBox("Невидимо")

Таким образом, мы расширили понятие условия в операторе If, включив в него сравнение свойства с его значениями. Вы можете писать, например, так:

If TextBox1.Width < 50 Then …

Не все свойства позволяют делать такие сравнения.

Задание 9.   

Если кнопка расположена на форме с вашей точки зрения слишком высоко, пусть при нажатии на нее она опустится на 20 пикселей.



Содержание раздела