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

• RexpecT addikt

  #1542

  #1541 martonx

  2011-12-03 13:51:00

  Új Válasz

  Ú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

  

  RexpecT

  addikt

  #1541 martonx

  #1541 martonx

  Amúgy se derült ki, hogy mit szeretnél.

  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