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

Тема в разделе "Visual Basic", создана пользователем nike64n, 13 янв 2012.

Статус темы:
Закрыта.
  1. nike64n

    nike64n Гость

    Было дано задание:

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

    Я написал:

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

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

    nike64n Гость

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

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

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

    nike64n Гость

    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей