题目

编写“二进制加法”程序。 程序运行时，在文本框Text1和文本框Text2分别输入两个二进制数，单击按钮 Command11后在文本框Text3上输出两个二进制相加后的结果。 程序运行如图所示。 （1） 观察代码触发代码执行的事件名是。 （2） 为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click()   Dim b1 As String, b2 As String, ans As String, t As String   Dim dist As Integer, jw As Integer   b1=Text1.Text: b2 Text2.Text: ans=""      If dist <0 Then     t=b1: b1=b2: b2=t: dist=-dist   End If   For i=1 To dist     b2="0"+b2   Next i   jw=0   For i= Len（b1）To 1 Step-1     x= Val（Mid（b1, i, 1））+ Val（Mid（b2, i, 1））+jw         ans Str（x Mod 2）+ans   Next i   IfThen ans ="1"+ ans Text3.Text=ans End Sub 答案： 【1】Click 【1】dist=len（b1）-len（b2）【2】jw=x\2【3】jw=1

查看本题答案和解析