SHARE
TWEET

Untitled

a guest Aug 2nd, 2018 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. REM  Начало программы
  2. Sub Main
  3. REM Определение переменных a, b для расчетов объемов,
  4. REM i - флаг для проверки Да-нет, telo - переменная выбора фигуры, v - переменная объема
  5. REM Integer - целое число, Single - обычное число
  6. REM формат определение Dim (доступно везде) [имя переменной] As [тип переменной]
  7. Dim a As Integer, b As Integer, i As Integer, telo As Integer, v As Single
  8. REM Создание метки для возврата к началу
  9. Schyot:
  10. REM Выбор фигуры для расчета переменная
  11. telo = val(InputBox("Объем какого тела будем считать? Куб (1), Сфера (2), Конус (3), Цилиндр (4)","Выбор фигуры для расчета объема. 21 вариант. Андреева Ксения"))
  12. REM Начало разветвления с выражением-селектором telo
  13. Select case telo
  14. REM Если telo равно 1, т.е. считаем куб
  15. case 1
  16. REM Вводим переменную сторону куба
  17. a = val(InputBox("Введите сторону куба","Рассчет объема куба"))
  18. REM Проверяем, чтобы она не была равна нулю. Нулю может быть равна из-за того что в поле ввода могли ввести 0 или любой другой символ-не число
  19. If (a = 0) Then
  20. REM Выводим сообщение об ошибке с предложением повторить рассчет
  21. REM Ответ пользователя записываем в i
  22. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  23. Else
  24. REM Если переменная не равна нулю - производим рассчет
  25. v = a * a * a
  26. REM Выводим ответ и предложение посчитать еще что-нибудь
  27. i = MsgBox ("Объем куба с введенными вами параметрами равен " +  v + " Посчитаем еще?", 4, "Решено. Андреева Ксения")
  28. REM Конец условия
  29. End If
  30. case 2
  31. REM Вводим переменную радиус сферы
  32. a = val(InputBox("Введите сторону радиус сферы","Рассчет объема сферы"))
  33. REM Проверяем снова, что не ноль
  34. If (a = 0) Then
  35. REM Выводим ошибку
  36. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  37. Else
  38. REM Считаем объем сферы
  39. v = 4 * 3 * 3.14 * a * a * a
  40. REM Выводим ответ
  41. i = MsgBox ("Объем сферы с введенными вами параметрами равен " +  v + " Посчитаем еще?", 4, "Решено. Андреева Ксения")
  42. REM Конец условия
  43. End If
  44. case 3
  45. REM Вводим радиус и высоту конуса
  46. a = val(InputBox("Введите сторону радиус конуса","Рассчет объема конуса"))
  47. b = val(InputBox("Введите сторону высоту конуса","Рассчет объема конуса"))
  48. REM Проверяем, что первая переменная не равна нулю
  49. If (a = 0) Then
  50. REM Если переменная равна нулю, выводим ошибку и спрашиваем посчитать снова
  51. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  52. REM Если первая не равна нулю, проверяем вторую
  53. ElseIf (b = 0) Then
  54. REM Если вторая равна нулю, выводим ошибку и спрашиваем пересчитать снова
  55. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  56. Else
  57. REM Если обе переменные не равны нулю производим рассчет
  58. v = 1 / 3 * 3.14 * a * a * b
  59. REM Выводим ответ и спрашиваем посчитать еще
  60. i = MsgBox ("Объем конуса с введенными вами параметрами равен " +  v + " Посчитаем еще?", 4, "Решено. Андреева Ксения")
  61. REM Конец условия
  62. End If
  63. case 4
  64. REM Вводим радиус и высоту цилиндра
  65. a = val(InputBox("Введите сторону радиус цилиндра","Рассчет объема цилиндра"))
  66. b = val(InputBox("Введите сторону высоту цилиндра","Рассчет объема цилиндра"))
  67. REM Проверяем, что первая переменная не равна нулю
  68. If (a = 0) Then
  69. REM Если переменная равна нулю, выводим ошибку и спрашиваем посчитать снова
  70. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  71. REM Если первая не равна нулю, проверяем вторую
  72. ElseIf (b = 0) Then
  73. REM Если вторая равна нулю, выводим ошибку и спрашиваем пересчитать снова
  74. i = MsgBox ("Параметр введен неверно. Попробуем посчитать еще раз?", 4+16, "Ошибка")
  75. Else
  76. REM Если обе переменные не равны нулю производим рассчет
  77. v = 3.14 * a * a * b
  78. REM Выводим ответ и спрашиваем посчитать еще
  79. i = MsgBox ("Объем конуса с введенными вами параметрами равен " +  v + " Посчитаем еще?", 4, "Решено. Андреева Ксения")
  80. REM Конец условия
  81. End If
  82. REM Если при выборе фигуры выбрали что-то кроме 1-4
  83. case Else
  84. REM Выводим ошибку и спрашиваем посчитать еще
  85. i = msgbox ("Неправильный выбор фигуры. Попробуем посчитать другое?", 4+16, "Ошибка")
  86. REM Конец разветвления
  87. End Select
  88. REM обработка ответа пользователя на всех концах
  89. REM В нашем случае i могло принимать значение 6 (да) или 7 (нет)
  90. REM Если ответ был да, то возвращаемся к метке, указанной в самом начале
  91. if (i = 6) then GoTo Schyot
  92. REM Конец программы
  93. End Sub
  94. REM вид функции msgbox ([текст внутри окна], [выбор кнопок], [заголовок окна])
  95. REM [текст внутри окна] пишется в кавычках, если выводим значение переменной то без кавычек пишем переменную (пример + v)
  96. REM [выбор кнопок] Если что, ты писала внутри LibreOffice. 4 - означает кнопки ДА-НЕТ, а 16 - добавляет значок ошибки
  97. REM [заголов окна] в кавычках
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top