Тип данных 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы