十进制转二进制
小明利用下面的方法将十进制数x转换为二进制数y；如果x=0，则y=“0”；如果x=1，则y=“1“；否则y等于将x除2的商转换为二进制数，再连接上x除2余数的字符串。如此继续，从而将十进制数x转换为二进制数y。
从文本框TextD输入一串不带符号位的十进制整数，单击“转换”按钮，将十进制转换为二进制并显示在文本框TextB中。
程序界面如图所示：
Private Sub Convert_Click）
DIMx as integer X=val（TextD．Text）
TextB．Text=①

DToB（x）

DToB（x）

End Sub Function DToB（m As Integer）As String
IF m=0 then
②

DToB=“0“

DToB=“0“

ELSEIF ③

m=1

m=1

then
DTOB=″1″
ELSE
 ④

DTOB=DTOB（m\2）& m Mod 2

DTOB=DTOB（m\2）& m Mod 2

END IF
End Function
（1）观察以上程序代码，可知“转换”按钮的对象名为

D

D

（单选，填字母：A．TextD/B．TextB/C．Commandl/D．Convert/E．转换）
（2）请在横线处填入合适的代码。
第①处代码为

DToB（x）

DToB（x）

第③处代码为

m=1

m=1

第④处代码为

DTOB=DTOB（m\2）& m Mod 2

DTOB=DTOB（m\2）& m Mod 2

（3）若在文本框TextD中输入“10”，则单击“转换”按钮后的输出结果为：

1010

1010

。