vb.net10转2的简单介绍

vb十进制转二进制

1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。

2、定义一个实型变量，保存计算的十进制小数。

3、输入一个十进制小数，保存在变量d中。

4、do-while循环中，将十进制小数乘以2。

5、取十进制数的整数部分，保存在变量b中。

6、输出该位的二进制数，同时将十进制数的整数部分减掉。

7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。

相关问答

Q1: 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

=

res

bin

dec

=

dec

\

2

loop

while

dec

form1.print

"转换为二进制数为：";

bin

Q2: 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 Dec 0

DEC_to_BIN = Dec Mod 2 DEC_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的信息别忘了在本站进行查找喔。