найти факториал без использовании функции

@Margoshe · Регистрация: 10.06.2013

Студворк — интернет-сервис помощи студентам

Visual Basic

Public Sub silniaBezSilni()
 Dim n As Integer, k As Integer, a As Integer, b As Integer, c As Integer, w As Long, i As Integer
    n = Val(InputBox("подайте n "))
    k = Val(InputBox("подайтеk "))
        
        a = 1
        For i = 1 To n 
        a = a * i
        Next i
        
        b = 1
        For i = 1 To k
        b = b * i
        Next i
        
        c = 1
        For i = 1 To n - k
        c = c * i
        Next i
        
        w = a / (b * c)
        
        MsgBox "результат= " & w
 
End Sub

ребята что с этим не так? почему считает только для малых n и k
при дебаге ругается вот на это место
a = a * i

@Catstail · 16.06.2013, 22:45

Переполнение... Вместо integer/long возьми double

@Catstail Модератор 36369 / 19818 / 4152 Регистрация: 12.02.2012 Сообщений: 32,947 Записей в блоге: 13
	16.06.2013, 22:45	2
	Сообщение было отмечено The trick как решение Решение Переполнение... Вместо integer/long возьми double 1

Опции темы

найти факториал без использовании функции

Решение