题目

编写“二进制加法”程序,实现如下功能:在文本框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
信息技术 试题推荐
最近更新