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

  1. есть 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

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

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



Похожие ответы
  1. visual basic 6.0, подскажите как сделать в правке "Выделить все"

  1. Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо грузить данные. Предполагаю, что вопрос не впервые возник, поэтому буду признателен как хорошим ответам, так и дельным ссылкам на похожие темы. Заранее спасибо.

  1. Здравствуйте дорогие форумчане! заморочился я с таким к вам вопросом, (пример во вложении) поясню: на форме имеется кнопка с выпадающим меню, при нажатии на кнопку и наведении мыши слабо выделяется строка меню А ХОТЕЛОСЬ БЫ ЧТО БЫ ВЫДЕЛЯЛОСЬ КАКИМ НИБУДЬ ДРУГИМ ЦВЕТОМ ИЛИ РАЗНЫМИ ЦВЕТАМИ! заранее спасибо откликнувшимся!

  1. Доброго вам всем дня дорогие форумчане! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public a As Byte Public b As Byte Public c As Byte Public d As Byte   Private Sub Text1_Change() c = Len(Text1.Text) If c > 4 Then MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text2_Change() a = Len(Text2.Text) If a > 10 Then MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text3_Change() b = Len(Text3.Text) If b > 10 Then MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   Private Sub Text9_Change() d = Len(Text9.Text) If d > 14 Then MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   .........ну и так далее

  1. Только недавно начал работать в VB и создавать программу. Мне нужно что бы по нажатию кнопки, программа сохраняла данные которые находятся в TextBox и PictureBox в файл, а потом по нажатие другой кнопки, загружала их. Пытался разобраться, но ничего не понял. Помогите пожалуйста.

  1. Доброго времени суток!!! Такой вопрос не получается правильно записать событие вообщем: через апи проверят запущен ли такой-то такой-то процесс(notepad.exe) или такой-то такой-то (calc.exe) если нет ни того ни того тогда запускаем любой из них если если есть хоть один то ничего не делаем. Беда как я полагаю в самом событии if >>>>

  1. Дано простое число. Составить функцию, которая будет находить следующее за ним простое число!

  1. Разработать приложение, позволяющее с помощью списков «Фирма», «Цвет», «Исполнение», «Тип кузова» и полосы прокрутки дать описание модели автомобиля. Выбранные значения должны отображаться в метке по щелчку по кнопке «Зафиксировать» . Значения списков формируются на стадии проектирования.

  1. У кого есть точный список ошибок или как его достать? Посмотрел и проверил навскидку здесь:https://msdn.microsoft.com/en-us/lib...(v=VS.60).aspx и здесь:http://www.planet-source-code.com/vb...48434&lngWId=1 из старших кодов некоторые недействительны. Вот из MSDN - код

  1. Помогите создать поле из кнопок размером 12 на 5 Т.е Кнопки должны идти по порядку по индексу но в виде 12 x 5 первая строка идет до 12 потом на следущей строке идет 13 14 15 и так далее ? НИкак не получается спасибо ((