Обработка Массива - VB

Формулировка задачи:

Помогите пожалуйста решить( в Visual Basic Дан массив R(10). Найти сумму индексов максимального и минимального элементов и их значений (Обработка массива)

Решение задачи: «Обработка Массива»

textual
                            Листинг программы 
                        

                            Sub Task()
Dim R(10) As Integer, iMinInd As Integer, iMaxInd As Integer, iMin As Integer, iMax As Integer
Const MAXVALUE As Integer = 50: Const MINVALUE As Integer = 10
iMax = MINVALUE: iMin = MAXVALUE
For i = 0 To 10
    R(i) = Int((MAXVALUE - MINVALUE + 1) * Rnd + MINVALUE)
    If R(i) > iMax Then iMax = R(i): iMaxInd = i
    If R(i) < iMin Then iMin = R(i): iMinInd = i
    sStr = sStr & R(i) & ", "
Next
MsgBox sStr & vbNewLine & "ГЊГ*ГЄГ± ГЅГ«. " & iMax & " Г± ГЁГ*Г¤ГҐГЄГ±Г®Г¬ " & iMaxInd & vbNewLine & _
"ГЊГЁГ* ГЅГ«. " & iMin & " Г± ГЁГ*Г¤ГҐГЄГ±Г®Г¬ " & iMinInd & vbNewLine & iMax + iMin & "; " & iMaxInd + iMinInd
End Sub
                        