Question

请问十进制和二进制之间相互转化的vb编码是什么？谢谢

Answer 1

Private Sub Command1_Click()

  n = CLng(InputBox("请输入一个正整数:"))

  Dim a(32)

  i = -1

  Print n; "=(";

  While n > 0

    i = i + 1

    a(i) = n Mod 2

    n = n \ 2

  Wend

  For j = i To 0 Step -1

    Print Trim(Str(a(j)));

  Next j

  Print ")2"

End Sub

Answer 2

vb6还是vb.net

追问

vb6还有小数之间相互转化的