两个二进制数相加并输出二进制结果的VB代码

两个加数由用户输入

Private Sub Command1_Click()
dim X as string,Y as string
x=inputbox("请输入第一个数：")
y=inputbox("请输入第二个数：")
print Jia(x,y)
End Sub

Private Function Jia(ByVal X As String, ByVal Y As String) As String '两个二进制数相加函数
Dim I As Integer, Tem As String, Jin As Integer,m as integer ,n as integer
m=len(X)
n=len(Y)
if m>n then
Y=string(m-n,"0")+Y
elseif m<n then
X=string(n-m,"0")+X
end if
For I = len(X) To 1 Step -1
Select Case (Val(Mid(X, I, 1)) + Val(Mid(Y, I, 1)))
Case 0
If Jin = 0 Then
Jia = "0" + Jia
Else
Jia = "1" + Jia
Jin = 0
End If
Case 1
If Jin = 0 Then
Jia = "1" + Jia
Else
Jia = "0" + Jia
Jin = 1
End If
Case 2
If Jin = 0 Then
Jia = "0" + Jia
Jin = 1
Else
Jia = "1" + Jia
Jin = 1
End If
If I = 1 Then Jia = "1" + Jia
End Select
Next I
End Function