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

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

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


textual

Код к задаче: «Задача со сравнением числа с диапазонами - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.083 из 5

Источник