В какой тип данных можно записать факториал 140?

[zHackLeX]

Кто-нть что-нть предложит а?
А то мне влом писать функцию строкового умножения/сложения
А?

[A.A.Z.]

Только одно на ум приходит

Код: Выделить всё

Option Explicit

'на форме TextBox
Sub Factorial(Number As Long, Text As TextBox)
Dim i As Long
Text.Text = 1
For i = 1 To Number
Text.Text = Text.Text * i
Next
End Sub

Sub Form_Load()
Factorial(140, Text1)
End Sub


(Но ответ будет в экспонсиальном (кажется, так ) формате, и то, факториал только до 170)

[A.A.Z.]

Или так:

Код: Выделить всё

Option Explicit

Sub Factorial(Number As Long, Text As TextBox)
Dim i As Long
Text.Text = 1
For i = 1 To Number
Text.Text = Text.Text * i
Next
Text.Text = Format(Text.Text, 0)
End Sub

Private Sub Form_Load()
Factorial 140, Text1
End Sub


(Но тогда, впрочем, как и в первый раз, ответ будет сильно приближённым)

[A.A.Z.]

ВЕЩЬ!!!

Для работы с ОЧЕНЬ большими числами!

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=21389&strZipAccessCode=tp%2FC213898822