Hirdetés
- Gurulunk, WAZE?!
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- petipetya: Nagy chili topic. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Lalikiraly: Kinek milyen setupja van?
- gban: Ingyen kellene, de tegnapra
- sparks: Az első 7 nap egy iPhone 17 Pro Max-szal
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Új hozzászólás Aktív témák
-
Milgram1
aktív tag
Hali,
Középsuliban tanulok most MS Visual Basic-et és úgy gondolom hogy az ami órán van az kevés mert vettünk programozási tételeket, fájlkezelést valamennyire és kb ennyi. ezekkel több összetettebb feladtat. Engem érdekelne a dolog, ha ismerném rendesen akkor itthon alkotnék vele dolgokat csak nem tudom hol lehetne tanulni rendesen. Szóval az lenne a kérdésem hogy ismer-e valaki olyan oldalt/könyvet ahol tudok tanulgatni több dolgot hogy hasznavehető programokat írhassak magamnak. -
Milgram1
aktív tag
Sziasztok!
Megtudja valaki mondani hogy miért 0-át ír az új tömbökbe?Imports System.Console
Module Module1
Sub Main()
Dim x(20), y(20), db1, db2, z(20) As Integer
Randomize()
For i = 1 To 20
x(i) = Rnd() * 99 + 1
WriteLine(x(i))
Next
db1 = 0
db2 = 0
For i = 1 To 20
If x(i) Mod 2 = 0 Then
x(i) = y(i)
db1 = db1 + 1
Else
x(i) = y(i)
db2 = db2 + 1
End If
Next
Write("páros számok:")
For i = 1 To 20
WriteLine(y(i))
Next
Write("páratlan számok:")
For i = 1 To 20
WriteLine(z(i))
Next
ReadLine()
End Sub
End Module
Új hozzászólás Aktív témák
- Így tör borsot a Samsung az Apple Vision Pro orra alá
- Kínai tulajdonban sem változtat nevet a MediaMarkt
- Projektor topic
- Milyen alaplapot vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- Gurulunk, WAZE?!
- TCL LCD és LED TV-k
- Melyik tápegységet vegyem?
- Építő/felújító topik
- btz: Internet fejlesztés országosan!
- További aktív témák...
- 200 ezerrel ár alatt! A széria királya! A legmaxosabb 5080! Asus rog astral !
- ESZMÉLETLEN JÓ ÁRON MINDEN VAN! Amit csak szeretnél írd meg, szinte biztos hogy van! GARIS ÚJ cuccok
- AMILYEN GAMER PC-t AKARSZ AZT ÉN ÁR ALATT ÖSSZERAKOM NEKED! TELEVAGYOK KOMPONENSEKKEL! ÍRJ BÁTRAN!
- AMILYEN GAMER PC-t AKARSZ AZT ÉN ÁR ALATT ÖSSZERAKOM NEKED! TELEVAGYOK KOMPONENSEKKEL! ÍRJ BÁTRAN!
- KONKRÉTAN FÉLÁRON! Új GARANCIÁS ASUS ROG MAXIMUS Z890 EXTREME
- Acer TravelMate P214 i3-1115G4 12GB 256GB 14" FHD 1év garancia
- Lenovo ThinkPad dokkolók: USB-C 40A9/ 40AY/ 40AS/ Thunderbolt 3 40AC/ Hybrid USB-C DisplayLink 40AF
- Azonnali készpénzes Sony Playstation 4 Slim / PS4 Pro felvásárlás személyesen/csomagküldéssel
- Designer 4K Monitor - BenQ PD-3200-U
- AKCIÓ! 750W Seasonic PRIME TX-750 Titanium tápegység garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest