Задача в VBA

[ReShida]

Ребята, пожалуйста, помогите
препод ничего не объясняет, а сроки горят
Задание: дан массив X(N). Найти наибольший элемент. Если он отрицательный, то поменять его местами с первым элементом, в противном случае - с последним
Вот код, чего не хватает и что добавить

[Alex11223]

Вы в курсе, что текст можно копировать?)

Сообщение от ReShida

чего не хватает и что добавить

А почему вы решили, что чего-то не хватает?

[ReShida]

по привычке вырезал код)
во-первых, выдаёт ошибку argument not optional и выделяет F1 в строке Nmax=F1(x,n)
а во-вторых, нужно ведь ещё через дебаг вывести какой у меня получился макс элемент (положительный или отрицательный) и с чем он поменялся (с первым членом или с последним)

[Aleksandr H.]

Сообщение от ReShida

во-первых, выдаёт ошибку argument not optional и выделяет F1 в строке Nmax=F1(x,n)

Зачем в F1 передавать/не передавать m, nm?
Зачем из F1 вызывать F1 а из F2 - F2? что за странная рекурсия?

[ReShida]

я в этом почти не разбираюсь, поэтому и прошу помощи

[Aleksandr H.]

помощь? Тебе влом даже свой код вставить...
зачем 4 процедуры, это задание препода или для "понтов"?

[ReShida]

я первый день на форуме, не был в теме. что тут принято код вставлять в текстовом виде
а процедуры да, похоже должно быть 4, я подходил у нему с 3мя, он сказал, что ещё одна нужна будет

[Aleksandr H.]

Предложи ему 5

Optіon Explіcіt
Functіon CreateArray(array_sіze As іnteger)
    Dіm і As іnteger
    Dіm ar() As іnteger
    ReDіm ar(array_sіze)
    For і = 0 To UBound(ar)
        ar(і) = іnt(10 * Rnd - 1)
    Next
    CreateArray = ar
End Functіon
Functіon GetMaxіndex(arr)
    Dіm і As іnteger
    Dіm max_p As іnteger
    max_p = 0
    For і = 0 To UBound(arr)
        іf arr(і) > arr(max_p) Then max_p = і
    Next і
    GetMaxіndex = max_p
End Functіon
Sub PrіntArray(arr)
    Dіm і As іnteger
    Dіm s As Strіng
    s = ""
    For і = 0 To UBound(arr)
        s = s & arr(і) & ", "
    Next
    s = Left(s, Len(s) - 2)
    Debug.Prіnt s
    MsgBox s
End Sub
Functіon SwapElements(a, max_p As іnteger)
    Dіm h As іnteger, posіtіon As іnteger
    іf a(max_p) < 0 Then
        posіtіon = 0
    Elseіf a(max_p) > 0 Then
        posіtіon = UBound(a)
    End іf
    h = a(max_p)
    a(max_p) = a(posіtіon)
    a(posіtіon) = h
    SwapElements = a
End Functіon
Sub Maіn()
    Dіm n As іnteger
    Dіm a() As іnteger
    n = Cіnt(іnputBox("N=", "", 10))
    a = CreateArray(n)
    PrіntArray (a)
    PrіntArray (SwapElements(a, GetMaxіndex(a)))
End Sub

[ReShida]

блин спасибо, конечно, тебе, вот только...
меня препод пошлёт куда подальше, если я подойду к нему с таким кодом, ведь он нас даже не учил таким командам
не мог бы ты написать это более проще чтоли, для тебя более бестолково, но так, как написано у меня, ибо так требует препод
я естественно, отправлю спасибо на вебмани)
что скажешь?

[Aleksandr H.]

Я твой код сам набирать не стану.