- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2025
- vrob: Az utolsó DOS játékok 1996 - 1997-ben, egy korszak lezárul
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- Elektromos rásegítésű kerékpárok
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
-
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
- Windows 11
- Új szintre emeli a csalók elleni védelmet a Battlefield 6
- Szeged és környéke adok-veszek-beszélgetek
- Kecskemét és környéke adok-veszek-beszélgetek
- Milyen egeret válasszak?
- Tőzsde és gazdaság
- Kínai és egyéb olcsó órák topikja
- Futás, futópályák
- LEGO klub
- Itt egy pár fotó az iPhone 17 sorozatról
- További aktív témák...
- Eladó szép állapotban levő Apple iPhone 12 Mini 64GB / 12 hó jótállás
- Eladó Új állapotban lévő Xiaomi Redmi 13C 4/128GB / 12 hó jótállás
- Megkímélt állapotban lévő Xiaomi 12T Pro 8/256GB / 12 hó jótállás
- Siguro AC-C140W Cool 9 Mobil klíma, mobilklíma + ajándék
- Lenovo Ideapad3 Ryzen3-3250 MAGYAR Billentyű IPS FHD 12gb ram 256 ssd windows11
- billentyűzetek - kiárusítás - Logitech, Corsair, ASUS
- CSX 2x2GB (4GB) DDR 800 MHz kit
- Surface Laptop 7 Business edition - Intel Core ultra 5 236V energiahatékonyabb az intelnél! -olvass
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 55992Ft+ÁFA
- Honor MagicBook 16 Ryzen 5 5600H 16GB 512GB FHD 144Hz
Állásajánlatok
Cég: FOTC
Város: Budapest