酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

二進位轉十進位

用兩個TEXT一個Command1
Private Sub Command1_Click()
       For i = Len(Text1.Text) To 1 Step -1
            If (Mid(Text1.Text, i, 1) = 1) Then
                N1 = N1 + 2 ^ (Len(Text1.Text) - i)
            End If
       Next i
       Text2.Text = N1
End Sub
相簿設定
標籤設定
相簿狀態