Автоматизировать Подсчет Количества Случаев

  • Автор темы nike64n
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

nike64n

Гость
#1
Было дано задание:

Моделировать данные о температуре воздуха в течение месяца (температура воздуха варьируется в пределах от -5 до 5°С). Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.

Я написал:

Sub Нахождение()
Dim T As Integer
T = InputBox("Введите число")
If T < 0 Then
MsgBox (" Введенное число подходит условию ")
Else
MsgBox (" Введенное число не подходит условию ")
End If
End Sub

не знаю как написать код со случайными числами от -5 до 5 и чтоб выводил результат...Заранее благодарен.
 
N

nike64n

Гость
#2
Sub Нахождение()
Dim T As Integer
Randomize
T = Int(11 * Rnd - 5)
If T < 0 Then
MsgBox (" число подходит условию ")
Else
MsgBox (" число не подходит условию ")
End If
End Sub

Что нужно сделать что бы Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.

а то он мне выдаёт либо оно " число не подходит условию " или " число подходит условию " Нужно чтобы выводил результат количества случаев...
 
N

nike64n

Гость
#3
Sub nn()
Randomize
Cells.Clear
For i = 1 To 30
Cells(i, 1) = i
Cells(i, 2) = Int(Rnd * 11) - 5
If Cells(i, 2) < 0 Then k = k + 1
Next
MsgBox "К-во дней с температуорй меньше 0=" & k
End Sub
 
Статус
Закрыто для дальнейших ответов.