Посчитайте, в скольких хозяйствах количество скота уменьшилось. - VB

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

Для восьми хозяйств известно общее количество КРС(гол) за два последних года. Определите, на сколько изменилось количество КРС в каждом хозяйстве. Посчитайте, в скольких хозяйствах количество скота уменьшилось. КРС - я так понял это крупный рогатый скот. Не каких исходных данных о КРС не известно. Ребят, напишите программу кому не сложно, буду очень благодарен. Я бы сам написал, но сейчас полнейший завал в универе, + не изучал VBA, дали задание за неделю до сдачи(

Решение задачи: «Посчитайте, в скольких хозяйствах количество скота уменьшилось.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim i As Integer
Cells(1, 2) = "Г•Г®Г§ГїГ©Г±ГІГўГ*"
For i = 1 To 8
 Cells(1, i + 2) = i
Next i
 
Cells(1, 1) = "ГЏГ®ГЈГ®Г«Г®ГўГјГҐ"
Cells(2, 1) = "ГѓГ®Г¤ 1"
For i = 1 To 8
 Cells(2, i + 2) = (Rnd(1) * 100 + 100) \ 1
Next i
 
Cells(3, 1) = "ГѓГ®Г¤ 2"
For i = 1 To 8
 Cells(3, i + 2) = (Rnd(1) * 100 + 100) \ 1
Next i
 
Cells(4, 1) = "ГђГ*Г§Г*ГЁГ¶Г*"
For i = 1 To 8
 Cells(4, i + 2) = Cells(3, i + 2) - Cells(2, i + 2)
Next i
 
Dim s As Integer
s = 0
Cells(5, 1) = "Г•Г®Г§ГїГ©Г±ГІГўГ*"
For i = 1 To 8
 If Cells(4, i + 2) < 0 Then s = s + 1
Next i
Cells(5, 2) = s
 
End Sub