Задача со сравнением числа с диапазонами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д