Посчитайте, в скольких хозяйствах количество скота уменьшилось. - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы