Sunday, September 30, 2001, si napisal:
> 3. Vlastni vypocet:
> mam 12ti mistne cislo, a potrebuji secist cislice na lichych pozicich
> a pak na sudych pozicich.
> Priklad: 123456789012
> a = 1 + 3 + 5 + 7 + 9 + 1
> b = 2 + 4 + 6 + 8 + 0 + 2
> urcite to jde jednoduse udelat nejakym cyklem, ale ja zaboha nedokazu
> ve VBA zjistit, zda je cislo liche... :(
Vo Visual Basic-u:
'deklaracie a inicializacia premennych
Dim liche As Integer, sude As Integer
Dim Str_cislo As String
sude = 0
liche = 0
'cyklus
Str_cislo = Str("123456789012") 'pretypujem to na string
For i = 1 To 13 Step 2
liche = liche + Val(Mid(Str_cislo, i + 1, 1))
sude = sude + Val(Mid(Str_cislo, i, 1))
Next
V premenej liche mas ten sucet cisiel na lichej pozicii a v sude mas
sucet cisiel na sudej pozicii.
S pozdravom,
krutohlav
This archive was generated by hypermail 2.1.2 : 30. 09. 2001, 17:34 CEST