- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- antikomcsi: Ázsia Expressz 5
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
- Sgr_A: Számítógépeim aktualizálása cseréje
Új hozzászólás Aktív témák
-
RexpecT
addikt
Lenne egy feladatom:
Készítsen olyan függvényt, ami a paraméterként egyetlen sztringet kap, ami egész számokat tartalmaz szóközzel elválasztva. A függvény adja vissza a két legnagyobb szám összegét. A sztring legalább két számot tartalmaz.Function osszead(param As String)
Dim szoveg() As String
Dim szam1 As Integer
Dim szam2 As Integer
szoveg = Split(param)
First = LBound(szoveg)
Last = UBound(szoveg)
For i = First To Last - 1
For j = i + 1 To Last
If szoveg(i) > szoveg(j) Then
Temp = szoveg(j)
szoveg(j) = szoveg(i)
szoveg(i) = Temp
End If
Next j
Next i
szam1 = szoveg(i)
szam2 = szoveg(j)
osszead = szam1 + szam2
End Function
Sub main()
Dim szamok As String
szamok = "1 2 3 20 5 6 8 9 8"
MsgBox osszead(szamok)
End Sub
Új hozzászólás Aktív témák
- Nothing Headphone (1) – nem kell ide idézet
- Amlogic S905, S912 processzoros készülékek
- Xiaomi 11 Lite 5G NE (lisa)
- 5.1, 7.1 és gamer fejhallgatók
- Nők, nőügyek (18+)
- Építő/felújító topik
- Az iPhone a mobilpiac katalizátora
- Kerékpárosok, bringások ide!
- Battlefield 6 - Fókuszban a PC-s kiadás
- Path of Exile 2
- További aktív témák...
- AKCIÓ! 6TB Seagate SkyHawk SATA HDD meghajtó garanciával hibátlan működéssel
- Tablet felvásárlás! Samsung Galaxy Tab S10+, Samsung Galaxy Tab S10 Ultra, Samsung Galaxy Tab S10 FE
- Honor X7 fekete 128GB 12 hónap jótállással!
- Bomba ár! Dell Latitude E5450 - i7-5GEN I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W10 I Gari!
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest