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

• sonar addikt

  #883

  #882 Ndruu

  2007-05-22 14:05:27

  Ú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

  

  sonar

  addikt

  #882 Ndruu

  #882 Ndruu

  köszi! azért érdekes hogy ezt nekem fejből kellett volna kitalálni... de ma írtam belőle és meglett a tárgy...

  Ki kommentezem hátha meg érted, megy ez fejből is, és nem nehezebb mint egy másodfoku egyenlet megoldása
  
  Dim ch As String - ch szöveges változó deklarálása
  Const basic As String = ''Basic'' - basic szöveges konstans megadása. basic konstans ''Basic'' stringet tartalmazza
  
  Dim p As Integer - p integer változó deklarálása
  For p = 1 To Len(basic) - p=1 től len(basic)- ig; len(basic)= a konstansban tárolt string hossza, ez itt 5
  
  ch = Mid(basic, p, 1) - ch= az adott pozició betüje (mid parancs, (sting, kezdőpoz, hány karaktert adjon vissza))
  s = s + Chr(Asc(ch) + 1); - összefűzi a stringet meg kicsit varázsol vele (egyel növeli)
  Next p
  ennyi
  max 5 perc fejbe, lapon kevesebb
  
  [Szerkesztve]

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