Вычислить квадратный корень

[Elfiniti]

Задача с массивами: вычислить квадратный корень из суммы квадратов нечетных элементов. Задачу надо решить в Visual Basice

[RUSt88]

какой именно VB? VBA, VB 6.0 или VB .NET?

на VB .NET сделаю за 100 WMR

[Elfiniti]

У меня установлена VB 6.0, а так без разницы наверно на каком

[RUSt88]

за 100 р согласен? к какому сроку?

разница есть: VB .NET - намного больше возможностей без особых затрат

[Sasha_Smirnov]

40 минут драйва — и вот

Sub summa_q_odd_and_its_sqr()
mass = Array(1, 2, 3, 4)

    For i = LBound(mass) To UBound(mass) Step 2
    s = s + mass(i) ^ 2
    Next

кв_корень = Sqr(s)

MsgBox "Сумма квадратов элементов массива mass, стоящих на нечётных местах, равна " & s & "." & Chr(13) & Chr(13) & _
"(Элементы массива можете изменить по Alt-F11.)"
MsgBox "Квадратный корень из этой суммы " & iif(кв_корень = fix(кв_корень), "= ", "~ ") & кв_корень & "."
End Sub

[Sasha_Smirnov]

А по-хорошему...

Sub СуммаКвадратовНечЭл_и_КореньИзНеё() 'программа на VBA для Word и Excel'

mass = Array(-1, -5, 3, 1, 2, 22)
SendKeys "~", True 'печать исследуемого массива с новой строки'
SendKeys "Массив:", True

    For i = LBound(mass) To UBound(mass)
        SendKeys "{tab}", True
        SendKeys CStr(mass(i))
        If mass(i) Mod 2 Then s = s + mass(i) ^ 2
    Next
    
SendKeys "~", True
'If s = 0 Then MsgBox "В массиве mass, увы, нет нечётных элементов.": Exit Sub'

кв_корень = Sqr(s)

MsgBox "Сумма квадратов нечётных элементов массива mass равна " & s & "." & String(2, Chr(13)) & _
"Квадратный корень из этой суммы " & IIf(кв_корень = Fix(кв_корень), "= ", "~ ") & кв_корень & "."

End Sub

[Sasha_Smirnov]

В чём же секрет кнопки # (вставить bb-код)? То она красит, то нет!

Причём можно в пост что-то добавить — и окраска вдруг пропадёт/появится.

[Namolem]

11111111111111111111