小李编写了一个将二进制数转换成补码的VB程序。算法的基本思想：二进制数的第一位为符号位，如果符号位为0，表明该数为正数，其反码和补码与原码完全一致；如果符号位为1，表明该数为负数，其由源码变为补码时，需进行如下操作：（1）原码符号位1不变，其余每一位二进制数位求反（1变为0，0变为1），得到反码；（2）反码符号位1不变，反码数值最低位加1，得到补码。程序运行时，在文本框Text1中输入二进制数，单击“转换”按钮Command1之后，在文本框Text2中显示该数反码，在文本框Text3中显示改数补码。程序运行界面如图a、b所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）根据该VB程序，若输入的二进制数是1001001，则其转换成的补码为。
（2）请在下横线处填入合适的代码。
Private Sub Command1_Click （　　）
Dim source As String,opp As String,sup As String'变量source代表原码，opp代表反码，sup代表补码
Dim dAs String,i As Integer
Dim a（1To 100）As String
①       For i=1To Len（source）
a（i）=Mid（source,i,1）
Next i
If a（1）=“0“Then
Text2．Text=source
Text3．Text=source
Else
For i=Len（source） To 2Step-1
If ②          Then
a（i）=“0“
Else
a（i）=“1“
End If
opp=a（i）+opp
Next i
opp=a（1）+opp
Text2．Text=opp
d=“1“'反码数值最低位加1
For i=Len（source） To 2Step-1
If a（i）=“1“And d=“1“Then
a（i）=“0“
d=“1“
ElseIfa（i）=“0“And d=“1“Then
a（i）=“1“
③       
End If
sup=a（i）+sup
Next i
sup=a（1）+sup
Text3．Text=sup
End If
End Sub