Ú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
- EVGA X570 Dark RITKASÁG!!!! 2 hetet használt.
- Beszámítás! ASUS B450M R5 3600X 16GB DDR4 240GB SSD 1TB HDD RTX 2060 6GB Rampage Shiva ZALMAN 600W
- Beszámítás! ASRock H510M i7 10700 16GB DDR4 480GB SSD RTX 3070 8GB AeroCool Aero One Seasonic 650W
- SAPPHIRE RX 6800 XT 16GB GDDR6 NITRO+ SE Eladó! 145.000.-
- Beszámítás! ASRock H510M i5 10500 16GB DDR4 240GB SSD 2TB HDD RTX 3070 8GB Rampage BE QUIET! 650W
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs