Új hozzászólás Aktív témák

• #1539 RexpecT addikt

  Új Válasz 2011-12-03 11:51:45 #1539

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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