Private Sub Form_Load()
Dim a(100) As Long, i As Integer, b As Integer, ñ As Integer
i = 2
a(3) = 10
a(i) = 100
b = a(i + 6)
c = a(i) + a(5 - i)
a(i + 6) = a(i) + a(5 - i)
i = 0
Debug.Print a(i + 3) + a(2) + a(i + 8)
End Sub

dim Name(1 to 10) as string

Private Sub Form_Load()
Dim i As Integer, j As Integer
  Dim Бьеф(100) As Single
  Dim Водосброс(100)  As Single
     Бьеф(0) = 26
      For i = 1 To 100
         Бьеф(i) = Round((Бьеф(i - 1) + 0.01), 2)
      Next i
      Водосброс(0) = 38.21
        For j = 1 To 100
          Водосброс(j) = Round((Водосброс(j - 1) + 0.0306), 4)
        Next j
End Sub

Option Explicit
 Dim a(1 To 5) As Integer
 Dim b(1 To 5) As Integer


Private Sub Command1_Click()
    a(1) = 4: a(2) = 5: a(3) = 2: a(4) = 5: a(5) = 4
    b(1) = 4: b(2) = 3: b(3) = 4: b(4) = 4: b(5) = 3
 If &#208;&#224;&#231;&#237;&#232;&#246;&#224;(a) < &#208;&#224;&#231;&#237;&#232;&#246;&#224;(b) Then Debug.Print "&#207;&#229;&#240;&#226;&#251;&#233; &#234;&#235;&#224;&#241;&#241; &#243;&#247;&#232;&#242;&#241;&#255; &#235;&#243;&#247;&#248;&#229;" Else Debug.Print "&#207;&#229;&#240;&#226;&#251;&#233; &#234;&#235;&#224;&#241;&#241; &#243;&#247;&#232;&#242;&#241;&#255; &#245;&#243;&#230;&#229;"
End Sub

Private Function &#208;&#224;&#231;&#237;&#232;&#246;&#224;(c As Variant) As Integer
  &#208;&#224;&#231;&#237;&#232;&#246;&#224; = &#204;&#224;&#234;&#241;&#232;&#236;&#243;&#236;(c) - &#204;&#232;&#237;&#232;&#236;&#243;&#236;(c)
End Function
Private Function &#204;&#224;&#234;&#241;&#232;&#236;&#243;&#236;(c As Variant) As Integer
 Dim i As Integer
 &#204;&#224;&#234;&#241;&#232;&#236;&#243;&#236; = c(1)
   For i = 2 To 5
     If c(i) > &#204;&#224;&#234;&#241;&#232;&#236;&#243;&#236; Then &#204;&#224;&#234;&#241;&#232;&#236;&#243;&#236; = c(i)
   Next i
End Function
Private Function &#204;&#232;&#237;&#232;&#236;&#243;&#236;(c As Variant) As Integer
  Dim i As Integer
    &#204;&#232;&#237;&#232;&#236;&#243;&#236; = c(1)
      For i = 2 To 5
        If c(i) < &#204;&#232;&#237;&#232;&#236;&#243;&#236; Then &#204;&#232;&#237;&#232;&#236;&#243;&#236; = c(i)
    Next
End Function

Option Explicit
 Dim a(1 To 5) As Integer
 Dim b(1 To 5) As Integer


Private Sub Command1_Click()
    a(1) = 4: a(2) = 5: a(3) = 2: a(4) = 5: a(5) = 4
    b(1) = 4: b(2) = 3: b(3) = 4: b(4) = 4: b(5) = 3
 If Raznica(a) < Raznica(b) Then Debug.Print "&#207;&#229;&#240;&#226;&#251;&#233; &#234;&#235;&#224;&#241;&#241; &#243;&#247;&#232;&#242;&#241;&#255; &#235;&#243;&#247;&#248;&#229;" Else Debug.Print "&#207;&#229;&#240;&#226;&#251;&#233; &#234;&#235;&#224;&#241;&#241; &#243;&#247;&#232;&#242;&#241;&#255; &#245;&#243;&#230;&#229;"
End Sub

Private Function Raznica(c As Variant) As Integer
  Raznica = Maximum(c) - Minimum(c)
End Function
Private Function Maximum(c As Variant) As Integer
 Dim i As Integer
 Maximum = c(1)
   For i = 2 To 5
     If c(i) > Maximum Then Maximum = c(i)
   Next i
End Function
Private Function Minimum(c As Variant) As Integer
  Dim i As Integer
    Minimum = c(1)
      For i = 2 To 5
        If c(i) < Minimum Then Minimum = c(i)
    Next
End Function