- Milyen egeret válasszak?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Derekas áremelést jelentett be az ASUS
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Házimozi belépő szinten
- Véleményes teszt bizonygatja mennyit ér a Macbook Neo 8 GB RAM-ja
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Vezeték nélküli fejhallgatók
- Tavaszi hardvernyitány
- Milyen házat vegyek?
Ú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
- Elektromos cigaretta 🔞
- Apple iPhone 17e – mágnesek ereje
- sziku69: Fűzzük össze a szavakat :)
- Milyen egeret válasszak?
- A Föld teraformálásával építene galaktikus birodalmat Elon Musk
- Xbox tulajok OFF topicja
- Vigneau interaktív lokálblogja
- Autós topik
- NBA és kosárlabda topic
- LEGO klub
- További aktív témák...
- iPhone 15 Pro max 256GB gyári független 2027.08.07. Apple jótállás
- Apple watch Series 9 45mm stainless steel bontatlan milánói szíjjal!
- HyperX Predator 2x8GB 3200mhz DDR4 ram CL 16 !!!! - RGB !!!!
- iPhone 14 Pro max 128GB gyári független makulátlan új akku!!!
- Apple watch S9 45mm Gps 2026.11.21. EMAG jótállás
- GYÖNYÖRŰ iPhone 11 128GB Black-1 ÉV GARANCIA -Kártyafüggetlen, MS4360, 100% Akksi
- Asus TUF F15 FX506HE / 15,6" / i5-11400H / RTX 3050 Ti / 16GB DDR4 / 512GB SSD! BeszámítOK!
- NVIDIA Quadro M2000 4GB 128bit GDDR5 videokártya
- GYÖNYÖRŰ iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4567
- Lenovo T495 Ryzen 5 pro 3500U, 16GB RAM, 512GB SSD, jó akku, újszerű állapot, számla, garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest







