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

• #18187 Delila_1 veterán Tompkins #18176

  Új Válasz 2013-05-30 08:39:49 #18187

  Ú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

  

  Delila_1

  veterán

  válasz Tompkins #18176 üzenetére

  Megnéztem lépésenként. Mikor a 97-es értéknél az összeg 14003, ennek a hosszát 4-nek értékeli a tükrözésnél, ezért a tükörképét 41-nek hozza ki. A

  For b = Len(osszeg) To 1 Step -1

  sort (Do-Loop cikluson belül) megváltoztattam,

  For b = Len(osszeg & "") To 1 Step -1

  lett, így hozza a 6 db-os értéket. 395-nél és 584-nél 7 az érték.

  Az

  If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege

  sorban is a stringgé alakított forma hosszától indítom a ciklust:

  If Len(szam1 & "") = 0 Then Tukroz = 0: GoTo Vege

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