|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.04.2017, 23:46 | #1 |
Новичок
Джуниор
Регистрация: 22.04.2017
Сообщений: 2
|
VBA. Напишите процедуру на языке VBA, которая определяет сократимость дроби a/b (b≠0) . Вычисление наибольшего общего делителя (НОД) чисел a и b оформить в виде функции.
Помогите ,пожалуйста, с написанием программы на языке VBA.
Вот условие: Напишите процедуру на языке VBA, которая определяет сократимость дроби a/b (b≠0) . Вычисление наибольшего общего делителя чисел a и b оформить в виде функции. Исходные данные: 1. a=2, b=0 1 Результат: 1. Неверно введено b 2. a=3, b=5 3. a=6, b=8 2. Дробь 3/5 не сократима 3. Дробь 6/8 сократима на 2 Вот немного начала (может и не правильно): Function НОД(a, b) While a <> b If a > b Then a = a - b Else b = b - a End If Wend НОД = a End Function Sub List6_11() Dim a As Long, b As Long, НОД As Variant a = CDbl(InputBox("Введите a", "Исходные данные")) b = CDbl(InputBox("Введите b", "Исходные данные")) If b = 0 Then MsgBox "Неверно введено b" If НОД =(a,b) Then MsgBox "Дробь" & a / b & ("сокротима на ") & f End Sub |
23.04.2017, 00:35 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
А загуглить - лень?
специально выкладывал эту функцию у себя на сайте Функция НОД (наибольший общий делитель) на VBA |
23.04.2017, 11:07 | #3 |
Новичок
Джуниор
Регистрация: 22.04.2017
Сообщений: 2
|
у меня не получается с MsgBox ,да и вообще не правильно я написала программу, не сильна в VBA
Последний раз редактировалось Lizka; 23.04.2017 в 11:47. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B) | sisaw | Помощь студентам | 0 | 06.05.2014 20:36 |
Нахождения наибольшего общего делителя в виде подпрограммы | Тина37 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 04.03.2013 16:48 |
Нахождение наибольшего общего делителяНахождение наибольшего общего делителя | A_Orlov | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.04.2010 16:53 |
Нахождение наибольшего общего делителя | fs444 | Общие вопросы C/C++ | 4 | 29.03.2010 19:07 |
нахождение наибольшего общего делителя и наименьшего общего кратного | made in russia | Помощь студентам | 2 | 21.12.2008 23:36 |