помогите с Visual Basic

[Vnoob]

Уважаемые программисты , помогите пожалуйста с заданием или скиньте тему где примерно что похоже на то ,что мне надо . Заранее спасибо

В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задайте случайными числами из интервала [-10, 10]), вы-числите произведение элементов массива, расположенных между максималь-ным и минимальным элементами. Сформируйте из этих элементов новый массив.

[challengerr]

Module Hello

Sub Main()

Dim ms(15) As Double
Dim i As Integer
Dim s As String
Dim min As Double
Dim max As Double
Dim pr As Double
Dim mini As Integer
Dim maxi As Integer

Randomize

s = ""
pr = 1

For i = 1 To 15
ms(i) = 10 * Rnd + 1
s = s + CStr(ms(i)) + " "
Next i  
s = s + vbcrlf

min = ms(1)
max = ms(1)
mini = 1
maxi = 1

For i = 1 To 15
If  min > ms(i)  Then
min = ms(i)
mini = i
End If

If max < ms(i) Then
max = ms(i)
maxi = i
End If
Next i  


If maxi > mini Then
For i = mini To maxi
pr = pr * ms(i)
Next i
Else
For i = maxi To mini
pr = pr * ms(i)
Next i
End If

s = s + "max: " + CStr(max) + " " + vbcrlf
s = s + "maxi: " + CStr(maxi) + " " + vbcrlf
s = s + "min: " +  CStr(min) + " " + vbcrlf
s = s + "mini: " + CStr(mini) + " " + vbcrlf
s = s + "pr: " + CStr(pr) + " " + vbcrlf
s = s + vbcrlf


MsgBox(s)
End Sub
End Module

[gaw4]

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

Уважаемые программисты , помогите пожалуйста с заданием или скиньте тему где примерно что похоже на то ,что мне надо . Заранее спасибо

ага, это задание 3
задание 2 Вычислить значение функции при заданных...
задание 1 даны точки, отрезки, числа
ну и + таблица
есть несколько готовых варианта