VB代码。。。

来源：百度知道 编辑：UC知道 时间：2024/05/12 11:44:23
想用VB做一个10进制与2进制互相转换的工具。。
希望大家可以帮忙。。。
就是有2个输入窗口左边输入数字点下边按钮出现2进制的表达在右边
在右边的窗口输入2进制点击下面的按钮左边出现10进制的。。
谢谢！

Private Sub Command1_Click()
if txt_d.text=\"\" and txt_b.text<>\"\" then
txt_d.text= b2d(txt_b.text)
else
if txt_b.text=\"\" and txt_d.text<>\"\" then
txt_b.text= d2b(cint(txt_d.text))
else
msgbox \"请重新输入\"
txt_b.text=“”
txt_d.text=\"\"
end if
end if
End Sub

Public Function d2b(ByVal dec As Long) As String
Do
d2b = dec Mod 2 & d2b
dec = dec \\ 2
Loop While dec
End Function

Public Function b2d(ByVal bin As String) As Integer
Dim i As Long
For i = 1 To Len(bin)
b2d = b2d * 2 + Val(Mid(bin, i, 1))
Next i
End Function

这是我写的C 十转二的代码，希望对你有点用

int shi,n=99;
int a[100];
printf("输入10进制数：");
scanf("%d",&shi);

while(shi > 0)
{
a[n--]