Найти сумму, разность, произведение и частное их модулей

@Slimby · Регистрация: 17.03.2017

Студворк — интернет-сервис помощи студентам

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

@Степан23 · 17.03.2017, 22:12

Сообщение от Slimby

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

Slimby, на форму, пожалуйста, поставьте только "Командную кнопку" (Она же: Command1_Click). И всё! Затем наливайте и пейте. Преподаватель поверит в самостоятельность.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Single
A = InputBox("A= ")
B = InputBox("B= ")
C = A + B
D = A - B
E = Abs(A) / Abs(B)
MsgBox C
MsgBox D
MsgBox E
Debug.Print C
Debug.Print D
Debug.Print E
End Sub
 
'A = 5
'B = -8
'C = -3
'D = 13
'E = 0.625

Можно ещё поставить "Окно Immediate", открыв вкладку "View", где выбрать "Immediate Window". Смотрите картинку внизу для контроля.

SoftIce · 17.03.2017, 22:29

Степан23, а произведение?

@Степан23 · 17.03.2017, 22:50

Сообщение от SoftIce

Степан23, а произведение?

SoftIce, на одного с сошкой — семеро с ложкой. Ладно, уговорили.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Single
A = InputBox("A= ")
B = InputBox("B= ")
C = A + B
D = A - B
E = A * B
F = Abs(A) / Abs(B)
MsgBox C
MsgBox D
MsgBox E
MsgBox F
Debug.Print C
Debug.Print D
Debug.Print E
Debug.Print F
End Sub
 
'A = 5
'B = -8
'C = -3
'D = 13
'E = -40
'F = 0.625

@Степан23 · 18.03.2017, 02:24

Сообщение от Slimby

Даны два ненулевых числа

Slimby, попробуем закомментировать лишнее, выделив его зелёном цветом. Мы чуть-чуть усложняем задачу для Visual Basic 6.0

Нажимайте, если пожелаете просто "Ок". Хотя теперь можно вводить любые числа.

Visual Basic
1
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
33
34
35
36
37
38
39
Option Explicit
Private Sub Command1_Click()
'Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Single
Dim A As Single, B As Single, C As Single, D As Single, E As Single, F As Single
'A = InputBox("A= ")
A = Val(Replace(InputBox("Введите A = ", "Ввод данных", 2.05), ",", "."))
'B = InputBox("B= ")
 
B = Val(Replace(InputBox("Введите B = ", "Ввод данных", -3.24), ",", "."))
C = A + B
D = A - B
E = A * B
F = Abs(A) / Abs(B)
 
'MsgBox C
'MsgBox D
'MsgBox E
'MsgBox F
 
Print A
Print B
Print C
Print D
Print E
Print F
 
'Debug.Print C
'Debug.Print D
'Debug.Print E
'Debug.Print F
 
End Sub
 
'A = 2.05
'B = -3.24
'C = -1.19
'D = 5.29
'E = -6.642
'F = 0.6327161

@Степан23 · 18.03.2017, 19:44

Сообщение от Степан23

Можно ещё поставить "Окно Immediate"

Если напрямую через Word, то меньше мороки. Всё под рукой!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Slimby()
Dim A As Single, B As Single, C As Single, D As Single, E As Single, F As Single
A = Val(Replace(InputBox("Введите A = ", "Ввод данных", 2.05), ",", "."))
B = Val(Replace(InputBox("Введите B = ", "Ввод данных", -3.24), ",", "."))
C = A + B: D = A - B: E = A * B: F = Abs(A) / Abs(B)
 
Debug.Print "A ="; A
Debug.Print "B ="; B
Debug.Print "C ="; C
Debug.Print "D ="; D
Debug.Print "E ="; E
Debug.Print "F ="; F
 
End Sub

Ответы:
A = 2,05
B =-3,24
C =-1,19
D = 5,29
E =-6,642
F = 0,6327161

@Alex77755 · 19.03.2017, 21:06

Степан23,
Не надо придумывать вопросов!
Читай внимательно:

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

Добавлено через 2 минуты

Если напрямую через Word

Нет в бейсике такого!!!

@Степан23 · 19.03.2017, 21:37

Сообщение от Alex77755

Нет в бейсике такого!!!

Alex77755, Бэйсик, Ворд и Эксель — единоутробные братья!
Дети сейчас на ходу подмётки рвут. Всё схватывают на лету.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single, D As Single, E As Single, F As Single
A = Val(Replace(InputBox("Введите A = ", "Ввод данных", 2.05), ",", "."))
B = Val(Replace(InputBox("Введите B = ", "Ввод данных", -3.24), ",", "."))
C = A + B: D = A - B: E = A * B: F = Abs(A) / Abs(B)
 
Print "A= " & A & "; B= " & B & "; C= " & C & "; D= " & D & "; E= " & E & "; F= " & F
 
End Sub
 
'A = 2.05
'B = -3.24
'C = -1.19
'D = 5.29
'E = -6.642
'F = 0.6327161

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Slimby 0 / 0 / 0 Регистрация: 17.03.2017 Сообщений: 2

	Найти сумму, разность, произведение и частное их модулей 17.03.2017, 19:44. Показов 10130. Ответов 7 Метки нет (Все метки) Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	17.03.2017, 22:29
	Степан23, а произведение? 0

Найти сумму, разность, произведение и частное их модулей

Решение