1. 编写一个将十进制数转换为二进制的VB自定义函数，完成划线处应填的语句。

Function dTOb(x As Integer)As String

Dim s As String

Do While x>0

If x Mod 2=0 Then s="0"Else s="1"

x=x\2

Loop

End Function