Три разных целых положительных числа: найти сумму двух наименьших из них - VB
Формулировка задачи:
Напишите программу, запрашивающую три разных целых положительных числа и находящую сумму двух наименьших из них.
Решение задачи: «Три разных целых положительных числа: найти сумму двух наименьших из них»
textual
Листинг программы
Dim a, b, c, d As Integer
a = InputBox("")
b = InputBox("")
c = InputBox("")
If a > b And a > c Then
d = Int(b) + Int(c)
End If
If b > a And b > c Then
d = Int(a) + Int(c)
End If
If c > a And c > b Then
d = Int(a) + Int(b)
End If
MsgBox d