Составить программу, выводящую на экран таблицу значений факториалов от 1 до 20

@kostyan020 · Регистрация: 25.12.2019

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

должно работать в Visual Basic 6.0. очень нужна ваша помощь!!!!!!

@IDK · 26.12.2019, 13:47

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Public Sub Main()
    Dim lngX As Long, lngY As Long, lngRetval As Variant
    For lngX = 1& To 20&
        lngRetval = 1&
        For lngY = 2& To lngX
            lngRetval = lngRetval * lngY
        Next lngY
        Debug.Print (lngY - 1&) & "! = " & lngRetval
    Next lngX
End Sub

@Catstail · 26.12.2019, 15:24

А чего же только да 20? А до ста и более?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Function multByInt(num As String, k As Integer) As String
         n% = Len(num)
         p% = 0
         multByInt = ""
         For i% = n% To 1 Step -1
             d% = Val(Mid$(num, i%, 1))
             t% = (d% * k) + p%
             p% = t% \ 10
             multByInt = CStr(t% Mod 10) & multByInt
         Next i%
         If p% <> 0 Then multByInt = CStr(p%) & multByInt
End Function
 
Function delZ(s As String) As String
        If Len(s) = 1 Then
           delZ = s
        Else
           If Left$(s, 1) = "0" Then
              delZ = delZ(Mid$(s, 2))
           Else
              delZ = s
           End If
        End If
End Function
 
Function longAdd(s1 As String, s2 As String) As String
         n1% = Len(s1)
         n2% = Len(s2)
         If n1% = n2% Then
            n% = n1%
         Else
            If n1% > n2% Then
               s2$ = String(n1% - n2%, "0") & s2
               n% = n1%
            End If
            If n2% > n1% Then
               s1$ = String(n2% - n1%, "0") & s1
               n% = n2%
            End If
         End If
         p% = 0
         For i% = n% To 1 Step -1
             a1% = Val(Mid$(s1, i%, 1))
             a2% = Val(Mid$(s2, i%, 1))
             t% = a1% + a2% + p%
             longAdd = CStr(t% Mod 10) & longAdd
             p% = t% \ 10
         Next i%
         If p% <> 0 Then longAdd = CStr(p%) & longAdd
         longAdd = delZ(longAdd)
End Function
 
Function longMult(s1 As String, s2 As String) As String
         longMult = "0"
         n% = Len(s2)
         Z$ = ""
         For i% = n% To 1 Step -1
             tmp$ = multByInt(s1, Val(Mid$(s2, i%, 1))) & Z$
             longMult = longAdd(longMult, tmp$)
             Z$ = Z$ & "0"
         Next i%
End Function
 
Sub main()
    a$ = "1"
    For i% = 1 To 100
        b$ = CStr(i%)
        r$ = longMult(a$, b$)
        Debug.Print b$; "!="; r$
        a$ = r$
    Next i%
End Sub

Кликните здесь для просмотра всего текста

1!=1
2!=2
3!=6
4!=24
5!=120
6!=720
7!=5040
8!=40320
9!=362880
10!=3628800
11!=39916800
12!=479001600
13!=6227020800
14!=87178291200
15!=1307674368000
16!=20922789888000
17!=355687428096000
18!=6402373705728000
19!=121645100408832000
20!=2432902008176640000
21!=51090942171709440000
22!=1124000727777607680000
23!=25852016738884976640000
24!=620448401733239439360000
25!=15511210043330985984000000
26!=403291461126605635584000000
27!=10888869450418352160768000000
28!=304888344611713860501504000000
29!=8841761993739701954543616000000
30!=265252859812191058636308480000000
31!=8222838654177922817725562880000000
32!=263130836933693530167218012160000000
33!=868331761881188649551819440128000000 0
34!=295232799039604140847618609643520000 000
35!=103331479663861449296666513375232000 00000
36!=371993326789901217467999448150835200 000000
37!=137637530912263450463159795815809024 00000000
38!=523022617466601111760007224100074291 200000000
39!=203978820811974433586402817399028973 56800000000
40!=815915283247897734345611269596115894 272000000000
41!=334525266131638071081700620534407516 65152000000000
42!=140500611775287989854314260624451156 9936384000000000
43!=604152630633738356373551320685139975 07264512000000000
44!=265827157478844876804362581101461589 0319638528000000000
45!=119622220865480194561963161495657715 064383733760000000000
46!=550262215981208894985030542880025489 2961651752960000000000
47!=258623241511168180642964355153611979 969197632389120000000000
48!=124139155925360726708622890473733750 38521486354677760000000000
49!=608281864034267560872252163321295376 887552831379210240000000000
50!=304140932017133780436126081660647688 44377641568960512000000000000
51!=155111875328738228022424301646930321 1063259720016986112000000000000
52!=806581751709438785716606368564037669 75289505440883277824000000000000
53!=427488328406002556429801375338939964 9690343788366813724672000000000000
54!=230843697339241380472092742683027581 083278564571807941132288000000000000
55!=126964033536582759259651008475665169 59580321051449436762275840000000000000
56!=710998587804863451854045647463724949 736497978881168458687447040000000000000
57!=405269195048772167556806019054323221 3498038479622660214518448128000000000000 0
58!=235056133128287857182947491051507468 3828862318181142924420699914240000000000 000
59!=138683118545689835737939019720389406 3459028767726874325408212949401600000000 00000
60!=832098711274139014427634118322336438 0754172606361245952449277696409600000000 000000
61!=507580213877224798800856812176625227 2260045289880360030994059394809856000000 00000000
62!=314699732603879375256531223549507640 8801228079725823219216316824782110720000 0000000000
63!=198260831540444006411614670836189813 7544773690227268628106279599612729753600 000000000000
64!=126886932185884164103433389335161480 8028655161745451921988018943752147042304 00000000000000
65!=824765059208247066672317030678549625 2186258551345437492922123134388955774976 000000000000000
66!=544344939077443064003729240247842752 6442930643887988745328601268696710811484 16000000000000000
67!=364711109181886852882498590966054644 2716763531404952459370162850026796243694 3872000000000000000
68!=248003554243683059960099041856917158 1047399201355367672371710738018221445712 183296000000000000000
69!=171122452428141311372468338881272839 0922705448935203693936480409232572797541 40647424000000000000000
70!=119785716699698917960727837216890987 3645893814254642585755536286462800958278 9845319680000000000000000
71!=850478588567862317521167644239926010 2885846081207962358864307633885886803780 79017697280000000000000000
72!=612344583768860868615240703852746727 4077809178469732898382301496397838498722 1689274204160000000000000000
73!=447011546151268434089125713812505111 0076800700282905015819080092370422104067 183317016903680000000000000000
74!=330788544151938641225953028221253782 1456832518209349711706119268354112357009 71565459250872320000000000000000
75!=248091408113953980919464771165940336 6092624388657012283779589451265584267757 2867409443815424000000000000000000
76!=188549470166605025498793226086114655 8230394535379329335672487982961844043495 537923117729972224000000000000000000
77!=145183092028285869634070784086308284 9837403792242083588467815746880619913491 56420080065207861248000000000000000000
78!=113242811782062978314575211587320462 2873174957948825199004896282566883532523 4200766245086213177344000000000000000000
79!=894618213078297528685144171539831652 0698082167795719072138680632278379906935 0186053336181084101017600000000000000000 0
80!=715694570462638022948115337231865321 6558465734236575257710944505822703925548 0148842668944867280814080000000000000000 000
81!=579712602074736798587973423157810910 5412357244731625958745865049716390179693 8920562561845342497459404800000000000000 00000
82!=475364333701284174842138206989404946 6438132940679933286171609340767439947348 9914861300713180847916711936000000000000 0000000
83!=394552396972065865118974711801206105 7143650340764344627522435752836975156299 6629334879591940103770870906880000000000 000000000
84!=331424013456535326699938757913013128 8000666286242049487118846032383059131291 7168641298857229687167531561779200000000 00000000000
85!=281710411438055027694947944226061159 4800566343305742064051019127525600261597 9593345104028645234092401827512320000000 0000000000000
86!=242270953836727323817655232034412597 1528487055242938175083876449672016224974 2450276789464634901319465571660595200000 000000000000000
87!=210775729837952771721360051869938959 5229783738061356212322972511214654115727 5931740806834232364147935047344717824000 00000000000000000
88!=185482642257398439114796845645546284 3802209689493993466844215809868895621840 2819931910014124480450182841663351685120 0000000000000000000
89!=165079551609084610812169192624536193 0983966623649654185491352070783317103437 8509739399912570787600662729080382999756 800000000000000000000
90!=148571596448176149730952273362082573 7885569961284688766942216863704985393094 0658765459921313708840596456172344699781 12000000000000000000000
91!=135200152767840296255166568759495142 1475868664769066777917417345971536707715 5999476568528395475044942775116833676800 8192000000000000000000000
92!=124384140546413072554753243258735530 7757799171587541435684023958293813771098 3519518443046123837041347353107486982656 753664000000000000000000000
93!=115677250708164157475920516230624043 6214753229576413535186142281213246807121 4673152152032895168448453038389962893870 78090752000000000000000000000
94!=108736615665674308027365285256786601 0041868035801828723074973744340451998694 1792763022910921458341545856086565120238 5340530688000000000000000000000
95!=103299784882390592625997020993947270 9539774634011737286921225057123429398759 4703124871765375385424468563282236864226 607350415360000000000000000000000
96!=991677934870949689209571401541893801 1581836486512677954443760548384922228090 9149998768947603700074898207509473896575 4305639874560000000000000000000000
97!=961927596824821198533284259495636987 1234381391917297615810447731933374561248 1875498805879175589072651261284189679678 167647067832320000000000000000000000
98!=942689044888324774562618574305724247 3809693764078951663494238777294707070023 2237988829761592077291198236058505886084 60429412647567360000000000000000000000
99!=933262154439441526816992388562667004 9071596826438162146859296389521759999322 9915608941463976156518286253697920827223 7582511852109168640000000000000000000000
100!=93326215443944152681699238856266700 4907159682643816214685929638952175999932 2991560894146397615651828625369792082722 3758251185210916864000000000000000000000 000

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@kostyan020 0 / 0 / 0 Регистрация: 25.12.2019 Сообщений: 1

	Составить программу, выводящую на экран таблицу значений факториалов от 1 до 20 25.12.2019, 17:24. Показов 2453. Ответов 2 Метки нет (Все метки) должно работать в Visual Basic 6.0. очень нужна ваша помощь!!!!!! 0

Составить программу, выводящую на экран таблицу значений факториалов от 1 до 20

Решение