vb十进制转二进制，从text1输入且从text1输出
答案:2 悬赏:0 手机版
解决时间 2021-03-24 00:07
- 提问者网友：欺烟
- 2021-03-23 11:33
vb十进制转二进制，从text1输入且从text1输出
最佳答案
- 五星知识达人网友：不想翻身的咸鱼
- 2021-03-23 12:41
将代码中的
a = a/2修改为：
a = a 2
解答：
在 VB 语言里， / 与 两种操作符都是执行除法操作，区别在于 / 取得的结果是带小数点的数，而 得到的结果才是整数。
对于十进制转二进制的算法来说，除2取余法的计算过程中，都是整数，不能是带小数点的。
运行效果图：
追问谢谢大神，这俩符号有啥区别么，分别是啥意思
a = a/2修改为：
a = a 2
解答：
在 VB 语言里， / 与 两种操作符都是执行除法操作，区别在于 / 取得的结果是带小数点的数，而 得到的结果才是整数。
对于十进制转二进制的算法来说，除2取余法的计算过程中，都是整数，不能是带小数点的。
运行效果图：
追问谢谢大神，这俩符号有啥区别么，分别是啥意思
全部回答
- 1楼网友：举杯邀酒敬孤独
- 2021-03-23 13:36
Private Sub Text1_Change()
a% = Val(Text1.Text)
Text2.Text = Dec2Bin(a%)
a% = Val(Text1.Text)
Text3.Text = Hex(a%)
End Sub
Public Function Dec2Bin(a As Integer) As String
tmp = ""
Do
tmp = (a Mod 2) & tmp
If a < 2 Then Exit Do
a = a \ 2
Loop
Dec2Bin = tmp
End Function
a% = Val(Text1.Text)
Text2.Text = Dec2Bin(a%)
a% = Val(Text1.Text)
Text3.Text = Hex(a%)
End Sub
Public Function Dec2Bin(a As Integer) As String
tmp = ""
Do
tmp = (a Mod 2) & tmp
If a < 2 Then Exit Do
a = a \ 2
Loop
Dec2Bin = tmp
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯