编写“二进制加法”程序,实现如下功能:在文本框Text1和Text2中分别输入两个二进制数,单击“计算”按钮Command1,程序在位数较少的二进制数前补“0”,使两个二进制数位数相同,然后从右向左按位依次进行加法运算,最后在文本框Text3中显示相加的结果。程序运行界面如图所示。
(1)
在设计程序界面时,要设置窗体的标题为“二进制加法”,应修改窗体的属性。
(2)
实现上述功能的VB程序如下,请在画线处填入合适的代码。
Private
Sub Command1_Click( )
Dim s1, s2, result, t As String
Dim span, jw As Integer
s1=Text1. Text:s2=Text2.
Text
span=Len(s1)-Len(s2)
If span<0 Then
t=s1:s1=s2:s2=t
span=
①
End If
For i=1 To span
s2="0"+s2
Next i
jw=0:result=" "
For i=
② To
1 Step-1
x=Val(Mid(s1, I, 1))+Val(Mid(s2,i,1))+jw
jw=x\2
result=Str(x
Mod 2)+result
Next i
If jw=1 Then result="1"+result
Text3. Text=result
End
Sub
(3)
在文本框Text1中输入“10”,在文本框Text2中输入“11000”,单击“计算”按钮Command1后,变量b2的值是。
答案: 【1】Caption
Len(s1)-Len(s2)|Len(s1)
【1】00010