Форум VRCP Soft

Private Sub Command1_Click() 'нажатие по кнопке...
Dim t(1 To 3, 1 To 4) As Integer
t(1, 1) = -8:    t(1, 2) = -14:     t(1, 3) = -19:   t(1, 4) = -18
t(2, 1) = 25:   t(2, 2) = 28:      t(2, 3) = 26:    t(2, 4) = 20
t(3, 1) = 11:   t(3, 2) = 18:      t(3, 3) = 20:    t(3, 4) = 25
Min = t(1, 1): Max = t(1, 1)
For i = 1 To 3
For j = 1 To 4
If t(i, j) > Max Then Max = t(i, j)
If t(i, j) < Min Then Min = t(i, j)
Next j
Next i
Debug.Print Max - Min
End Sub