大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net10转2 vb10进制转2进制

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编程序实现一个十进制数转换成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

vb十进制转二进制

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

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

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

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

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

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

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

求在vb中十进制转换为二进制的代码(附带每一句的意思)

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   '显示结果


本文标题:vb.net10转2 vb10进制转2进制
标题URL:http://dzwzjz.com/article/hhjsep.html
在线咨询
服务热线
服务热线:028-86922220
TOP