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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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