锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net10转2的简单介绍

IT技术十进制

vb十进制转二进制1、首先 ， 定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计 。
2、定义一个实型变量，保存计算的十进制小数 。
3、输入一个十进制小数，保存在变量d中 。
4、do-while循环中 ， 将十进制小数乘以2 。
5、取十进制数的整数部分，保存在变量b中 。
6、输出该位的二进制数，同时将十进制数的整数部分减掉 。
7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数 。
VB编程序实现一个十进制数转换成2进制的数？转换成十六进制
hex()
如：10（十进制）:hex(10)=a
转换成8进制oct()
如：10（十进制）:oct(10)=12
转换成2进制，使用下面的方法
'采用连除2取余数，将一个十进制数转换为二进制数
dim
dec
as
integer
'输入一个十进制数
dim
bin
as
string
'转换为二进制表示
dim
res
as
integer
dim
i
as
integer
dec
=
val(inputbox("x="))
form1.print
"十进制数：";
dec
do
res
=
dec
mod
2
'求出除以2的余数
bin
=
【vb.net10转2的简单介绍】res
bin
dec
=
dec
\
2
loop
while
dec
form1.print
"转换为二进制数为：";
bin
VB程序代码，编制一个将十进制整数转换为二进制数的程序 。用途：将十进制转化为二 进 制
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二 进 制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(Byval Dec As Long) As String
DEC_to_BIN = ""
Do While Dec0
DEC_to_BIN = Dec Mod 2DEC_to_BIN
Dec = Dec \ 2
Loop
End Function
Private Sub Command1_Click()
Dim a As String
Dim b As Long 'b是你要转换的数
a = DEC_to_BIN(b)
End Sub
vb.net10转2的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net10转2的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：直播买什么东西性价比高，直播买什么东西性价比高又好卖

    下一篇：如何给多个pdf排序，多个pdf怎么放在一起