Ú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
- Új - 16.2" MacBook Pro M3 MAX 14C / 30C 36GB / 1 TB - Magyar - AKCIÓ
- Új Gamer PC i5 12400F/13400F/24Gb DDR5 5600Mhz/RTX 4060 Vagy RTX 4060 Ti 8Gb/500Gb M2 SSD 2-3 Év gar
- Új Gamer PC i5 12400F/13400F/24Gb DDR5 5600Mhz/RX 6600 Vagy RX 6600 XT 8Gb/500Gb M2 SSD 2-3 Év gari
- AKCIÓ Új Dobozos Macbook Pro dokkoló új ára 70.000 forint
- ThinkPad Hybrid USB -C USB -A Dock 40AF Új ára 80.000 Forint Ingyen szállítás
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest