Как найти минимальное и максимальное значения массива и вывести их разность на экран - VBA

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

Здравствуйте. Помогите пожалуйста с составлением программы в VBA. Вот задание: создать одномерный массив из 20 целочисленных значений. Найти минимальное и максимальное значения, вывести их разность на экран. Спасибо.

Решение задачи: «Как найти минимальное и максимальное значения массива и вывести их разность на экран»

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

                            Dim i, imin, imax As Integer
Dim a(10) As Double, min As Double, max As Double, b As Double, t As Double
min = 99
max = -99
 
For i = 1 To 10
t = Rnd() * 100 - 50
a(i) = InputBox("Введите значение для " & i, , t)
Cells(1 + i, 2) = a(i)
 
 If a(i) < min Then
 min = a(i): imin = i
 End If
 
 If a(i) > max Then
 max = a(i):  imax = i
 End If
Next
b = min
a(imin) = a(imax)
a(imax) = b
 
 For i = 1 To 10
Cells(1 + i, 4) = a(i)
Next
                        