VB6.0 中带小数的十进制数如何转换为二进制
各位大虾，本人刚接触VB6.0 ，不知道带小数的十进制数如何转换为二进制，请提供代码以代学习，谢谢！
[解决办法]
手上没有VB，用C#写一个，尽量贴近VB语法。

double d = 123.456;
string bin = "";
int d1 = (int)d;
while (d1 > 0)
{
bin = (d1 % 2 == 1 ? "1" : "0") + bin;
d1 = d1 / 2;
}
double d2 = d - (int)d;
bin = bin + ".";
double x = 0.5;
for (int i = 0; i < 10; i++)
{
bin = bin + (d2 >= x ? "1" : "0");
if (d2 >= x)
d2 = d2 - x;
x = x / 2.0;
}
Console.WriteLine(bin);