Задача в VBA

[ReShida]

понимаю, а так?

Option Explicit
Option Base 1
Sub F(x() As Double, k As Integer)
Dim i As Integer
For i = 1 To k
x(i) = Rnd * 100 - 50
Next i
End Sub
Sub F1(x() As Double, n As Integer, m As Double, nm As Integer)
Dim Nmax As Integer, max As Double, i As Integer, a As Double
Nmax = 1: max = x(1)
For i = 2 To n
If x(i) > max Then
Nmax = i
max = x(i)
End If
Next i
Nmax = F1(x, n)
End Sub
Option Explicit
Sub Test()
Dim a() As Double, n As Integer, nm As Integer
Dim m As Double, r As Double
n = InputBox("n=")
ReDim a(n)
Call F(a, n)
Call F1(a, n, m, nm)
If m < 0 Then
r = a(1)
a(1) = a(nm)
a(nm) = r
Else
r = a(n)
a(n) = a(nm)
a(nm) = r
End If
End Sub
Sub F2(a() As Double, n As Integer, nm As Integer)
Call F2(a, n, nm)
Debug.Print "Наибольший элемент=" + Format(max, "Scientific") + Chr(13) + "Номер наибольшего элемента=" + Ctr(Nmax) + Chr(13)
End Sub

[Aleksandr H.]

Option Explicit
Option Base 1
Sub F(x() As Double, k As Integer)
    Dim i As Integer
    For i = 1 To k
        x(i) = Rnd * 100 - 50
    Next i
End Sub

Function F1(x() As Double, n As Integer)
    Dim max As Double, i As Integer, nmax As Double
     max = x(1): nmax = 1
    For i = 2 To n
        If x(i) > max Then
            nmax = i
            max = x(i)
        End If
    Next i
    F1 = nmax
End Function

Sub Test()
    Dim a() As Double, n As Integer, nm As Integer
    Dim m As Double, r As Double
    n = InputBox("n=")
    ReDim a(n)
    Call F(a, n)
    nm = F1(a, n)
    If a(nm) < 0 Then
        r = a(1)
        a(1) = a(nm)
        a(nm) = r
    Else
        r = a(n)
        a(n) = a(nm)
        a(nm) = r
    End If
    F2 a, nm
End Sub

Sub F2(a() As Double, nm As Integer)
    Debug.Print "Наибольший элемент=" + Format(a(nm), "Scientific") + Chr(13) + "Номер наибольшего элемента=" + CStr(nm) + Chr(13)
End Sub

[ReShida]

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

Sub F3(x() As Double, k As Integer)
Dim i As Integer
For i = 1 To k
Debug.Print x(i)
Next i
Debug.Print x(i)
End Sub

но когда запускаю прогу, в отладке кроме ранее прописанного ничего не выводится
это норма?

[ReShida]

то есть вот так

Sub F3(x() As Double, k As Integer)
Dim i As Integer
For i = 1 To k
Debug.Print x(i)
Next i
Debug.Print
End Sub

[Aleksandr H.]

Ну а F3 как и когда вызываешь?

[ReShida]

нигде и никак, это же новая подпрограмма

[Aleksandr H.]

Легче было преподу забашлять за зачет.

....
End If
    F2 a, nm
    F3 a, n
End Sub
...