Prvočíselný roklad – Visual Basic – Fórum – Programujte.com

nevím jak mám tohle vytvořit.

Připojen obrázek.

Připojen obrázek.

Ahoj. Ten samotný rozklad nemusí být těžký, je to spíše "hrubá síla." Příliš nechápu ten doplňovací seznam prvočísel vlevo. Znamená to, že se rozkládané číslo rozloží jen na tahle určená prvočísla a ostatní se ignorují, nebo jak? A taky proč je tam to (* 1) u každého rozkladu? To je takové nadbytečné. Jednak proto, že ty jedničky tam můžou být do nekonečna a také jednička snad ani není prvočíslo...

Jádro, verze 1: 

Function NajdiPrvocislo(Delenec As Long) As Long

    For Delitel = 2 To Int(Sqr(Delenec))
        If Delenec Mod Delitel = 0 Then
            NajdiPrvocislo = Delitel
            Exit Function
        End If
    Next Delitel

    NajdiPrvocislo = 0

End Function

Ten kód má asi 140 řádků, tak jsem ho fláknul jsem:

http://uloz.to/xCarYeDH/generator-prvocisel-a-prvociselny-rozklad-xls

:-)

Povolit makra - Ano

A jestli ses ptal na to, jak vytvořit vlastní okno v Excelu...

1. Otevři Excel

2. Zmáčkni zárověň ALT+F11, dostaneš se do editoru Visual Basicu

3. Nahoře v Menu zadej, Insert --> UserForm, tím vytvoříš nové okno s názvem UserForm1

4. Zmáčkni F5 a tím spustíš "makro" - hotovo.

Když chceš, aby se to okno zobrazovalo ihned po načtení sešitu...

5 V menu zadej View -->Projekt Explorer

6 Dvojklikni na Tento_sešit

7 A napiš do něj tuhle proceduru:

Private Sub Workbook_Open()

    UserForm1.Show

End Sub