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

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

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

Код к задаче: «Переполнение при перемножении чисел типа Variant - VB»

textual
Dim NStek As Integer
Dim TotF As Long
'.........................
NStek = 1500: TotI = 10000
'........................
TotF = CLng(NStek) * TotI

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.267 из 5


СОХРАНИТЬ ССЫЛКУ