Составить блок схему и реализовать на Visual Basic - VB

Узнай цену своей работы

Формулировка задачи:

Составить блок схему и реализовать на VB. Даны четыре целых числа А,В,С,D. Вывести на экран наибольшее из этих чисел или сообщение <<Нет>>,если среди указанных чисел нет наибольшего.

Решение задачи: «Составить блок схему и реализовать на Visual Basic»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
'http://www.cyberforum.ru/visual-basic/thread1763151.html
Dim x As Integer, y As Integer, z As Integer, k As Integer, max As Integer
x = InputBox("Введите x")
y = InputBox("Введите y")
z = InputBox("Введите z")
k = InputBox("Введите k")
If (x > y) And x > z And x > k Then max = x
 If (y > x) And y > z And y > k Then max = y
  If (z > x) And z > y And z > k Then max = z
   If (k > x) And k > y And k > z Then max = k
     MsgBox ("Максимум = " & max)
'Elself x = y = z = k Then
'Print "Нет!"
'Else
' MsgBox ("Не будь оболтусом! Топай, учись!")
End Sub

Оцени полезность:

10   голосов , оценка 4 из 5