- Meggyi001: RTX 5060 - Az új népkártya?
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Lauterbrunnen
- Gurulunk, WAZE?!
- btz: Internet fejlesztés országosan!
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Új hozzászólás Aktív témák
-
válasz
#59892992 #2468 üzenetére
Egyrészt ha kiavítanád, sem lenne jó (for a = 2 to 10), mivel 1. a kiiratás nem a ciklusban van, 2. ráadásul az értékadás után (for) változtatod a ciklusváltozó értékét.
Próbáld ki az alábbiakat és rájössz a különbségre:
1.
Sub Main()
Dim a As Integer
a = 0
For a = 2 to 10
a = a + 2
Next
Console.WriteLine("A páros számok 1-től 10-ig=" & a)
End Sub2.
Sub Main()
Dim a As Integer
a = 0
For a = 2 to 10
a = a + 2
Console.WriteLine("A páros számok 1-től 10-ig=" & a)
Next
End Sub3.
Sub Main()
Dim a As Integer
a = 0
For a = 2 to 10
Console.WriteLine("A páros számok 1-től 10-ig=" & a)
a = a + 2
Next
End Sub4.
Sub Main()
Dim a As Integer
Console.WriteLine("A páros számok 1-től 10-ig:")
For a = 2 to 10 step 2
Console.WriteLine(a)
Next
End Sub
Új hozzászólás Aktív témák
- Álláskeresés, interjú, önéletrajz
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Motoros topic
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Xbox Series X|S
- Kutya topik
- Milyen belső merevlemezt vegyek?
- A fociról könnyedén, egy baráti társaságban
- Otthoni hálózat és internet megosztás
- További aktív témák...
- Asztali PC , i5 10500 , RTX 3070 , 32GB RAM , 512GB NVME , 1TB HDD
- Lenovo Thinkpad P14s G2 Profi Tervező Notebook -Ryzen 7 Pro 5850U 32/1TB Radeon Pro 4GB!
- iPad Pro 11 hüvelykes( 3. Generációs,2021) wi-fi-cellular 128 Gb sérüléssel
- Google Pixel 9a 128gb - Makulátlan, iPon garancia, akár beszámítással
- Samsung PM9F1 1TB (980 PRO) Gen4 NVMe SSD! 7000-5100MB/s
- GYÖNYÖRŰ iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3055
- GYÖNYÖRŰ iPhone 13 Pro Max 1TB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3051
- Honor Magic5 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- HP 14 Elitebook 1040 G9 FHD+ IPS i5-1245U 10mag 16GB 512GB 5G Modem Intel Iris XE Win11 Pro Garancia
- HIBÁTLAN iPhone 12 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3028
Állásajánlatok
Cég: FOTC
Város: Budapest