Hirdetés
- Megint vizsgálja a leégő Ryzen ügyét az ASRock, amit elvileg már javítottak
- Nem akármilyen LAN-nal jön a GMKtec minigépe
- Nyakunkon a Mangmi combos kis kézikonzolja, a Pocket Max
- Megárthattak az Intel VGA-terveinek az emelkedő árak
- Képhibák a GeForce-on? Az NVIDIA szerint egy Windows frissítés okozza
- TCL LCD és LED TV-k
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Új Xeonokkal szorongatná meg az Intel az AMD-t
- NVIDIA GeForce RTX 3060 Ti / 3070 / 3070 Ti (GA104)
- AMD Navi Radeon™ RX 9xxx sorozat
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Vezetékes FEJhallgatók
- Milyen TV-t vegyek?
- Melyik tápegységet vegyem?
- Képhibák a GeForce-on? Az NVIDIA szerint egy Windows frissítés okozza
Ú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
Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Kerékpárosok, bringások ide!
- Honor Magic6 Pro - kör közepén számok
- TCL LCD és LED TV-k
- Sorozatok
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Arc Raiders
- Magga: PLEX: multimédia az egész lakásban
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Google Pixel topik
- További aktív témák...
- Apple iPhone 13 Pro 128GB, Akku: 92%, Megkímélt, Kártyafüggetlen, 1 Év Garanciával!
- Samsung Galaxy A72 6/128GB, Megkímélt, Kártyafüggetlen, 1 Év Garanciával!
- Apple iPhone SE 2022 64GB, Akku: 100% Megkímélt, Kártyafüggetlen, 1 Év Garanciával!
- Apple iPhone 13 Mini 128GB Akku: 100%, Normál. Kártyafüggetlen, 1 Év Garanciával!
- Kingston FURY Beast 16GB (1x16GB) DDR5 6000MHz CL30 - XMP/EXPO - 120 hó garancia
- GYÖNYÖRŰ iPhone XR 128GB Red-1 ÉV GARANCIA - Kártyafüggetlen, MS3984, 100% Akkumulátor
- HIBÁTLAN iPhone 14 Pro Max 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3918
- AKCIÓ! Huawei Watch 4 Pro eSIM okosóra garanciával hibátlan működéssel
- Dell Precision 5520 15,6" FHD, Xeon E3-1505M v5, 16GB RAM, Quadro 4GB VGA, SSD, jó akku, számla, gar
- iPhone 8 64GB 100% (3hónap Garancia)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest








