小李編寫了一個將二進制數(shù)轉(zhuǎn)換成補碼的VB程序。算法的基本思想：二進制數(shù)的第一位為符號位，如果符號位為0，表明該數(shù)為正數(shù)，其反碼和補碼與原碼完全一致；如果符號位為1，表明該數(shù)為負數(shù)，其由源碼變?yōu)檠a碼時，需進行如下操作：（1）原碼符號位1不變，其余每一位二進制數(shù)位求反（1變?yōu)?，0變?yōu)?），得到反碼；（2）反碼符號位1不變，反碼數(shù)值最低位加1，得到補碼。程序運行時，在文本框Text1中輸入二進制數(shù)，單擊“轉(zhuǎn)換”按鈕Command1之后，在文本框Text2中顯示該數(shù)反碼，在文本框Text3中顯示改數(shù)補碼。程序運行界面如圖a、b所示。

實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）根據(jù)該VB程序，若輸入的二進制數(shù)是1001001，則其轉(zhuǎn)換成的補碼為。
（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“'反碼數(shù)值最低位加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