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

• #1542 RexpecT addikt martonx #1541

  Új Válasz 2011-12-03 13:51:00 #1542

  Ú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

  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