N
nike64n
Было дано задание:
Моделировать данные о температуре воздуха в течение месяца (температура воздуха варьируется в пределах от -5 до 5°С). Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.
Я написал:
Sub Нахождение()
Dim T As Integer
T = InputBox("Введите число")
If T < 0 Then
MsgBox (" Введенное число подходит условию ")
Else
MsgBox (" Введенное число не подходит условию ")
End If
End Sub
не знаю как написать код со случайными числами от -5 до 5 и чтоб выводил результат...Заранее благодарен.
Моделировать данные о температуре воздуха в течение месяца (температура воздуха варьируется в пределах от -5 до 5°С). Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.
Я написал:
Sub Нахождение()
Dim T As Integer
T = InputBox("Введите число")
If T < 0 Then
MsgBox (" Введенное число подходит условию ")
Else
MsgBox (" Введенное число не подходит условию ")
End If
End Sub
не знаю как написать код со случайными числами от -5 до 5 и чтоб выводил результат...Заранее благодарен.