Переполнение при перемножении чисел типа Variant - VB
Формулировка задачи:
Вот так работает:
А вот так выдаёт "переполнение":
А мне надо знать общее кол-во фишек при TotI = 10000 и каждый тур TotI уменьшается
Решение задачи: «Переполнение при перемножении чисел типа Variant»
textual
Листинг программы
Dim NStek As Integer Dim TotF As Long '......................... NStek = 1500: TotI = 10000 '........................ TotF = CLng(NStek) * TotI