编写一个求给定 8 位二进制数的反码的程序。请将程序补充完整。 Private Sub Command1_Click() Dim yuanma As String, fanma As String, fa As String Yuanma=Text1.Text Fanma="" For I=1 to __________ Fa=mid(yuanma,I,1) Select Case Val(fa) Case 1 Fa="0" Case 0 Fa="1" End select Fanma=fanma+fa Next I Text2.Text=___________ End Sub