ник: Кабан
чёта я устал?
вот ф-я
Function dec2bin_2(a As Long) As String
Do While a > 0
dec2bin_2 = a Mod 2 & dec2bin_2
a = (a \ 2)
Loop
End Function
|
в тесте в цикле
For i = 0 To 100000
str = dec2bin_2(i)
Next i
|
счётчик i не увеличивается!
кде тупняк? только на моей машинке? или у всех? :)
з.ы. ByVal,сцуко :)