Ú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
- Samsung Galaxy S24 - nos, Exynos
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Xiaomi 15T Pro - a téma nincs lezárva
- Kedvenc zene a mai napra
- A ZTE sem maradt adós csúcstelefonnal
- Milyen SSD-t vegyek?
- Dell notebook topic
- Milyen autót vegyek?
- MW2 - MW3 játékosok baráti köre
- World of Tanks - MMO
- További aktív témák...
- 10.gen PC // i5 10400F / RTX 2060 6GB / 16GB RAM / SSD+HDD //
- Ryezn PC // Ryzen 5 4500 / RTX 2060 6GB / 32GB DDR4 / 256GB SSD + 1TB HDD //
- MSI PRO X870-P WIFI
- 2014 Opel Adam 1.4Benzin GLAM White 87Le 175.000km Megkímélt Eladó-Cserélhető
- 2008 Fiat 500 1.2 8V 69Le Sport 139.000Km Hibakódmentes Eladó-Cserélhető
- Hp Zbook 15 G5 15,6" FHD/ i7-8850H, 32GB, 512GB SSD, Quadro P2000, Magyar- Win11
- Apple Watch Series 6 44mm GPS Black 1 év Garancia Beszámítás Házhozszállítás
- Xiaomi Redmi Note 12S 256GB, Kártyafüggetlen, 1 Év Garanciaval
- GYÖNYÖRŰ iPhone SE 2022 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3366
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3172
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



