vb点虐 十转二进制的简单介绍

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

10进制数转换为2进制数的方法，其实就是把10进制数不断除以2，然后把每次相除的余数按逆序的方式排列出来就是了（此方法适用于10进制数转换为任意n进制数，只要把上述的2换为n即可，当然，如果n大于10，就要用其他符号来代替大于10的数了，比如16进制的ABCDEF）

创新互联为企业级客户提高一站式互联网+设计服务，主要包括成都网站建设、网站制作、重庆APP软件开发、微信平台小程序开发、宣传片制作、LOGO设计等，帮助客户快速提升营销能力和企业形象，创新互联各部门都有经验丰富的经验，可以确保每一个作品的质量和创作周期，同时每年都有很多新员工加入，为我们带来大量新的创意。 

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 十进制转换成 八进制 二进制原码 二进制补码 二进制反码 程序

VB.NET控制台程序：

Module module3

Sub Main()

Dim i As Integer

Dim num As Integer = -35

Dim R As Integer = 8

Dim arr(33) As Integer

Dim len As Integer

arr = TransToR(num, R)

len = arr(0)

Console.Write(num " 转换成 " R " 进制后：" vbTab)

If (arr(1) = 1) Then

Console.Write("-")

End If

For i = len + 1 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToSourceCode(num)

Console.Write(num " 转换成32位二进制源码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToReverseCode(num)

Console.Write(num " 转换成32位二进制反码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToCompensatoryCode(num)

Console.Write(num " 转换成32位二进制补码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

End Sub

'将十进制数num转换为R(2=R=9)进制数，结果存在arr数组中

'arr(0)存储长度, arr(1)存储符号位：1为负，0为正

Function TransToR(ByVal num As Integer, ByVal R As Integer) As Integer()

Dim arr(33) As Integer

arr(0) = 0 '初始长度

'设置符号位

If (num 0) Then

arr(1) = 1

Else

arr(1) = 0

End If

num = Math.Abs(num)

While num 0

arr(0) = arr(0) + 1

arr(arr(0) + 1) = num Mod R

num \= R

End While

Return arr

End Function

'将十进制数num转换为二进制原码

Function TransToSourceCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

arr = TransToR(num, 2)

'高位补零

For i = arr(0) + 2 To 32

arr(i) = 0

Next

arr(0) = 32

Return arr

End Function

'将十进制数num转换为二进制反码

Function TransToReverseCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

arr = TransToSourceCode(num)

If num = 0 Then

Return arr

End If

'除符号位外各位取反

For i = 2 To 33

arr(i) = 1 - arr(i)

Next

Return arr

End Function

'将十进制数num转换为二进制补码

Function TransToCompensatoryCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

Dim c As Integer = 0 '进位

arr = TransToReverseCode(num)

If num = 0 Then

Return arr

End If

'末尾加1

i = 2

arr(i) += 1

Do While True

arr(i) = c + arr(i)

c = arr(i) \ 2

arr(i) = arr(i) Mod 2

i += 1

If c 1 Then

Exit Do

End If

Loop

Return arr

End Function

End Module

怎样在vb上将十进制数转换为二进制字符串

1、在VB中没有一种所谓的“真正的二进制”，只有long、integer、byte这样的整数。

2、VB中不支持二进制字符串。只支持16进制字符串，需要在前面加前缀"H"。

比如：CLng("HFFFF")

3、如果你想将"1010011101"这样的二进制字符串转换为数值，需要自己写一个函数。

下面是我给你写的一个：

Function BinaryValue(ByVal strBin As String) As Long

Dim lngOutValue As Long

Dim bytBytes() As Byte

Dim bytAscii(0 To 255) As Byte

Dim lngBytes_Start As Long

Dim lngBytes_Length As Long

Dim lngBytes_Index As Long

bytAscii(49) = 1

bytBytes() = StrConv(strBin, vbFromUnicode)

lngBytes_Length = UBound(bytBytes)

If lngBytes_Length 30 Then lngBytes_Start = lngBytes_Length - 30

For lngBytes_Index = lngBytes_Start To lngBytes_Length

lngOutValue = lngOutValue + bytAscii(bytBytes(lngBytes_Index)) * 2 ^ (lngBytes_Length - lngBytes_Index)

Next

BinaryValue = lngOutValue

End Function

BinaryValue函数可以将31位以下的二进制字符串转换为Long类型整数。

比如下面的用法：

MsgBox (BinaryValue("1111111111111111111111111111110"))

4、如果你想获取一个整数的二进制位可以使用下面的函数：

Function BinaryBit(ByVal lngValue As Long, ByVal lngIndex As Long) As Long

BinaryBit = (lngValue \ 2 ^ lngIndex) Mod 2

End Function

lngValue是long类型数值；

lngIndex是二进制位，从0开始计算，最大值是30。第0位是二进制最右边的那个位。

比如5的二进制是"101"

MsgBox BinaryBit(5, 0) 返回1

MsgBox BinaryBit(5, 1) 返回0

MsgBox BinaryBit(5, 2) 返回1

下面演示如何获取HFF(255)的二进制字符串。

Dim i As Long

Dim s As String

For i = 0 To 30

s = BinaryBit(HFF, i) s

Next

MsgBox s

VB 十进制转二进制 代码问题 急！！

这样：

Private Sub Command1_Click()

Dim n As Integer, num As Long

Dim ch As String, Bin() As String, r As Integer, i As Integer

num = Val(Text1.Text)

n = 0

r = num

Do

n = n + 1

ReDim Preserve Bin(n)

Bin(n) = r Mod 2

r = r \ 2

Loop Until r 1

For i = UBound(Bin) To 1 Step -1

ch = ch Bin(i)

Next i

Text2.Text = ch

End Sub

redim数组变量没有给其赋值。

扩展资料：

注意事项

一个十进制转二进制的函数：

Public Function D2B(D As Integer) As String

D2B = ""

Do While D 0

  D2B = D Mod 2 D2B

  D = D \ 2

Loop

End Function

Private Sub Form_Load()

Me.Caption = D2B(8)

End Sub

另外的办法：

Function dToTwo(n As Integer) As String

Dim S As String

S = ""

Do While n 0

a = n Mod 2

n = n \ 2

S = Chr(48 + a) S

Loop

dToTwo= S

End Function