нужен код для заданий в Visual Basic задания внутри

Компьютеры программирование программы visual basic развилка

http://s59.radikal.ru/i164/1012/da/29dcea53a419.jpg
вот само задание
помогите пожалуйста
или дайте ссылку где могут помочь с этими заданиями
Ответы:
codeforces.ru
тут могут помочь
Извини, что через полтора года, надеюсь, что хоть как-то помогу.
1)
Dim x As Single, y As Single, z As Single, Mes As String
x = InputBox ("x = "): y = InputBox ("y = ")
Select Case x*y
Case Is < 1
z = (x + y) / (x - y)
Mes = "z = " & z
MsgBox (Mes)
Case Is = 1
Mes = "x = " & x & "y = " & y
MsgBox (Mes)
Case Is > 1
z = 3.1416 + Atn(x)
Mes = "z = " & z
MsgBox (Mes)
Case Else
MsgBox ("Так не бывает")
End Select
End


14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.