求在vb中十进制转换为二进制的代码(附带每一句的意思)
1个回答
展开全部
10进制数转换为2进制数的方法，其实就是把10进制数不断除以2，然后把每次相除的余数按逆序的方式排列出来就是了（此方法适用于10进制数转换为任意n进制数，只要把上述的2换为n即可，当然，如果n大于10，就要用其他符号来代替大于10的数了，比如16进制的ABCDEF）
d = Val(InputBox("请任意输入一个整数")) 'd是任意一个10进制整数
n = 2 '转为二进制
h = "" 'h是用来存放二进制数的字符串
Do While d > 0 '如果d大于0就继续循环
h = (d Mod 2) & h '把d与2相除的余数进行拼接
d = d \ 2 '把d与2进行整除
Loop
MsgBox d & "转为二进制是" & h '显示结果
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
