Написать программу нахождения суммы большего и меньшего из 3 чисел

@Йолка · Регистрация: 12.05.2010

Author24 — интернет-сервис помощи студентам

Написать программу нахождения суммы большего и меньшего из 3 чисел.

@Селина · 31.05.2010, 09:34

Visual Basic

Private Sub CmdCalc_Click()
Dim a as Single
Dim b as Single
Dim c as Single
Dim min as Single
Dim max as Single
Dim sum as Single
a = CSng(txta.Text)
b = CSng(txtb.Text)
c = CSng(txtc.Text)
If a > b and a >c Then
max = a
ElseIf b > a and b > c Then
max = b
ElseIf c > a and c > b Then
max = c
End If
If a < b and a < c Then
min = a
ElseIf b < a and b < c Then
min = b
ElseIf c < a and c < b Then
min = c
End If
sum = max + min
lblsum.Caption = CStr(Sum)
End Sub

Вот так, длинно, конечно и повторная проверка, зато точно работает=))
Я просто немного уже подзабыла эти задания

@Йолка · 31.05.2010, 17:06 **[ТС]**

Селина, не получается пишет ошибку(((

@Селина · 31.05.2010, 17:47

подожди секундочку, я счас сама прогу сделаю и посмотрю в чем накосячила=)

Добавлено через 6 минут
дай почту, я пришлю тебе работающую программку туда, откроешь в VB и все прекрасно, возможно были неправильные имена объектов, у меня все ок=))

@Йолка · 31.05.2010, 18:44 **[ТС]**

Селина, alter120489@yandex.ru

@Vlanib · 31.05.2010, 19:33

А если так?

Visual Basic

Private Sub CmdCalc()
Dim a, b, c
a = Val(InputBox("a:"))
b = Val(InputBox("b:"))
c = Val(InputBox("c:"))
min = a: max = a
If b > max Then max = b
If c > max Then max = c
If b < min Then min = b
If c < min Then min = c
MsgBox min + max
End Sub

@Йолка 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 61
		1
	Написать программу нахождения суммы большего и меньшего из 3 чисел 30.05.2010, 22:44. Показов 10675. Ответов 5 Метки нет (Все метки) Написать программу нахождения суммы большего и меньшего из 3 чисел. 0

@Йолка 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 61
	31.05.2010, 17:06 [ТС]	3
	Селина, не получается пишет ошибку((( 0

@Селина 0 / 0 / 0 Регистрация: 24.05.2010 Сообщений: 4
	31.05.2010, 17:47	4
	подожди секундочку, я счас сама прогу сделаю и посмотрю в чем накосячила=) Добавлено через 6 минут дай почту, я пришлю тебе работающую программку туда, откроешь в VB и все прекрасно, возможно были неправильные имена объектов, у меня все ок=)) 0

@Йолка 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 61
	31.05.2010, 18:44 [ТС]	5
	Селина, alter120489@yandex.ru 0

	31.05.2010, 19:33