Hirdetés
- Az AMD szerint Radeonokból nem lesz hiány
- CES 2026: igazi mindenes a Lenovo legújabb, 4K-s QD-OLED monitora
- A Micron szerint nem dobbantott a végfelhasználói piacról a Crucial eltűnésével
- Beépített hangszórót is kapott az MSI legfrissebb mini PC-je
- CES 2026: egy ponton világelső lett a Micron új SSD-családja
- Milyen egeret válasszak?
- CES 2026: hivatalosan is kettészakítja a PC-s kézikonzolok piacát a Lenovo
- Milyen videókártyát?
- AMD vs. INTEL vs. NVIDIA
- TCL LCD és LED TV-k
- CES 2026: igazi mindenes a Lenovo legújabb, 4K-s QD-OLED monitora
- Milyen széket vegyek?
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Milyen TV-t vegyek?
- Cooler Master topic
Ú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
- Könyvajánló
- Milyen egeret válasszak?
- CES 2026: hivatalosan is kettészakítja a PC-s kézikonzolok piacát a Lenovo
- Alaposan helyretette az AI ellenzőit az NVIDIA vezetője
- Samsung kuponkunyeráló
- Robotporszívók
- Kerékpárosok, bringások ide!
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Mibe tegyem a megtakarításaimat?
- Milyen videókártyát?
- További aktív témák...
- HP EliteOne 800 G6 All-in-One i5-10500 32GB 1000GB 24" Érintőkijelző!! 1 év garancia
- Azonnali készpénzes nVidia RTX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- BESZÁMÍTÁS! MSI B650 R7 7700 64GB DDR5 1TB SSD RX 7900 XTX 24GB Lian Li LANCOOL 216 ARGB 850W
- GYÖNYÖRŰ iPhone 12 mini 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3878
- Apple iPad 11Pro Wifi+Cell 256GB Kártyafüggetlen 1év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest


