Определить, имеются ли в массиве два подряд идущих нулевых элемента

Private Sub Form_Load()
Dim a(8) As Double
Dim i, k As Integer
 
For i = 0 To 7
a(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ýëåìåíò ìàññèâà"): Print Str(a(i))
Next
For i = 0 To 7
If (a(i) = 0) And (a(i + 1) = 0) Then
k = k + 1
End If
Next
If k > 0 Then
MsgBox ("Äâà èäóùèõ ïîäðÿä íóëåâûõ ýëåìåíòà åñòü!")
Else
MsgBox ("Èñêîìûõ ýëåìåíòîâ íåò!")
End If
 
End Sub

Private Sub Form_Load()
Dim a(8) As Double
Dim i As Integer
 
For i = 0 To 7
a(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ýëåìåíò ìàññèâà")
If a(i) < 10 Then
a(i) = 0
End If
Print Str(a(i))
Next
End Sub

Private Sub Form_Load()
Dim a(8), s As Double
Dim i As Integer
 
s = 0
For i = 0 To 7
a(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ýëåìåíò ìàññèâà"): Print Str(a(i))
s = s + a(i)
Next
For i = 0 To 7
If a(i) > s / 8 Then
MsgBox (i), , "Ñðåäíåå çí. = " + Str(s / 8)
End If
Next
End Sub