- Itt Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Videón mutatják meg a Nothing tervezői a Phone (4a) külső újdonságait
- MWC 2026: telefonból kivehető akciókamerát hoz az Ulefone RugOne
- Megkaptuk az első hivatalos fotókat a Honor Magic V6-ról
- Tényleg kicsit más lesz a Xiaomi 17 Ultra európai különkiadása
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Itt Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Így fotóz és ennyire melegszik a Galaxy S26 Ultra
- Android alkalmazások - szoftver kibeszélő topik
- Milyen okostelefont vegyek?
- Magyarországra érkezett a Mijia, a Xiaomi okos háztartási nagygépeinek márkája
- Google Pixel topik
- MWC 2026: Xiaomi termékdömping lesz szombaton, ezek a cuccok érkeznek
- Azonnali mobilos kérdések órája
- Xiaomi 14 Ultra - Leica hercegnő
Ú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
- Eredeti játékok OFF topik
- Mibe tegyem a megtakarításaimat?
- Kerékpárosok, bringások ide!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Windows 11
- Racoon City árnyékában: Teszteltük a Resident Evil Requiemet
- TCL LCD és LED TV-k
- Path of Exile (ARPG)
- Itt Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Apple MacBook
- További aktív témák...
- Precision 5570 15.6" 4K+ IPS érintő i7-12700H RTX A1000 32GB 512GB NVMe ujjolv IR kam gar
- HP EliteBook X G1i 14 AI - !Ryzen AI 9 HX Pro 375w Radeon 890M, Vadiúj! , MAGYAR
- Asus ROG 17 WQHD 240Hz G-Sync Ryzen9 7945HX 32GB 1TB SSD Nvidia RTX 4090 16GB 175W Win11 Garancia
- Újszerű Fujifilm XT-5 + XF 16-80mm f/4 R OIS WR garanciális
- Meta Quest 3S Xbox Edition garanciával (limitált kiadás)
- DELL UltraSharp U2722DE 27" monitor QHD LCD IPS 27% ÁFÁs
- iKing.Hu - Használt, karcmentes Google Pixel 9 Pro Fold Obsidian színben, 256 GB tárhellyel, 6 hónap
- AKCIÓ! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- 196 - Lenovo Legion Pro 5 (16IAX10) - Intel Core U7 255HX, RTX 5070 (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest







