Hirdetés
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Kell-e manapság egérpad vagy sem?
- sh4d0w: Kalózkodás. Kalózkodás?
- eBay-es kütyük kis pénzért
- Real Racing 3 - Freemium csoda
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
Ú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
- Apple iPhone 17 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 14 Pro Max 128GB Deep Purple Gyári független
- PC bontás - Thermaltake ház, Fsp 650W, GIGYBYTE AB350M, AMD RYZEN 5 1600x, 16GB DDR4 3000, GTX 1080
- TMR, HALL, Dualsense, Xbox kontrollerek felújítása
- TMR, HALL, Dualsense, Xbox kontrollerek felújítása
- ÓRIÁSI AKCIÓK / MICROSOFT WINDOWS 10,11 / OFFICE 16,19,21,24 / VÍRUS,VPN VÉDELEM / SZÁMLA / 0-24
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RX 9070 16GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 Pro Max 128GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3551,100% Akkumulátor
- Tablet felvásárlás!! Samsung Galaxy Tab A8, Samsung Galaxy Tab A9, Samsung Galaxy Tab S6 Lite
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest

