Új hozzászólás Aktív témák
-
RexpecT
addikt
válasz
martonx #1541 üzenetére
Ott volt a leírásban, a függvény megkap egy sztringet amiben számok állnak vesszővel elválasztva ezek közül adja vissza a két legnagyobb szám összegét:
Function osszead(param As String)
Dim szoveg() As String, szam1 As Integer, szam2 As Integer, i As Integer
szoveg = Split(param)
For i = LBound(szoveg) To UBound(szoveg)
If szam1 < szoveg(i) Then
If szam2 < szoveg(i) Then
szam1 = szam2
szam2 = szoveg(i)
Else
szam1 = szoveg(i)
End If
End If
Next i
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
- Fúziós energiát vásárol a Google
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- A GravaStar analóg klaviatúráira nem mondható, hogy konformisták volnának
- A OnePlus ellen biztonsági aggályok miatt indítanának vizsgálatot az USA-ban
- HP notebook topic
- Amlogic S905, S912 processzoros készülékek
- Luck Dragon: Asszociációs játék. :)
- Egérpad topik
- Számtech boltosok memoárjai, azaz amikor kiborulunk...
- Witcher topik
- További aktív témák...
- Playstation 4 500GB Destiny The Taken King Limited Edition
- P16 Gen1 16" FHD+ IPS i7-12850HX RTX A3000 32GB 1TB NVMe ujjlolv gar
- Bomba ár! Dell Latitude 5490 - i5-8GEN I 8GB I 256GB SSD I 14" FHD Touch I HDMI I Cam I W10 I Gari!
- Bomba ár! Dell Latitude 7280 - i7-7GEN I 16GB I 256SSD I 12,5" FHD Touch I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude 5590 - i5-8GEN I 8GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Gari!
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
- AKCIÓ! 16GB (2x8) G.Skill Trident Z RGB 4266MHz DDR4 memória garanciával hibátlan működéssel
- 127 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080 (ELKELT)
- TP-Link Archer C1200 Router eladó (1200 Mb/s Wi-Fi)
- Azonnali kézbesítés az év bármely pillanatában
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest