Переполнение при перемножении чисел типа Variant - VB

Узнай цену своей работы

Формулировка задачи:

Вот так работает:
А вот так выдаёт "переполнение":
А мне надо знать общее кол-во фишек при TotI = 10000 и каждый тур TotI уменьшается

Решение задачи: «Переполнение при перемножении чисел типа Variant»

textual
Листинг программы
Dim NStek As Integer
Dim TotF As Long
'.........................
NStek = 1500: TotI = 10000
'........................
TotF = CLng(NStek) * TotI

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


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

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

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