Új hozzászólás Aktív témák
-
sonar
addikt
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
- iPhone topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- BestBuy ruhás topik
- Xbox Series X|S
- Linux kezdőknek
- Fejhallgató erősítő és DAC topik
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Gitáros topic
- Béta iOS-t használók topikja
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- BONTATLAN Új iPhone 17 PRO Kozmosznarancs 256-512GGB Független 1év Apple Gar. Azonnal átvehető.Deák
- i5930, MSI X99, EVGA RTX 2080 Super Hybrid (Ritka), ssd + HDD, BeQuite Torony
- Insta360 X4 360 fokos akciókamera
- PS5 PlayStation 5 Slim (lemezes, 1TB) kiváló állapotban! 6 Hónap Jótállás
- Apple Watch Ultra eladó
- Bomba ár! Dell Latitude 5495 - Ryzen 5 I 8GB I 256SSD I 14" FHD I HDMI I Radeon I Cam I W10 I Gari
- Apple iPhone 16e 128 GB Black Apple Garancia Beszámítás Házhozszállítás
- Acer TravelMate P214 i3-1115G4 12GB 256GB 14" FHD 1év garancia
- Jabra Speak2 75 MS Teams USB-bluetooth hangszóró
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3318
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő