Új hozzászólás Aktív témák
-
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 -
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.
Új hozzászólás Aktív témák
- Computex 2024: várakozásokat felülmúló számok
- sziku69: Fűzzük össze a szavakat :)
- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
- Honor 200 Pro - mobilportré
- OLED TV topic
- Anglia - élmények, tapasztalatok
- Yettel topik
- Politika
- Bivalyerős lett a Poco F6 és F6 Pro
- Xbox tulajok OFF topicja
- További aktív témák...
- Lenovo Thinkpad E14 (11.th i5, 16 GB 512 M.2, FHD) leárazás!!!AkciÓÓ!
- GOPRO Hero 11 BLACK - 5.3k akciókamera
- Lenovo Thinkpad L14 (10.th i5, 16 GB 512 M.2, FHD) leárazás!!!AkciÓÓ!
- Lenovo Thinkpad E15 (11.th i5, 8 GB 256 M.2, FHD) leárazás!!! AkciÓÓ!
- BESZÁMÍTÁS! Microsoft XBOX Series S 512GB játékonzol garanciával hibátlan működéssel
- Gyönyörű Dell Precision 5530/15.6"/i7-8850H/32GB DDR4/512GB SSD/4GB Nvidia P1000
- Új Hama USB-host adapter
- 10.generációs Core i5-1035G1 Lenovo IdeaPad 15.6"/512GB SSD/Jó akkumulátor
- 8.generációs/Dell Latitude 5300/13.3"FHD IPS+Touch/16GB DDR4/256GB SSD/Kiváló akku!
- Új Samsung Galaxy S6 fekete bronz Ipaky telefon tok