2 ичная система счисления в 10 тичную! исправьте пожайлуста код! - VB

Формулировка задачи:

Вот код:

Function CDecVal(l As String) As Long
Dim i As Integer, sum As Long
Dim n As Integer
S = 2
n = Len(l)
For i = 0 To n - 1
sum = sum + Val(Mid(l, n - i, 1)) * S ^ i
Mid(Str, n & l)
Next
CDec = sum
End Function

Заранее благодарю!

Решение задачи: «2 ичная система счисления в 10 тичную! исправьте пожайлуста код!»

textual
                            Листинг программы 
                        

                            Function CDecVal(l As String) As Long
Dim i As Integer, sum As Long
Dim n As Integer
n = Len(l)
For i = 0 To n - 1
CDecVal = CDecVal + Val(Mid(l, n - i, 1)) * 2 ^ i
Next
End Function
                        

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы