|
Visual Basic 5.0/6.0 - Простые математические операцииВсе примеры / Числа, математика, финансы / Простые математические операцииАлгоритм Евклида
Автор: Петр (Skript) Пономарев | добавлено: 11.12.2011, 03:36 | просмотров: 5283 (1+) | комментариев: 0 | рейтинг:
Программа вычисляет дискриминант и дроби.
![]() КодDim n As Double Dim m As Double Private Sub Command1_Click() m = InputBox("Введите значение первого числа") n = InputBox("Введите значение второго числа") While (m <> 0) And (n <> 0) If m > n Then m = m - n End If n = n - m Wend Print m End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|