Kezdőoldal » Számítástechnika » Programozás » Visual Basic segítség?

Visual Basic segítség?

Figyelt kérdés

Azt szeretném megoldani, hogy a program egy ListBox-ba kiírja 1-n ig a prímszámokat! Azt mondták 2db ciklussal lehet de sehogy se tudtam megoldani!

2011. ápr. 1. 22:54

1/3 anonim

válasza:

Nem írom le a parancsokat, de a megoldás:

Két, egymásba ágyazott FOR ciklus. Az első szépen kiad magában egy számot, 1-től indulva.

A második, ebben lévő ciklus pedig minden, ennél a számnál kissebb számmal maradékos osztást végez (% múveleti jel). Ha a maradékos osztás eredménye 0-a, akkor Break-el szakítsd meg a ciklust, mert találtál osztót. Ha a ciklus elmegy a végéig (tehát a második ciklus változó egyenlő lesz az első -1-el) akkor az a szám prímszám, és add hozzá a ListBox-hoz (ListBox1.Items.Add), majd így addig, amíg nem lesz meg a kért mennyiségű prímszám.

2011. ápr. 1. 23:01

Hasznos számodra ez a válasz?

2/3 anonim

válasza:

Mondjuk az 1-t át is ugorhatja kapásból, hiszen arról tudjuk, hogy nem prím... és a te algoritmusoddal ki fogja hozni, hogy az 1 bizony prím (hiszen nem fog osztót találni a nála kisebb számok között).

2011. ápr. 2. 13:56

Hasznos számodra ez a válasz?

3/3 A kérdező kommentje:

Dim i, j, s, k As Integer

k = 0

For i = 1 To 100

s = 0

For j = 1 To i

If (i Mod j) = 0 Then s = s + 1

Next (j)

k = 0

If s = 2 Then

lista.Items.Insert(k, i)

k = k + 1

End If

Next (i)

End Sub

2011. ápr. 4. 13:56

Kapcsolódó kérdések:

Prímszámos programot írok pascalba, és nagyon elakadtam, segítség?