- sziku69: Fűzzük össze a szavakat :)
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- Rap, Hip-hop 90'
- Meggyi001: RTX 5060 - Az új népkártya?
- eBay-es kütyük kis pénzért
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Ú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
- Augusztusi hardverszuflé
- Brawl Stars
- Milyen notebookot vegyek?
- sziku69: Fűzzük össze a szavakat :)
- Amlogic S905, S912 processzoros készülékek
- Milyen okostelefont vegyek?
- Autós topik
- Autós topik látogatók beszélgetős, offolós topikja
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Gamepad
- További aktív témák...
- Canon EOS 250D gépek, objektívekkel, kiegészítőkkel. (200 vagy 970 expoval)
- DJI FPV Fly More Combo drón szett +Motion Controller
- Hama uRage CyberBoard billentyüzet+HAMA Urage gaming egér
- 6gen i3 pc i3-6100/8gb ddr4/120 gb SSD GTX 960-2 gb DDR5
- Canon EOS 200D gépek, objektívekkel, kiegészítőkkel. ( 777 vagy 3800 expoval)
- MacBook felvásárlás!! MacBook, MacBook Air, MacBook Pro
- Új Dell 14 Inspiron 5435 FHD+ Ryzen7 7730U 4.5Ghz 16GB 512GB SSD Radeon RX Vega 8 Win11 Garancia
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- DOKKOLÓ BAZÁR! Lenovo, HP, DELL és egyéb más dokkolók (TELJES SZETTEK)
- Xiaomi Redmi 14 C 128GB Kártyafüggetlen 1Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest