Посчитайте, в скольких хозяйствах количество скота уменьшилось. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д