求二进制转换十进制代码

答案:2 悬赏:40 手机版

解决时间 2021-08-12 00:22

提问者网友：富士山上尢
2021-08-11 05:58

求二进制转换十进制代码（要求 c语言或java做二进制包含小数位例 10001.1101

最佳答案

五星知识达人网友：玩世
2021-08-11 06:28

二到十
    Dim a As String
    Dim b As Integer
    Dim i As Integer
    Dim t As Integer
    a = InputBox("二进制数")
    For i = 1 To Len(a)    If Not ((Mid(a, i, 1) >= "0") Or (Mid(a, i, 1) >= "1")) Then    MsgBox "数据错"    Exit Sub    End If
    Next i
    b = 0
    For i = 1 To Len(a)    t = Asc(Mid(a, i, 1)) - 48    b = b * 2 + t
    Next i
    Print b

全部回答

1楼网友：七十二街
2021-08-11 07:35

不知道你要什么不过这个我会...我QQ-271235124 我可给你远程或者你要的是公式？

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息