Тип данных Decimal. Как использовать? - VB
Формулировка задачи:
Максимальное число с которым я могу оперировать это 24159191040 (Long). Как преобразовать long или Variant в Decimal? Или как получить Decimal?Просто так Decimal не добавляется, хотя на сайте Microsoft прямо так и пишут Dim d1,d2,d3,d4 as Decimal. Если я увеличиваю For i = 1 To 155432 (корень из 24159191040(Long)), то когда значение i становится 46341 (что это?) выскакивает ошибка Run time error 6 Overflow.
Код моей программы для поиска автоморфных чисел ниже
Ошибка "Overflow" именно в подсчете b Mod 10 ^ a.Но хотелось бы также узнать как использовать Decimal?
Решение задачи: «Тип данных Decimal. Как использовать?»
textual
Листинг программы
Dim i As Long, m As Double, b Sub Command1_Click() m = 10 For i = 1 To 100000000 If i >= m Then m = m * 10 b = CDec(i) * i If i = b - Int(b / m) * m Then Debug.Print i Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д