Question

vb编程——Text1中输入二进制数， 单击“二进制变十进制数”按钮，Text2显示十进制数。

Answer 1

Option Explicit

Private Sub Command1_Click()

   Dim i%, s%

   For i = 1 To Len(Text1.Text)

      If Val(Mid(Text1.Text, i, 1)) = 1 Then

         s = s + 2 ^ (Len(Text1.Text) - i)

      End If

   Next i

   Text2.Text = s

End Sub