Задача со сравнением числа с диапазонами - VB

Узнай цену своей работы

Формулировка задачи:

есть 2 инпутбокса в которые вводятся значения V и D . по офрмуле n=1000*v/(pi*D) рассчитывается значение N. Задано несколько диапазонов 63-120 120-200 200-300 400-500 500-630 Если значение N попадает в какой-либо из этих диапазонов,то оно должно принять значение нижней границы , если не попадает ни в один диапазон то должно появиться сообщение " уточните значение N" помогите пожалуста , а то отчислят ....

Решение задачи: «Задача со сравнением числа с диапазонами»

textual
Листинг программы
Private Sub Command1_Click()
Dim V As Single, D As Single
Dim pi As Single
Dim N As Single
V = InputBox("V-?")
D = InputBox("D-?")
If IsNumeric(V) And IsNumeric(D) Then
  If D <> 0 Then
   pi = 4 * Atn(1)
   N = 1000 * V / (pi * D)
   Select Case N
    Case Is < 63
      MsgBox "Уточните значение N"
      Exit Sub
    Case Is < 120
      N = 63
    Case Is < 200
      N = 120
    Case Is < 300
      N = 200
    Case Is < 500
      N = 300
    Case Is < 630
      N = 500
    Case Else
      MsgBox "Уточните значение N"
      Exit Sub
   End Select
  Else
   MsgBox "D не может быть нулём (на ноль делить нельзя)"
   Exit Sub
  End If
Else
  MsgBox "Введено не число"
  Exit Sub
End If
MsgBox "N равняется " & N
End Sub

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


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

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

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