一道应该不是很难的VB编程问题！帮帮忙！

来源：百度知道 编辑：UC知道 时间：2024/05/06 19:08:14
编程要求如下：
编制一个外部过程，将一个十进制数转换为二进制数

编程完成后，运行一下！一定要确保其正确性啊！谢谢了！

Private Sub Command1_Click()
Dim x As Long
ch = "012"
x = Val(Text1.Text)
If x = 0 Then
Text2.Text = 0
Exit Sub
End If
Do While x > 0
s = x Mod 2
x = Int(x / 2)
y = Mid(ch, s + 1, 1) + y '换码反序加入
Loop
Text2.Text = y
End Sub
如果满意的话，请给加几分吧，我的都快不够用啦。谢谢啦............

你可以编写一个函数过程function，函数名为dectobin,
public function dectobin(byval dec)
dim bin(100) as integer
i=0
d=dec
do while d<>0
bin(i)=d mod 2
d=d\2
i=i+1
loop
i=i-1
do while i>=0
tmp=str(bin(i))
strbin=strbin+tmp
i=i-1
loop
dectobin=strbin
end function
如果你需要整道题的编程，请补充下，