能证明1+1=3

(10)2 = (2)10 ? lz弄错了吧?

证明1+1=3的vb代码
填个 text1，2，3和一个command1
Private Sub Command1_Click()
b = Bin(Val(Text1.Text))Text3.Text = Bin(Val(Text1.Text)) + Bin(Val(Text1.Text))
Text3.Text = BINtoDEC(Text3.Text)
End Sub
Function Bin(n As Long) As String
Do Until n = 0
Bin = (n Mod 2) & Bin
n = n \ 2
Loop
End Function
Public Function BINtoDEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BINtoDEC = BINtoDEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function

因为10=3（10进制） 11才是3吧 哥

10 3进制才是3

你这家伙,偷换概念.......
Bin(Val(Text1.Text)) + Bin(Val(Text2.Text))
再对比一下 Function Bin(n As Long) As String
根本不是二进制加法,分明就是字符串合并
Bin(Val(Text1.Text)) = "1"
Bin(Val(Text2.Text)) = "1"
Text3.Text = Bin(Val(Text1.Text)) + Bin(Val(Text2.Text)) = "11"
这是二进制加法么?

不过lz的 BINtoDEC() 还是写得很不错的

看完之后我发现我NC了，请问请问十进制2转成二进制是多少？