MS Excel

Narazil som na zvláštnosť, ktorú si neviem vysvetliť, totiž, zdá sa, že pri cykle s negatívnym krokom nie je možné deklarovať counter ako datový typ byte:Sub testik()
Dim i As Byte
For i = 1 To 10
Debug.Print i
Next i
End Sub-toto beží

Sub testik()
Dim i As Byte
For i = 10 To 1 Step -1
Debug.Print i
Next i
End Sub-toto, na môj údiv, nefunguje - končí chybou pretečenie pamäte

i musí byť deklarované ako integer:Sub testik()
Dim i As Integer
For i = 10 To 1 Step -1
Debug.Print i
Next i
End Sub
Má niekto vysvetlenie?

Zaslat odpověď >

eLCHa(23.5.2015 8:59)#025100

Je to jednoduché. Byte je od 0 do 255, to víte. Ve výrazuFor i = 10 To 1 Step -1musí být všechny argumenty stejného typu (vb je tolerantní, takže nějaké výchylky jsou možné - jsem na tabletu, takže neověřím. Ve striktním jazyce by Vám tento zápis neprošel ani kompilací). Mno a protože i je Byte, -1 musí být také Byte a to není.citovat

elninoslov(23.5.2015 9:30)#025101

Presne tak, všetky premenné musia mať rovnaký typ, alebo musia byť na rovnaký typ retypovateľné. A to číslo -1 nieje. Inak by to boli klasické jablká a hrušky.citovat

AL(23.5.2015 12:09)#025103

Ako píšem, prekvapilo ma to, páč by som to chápal tak, že od i typu byte je možné odpočítať hodnotu 1, ktorá je interpretovateľná ako byte. Program ale step chápe ako hodnotu pridávanú ku counteru a chová sa potom zrejme tak, ako popisujete. Dá sa to samozrejme obísť niekoľkými spôsobmi, napr:Sub testik()
Dim i As Byte
For i = 1 To 10
Debug.Print 10 + 1 - i
Next i
End SubNo nič, budem na to musieť akurát pamätať, až tak veľký problém to nie je.citovat

Téma: For-Next Step -1; problém s byte

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje