Алгоритмизация и программирование разветвляющихся вычислительных процессов - VB
Формулировка задачи:
Даны два числа X, Y. Меньшее заменить суммой этих чисел, большее — их разностью.
Помогите плиз! ну ваще не прет эта информатика)))) а сессия не за горами
Решение задачи: «Алгоритмизация и программирование разветвляющихся вычислительных процессов»
textual
Листинг программы
Dim txt As String
txt = InputBox("Name")
Select Case txt
Case "Саша"
MsgBox ("Александр")
Case "Ваня"
MsgBox ("Иван")
Case "Юра"
MsgBox ("Юрий")
Case "Женя"
MsgBox ("Евгений")
Case "Витя"
MsgBox ("Виктор")
Case Else
MsgBox ("Я с Вами не знакома")
End Select