Question

用VB编程序实现十进制与二进制之间的相互转化.

需要有frm文件，要能互相转化

Answer 1

Private Sub Command1_Click()

  a = CInt(Text1)

  b = ""

  While a > 0

    b = a Mod 2 & b

    a = a \ 2

  Wend

  Text2 = b

End Sub

追问

有没有相互转化的？能提供frm文件么

追答

自己在窗体中拉上6个控件，把二段代码复制一下，就行了的。

Private Sub Command2_Click()

  a = Text3

  n = 0

  For i = 1 To Len(a)

    n = n * 2

    If Mid(a, i, 1) = "1" Then n = n + 1

  Next i

  Text4 = n

End Sub

Answer 2

我有写好的 怎么发给你？

追问

在么

在吗