задачка по VBA в Word

[konfetka]

Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.

[Sazary]

Примерно так:

Sub chisla()
Dim a, b, c, d As Double
a = Val(InputBox("Число a"))
b = Val(InputBox("Число b"))

c = (a + b) / 2
d = 2 * a * b
If a > b Then
 b = c
 a = d
Else
 a = c
 b = d
End If
MsgBox ("a = " + Str(a) + "  b= " + Str(b))
End Sub

[Serge_Bliznykov]

только есть одна неточность.
Если нужно, чтобы переменные a,b,c,d были типа double, то надо записать так:

Dim a As Double, b As Double, c As Double, d As Double

[Sazary]

Serge_Bliznykov, спс ) Просто я со знаниями qbasic'а писал, а там такое вроде можно.
А почему нельзя объявить все в одном? Особенности языка?

Сейчас уточнил: оказывается и там нельзя. Чтож, буду знать.

[Serge_Bliznykov]

на самом деле, это даже ошибкой назвать нельзя!

Препод может прицепиться.
Ещё, теоретически, на больших объёмах вычислений может быть чуть-чуть медленнее..
запись Dim a,b,c As Double
эквивалентна: Dim a as Variant,b as Variant,c As Double
т.е., если тип не задан, что переменная получает тип Variant
что само по себе не так уж и плохо...

[Sazary]

Serge_Bliznykov, ясно ) Как-то неудобно.. Уж лучше бы ошибку выдавал

[viter.alex]

Вот так одной короткой строкой объявляем все как Double

Dim a#, b#, c#

Может пригодится кому.
При использовании диезы указывать необязательно

[Sazary]

viter.alex, спс ) Так вот, оказывается, для чего они нужны (%,#,$...)

[viter.alex]

% — Integer
$ — String
! — Single
# — Double
& — Long