
关于VB二进制计算,高手请进!在线等答案。
现在正在做一个子网计算器。第一,想实现转换时不足8位自动补足8位,例如:IP192.168.1.1二进制:11000000.10101000.1.1但是想实现:11000...
现在正在做一个子网计算器。
第一, 想实现转换时不足8位自动补足8位,
例如:IP 192.168.1.1
二进制:11000000.10101000.1.1
但是想实现: 11000000.10101000.00000001.00000001
第二, 进制相加(不知道是否能实现)(用的是AND算法)
如 11000000.10101000.00000001.00000001
加上 11111111.11111111.11111111.00000000
然后是对齐位数相加,AND算法是 0 + 1 =0 ;0 + 0 =0;1 + 1 = 1
最终应该算得 11000000.10101000.00000001.00000000
那转为十进制应该是 192.168.1.0
这个IP也就是192.168.1.1/24计算出来的网段号
不知道是否能实现,请教高手,在线等答案。 展开
第一, 想实现转换时不足8位自动补足8位,
例如:IP 192.168.1.1
二进制:11000000.10101000.1.1
但是想实现: 11000000.10101000.00000001.00000001
第二, 进制相加(不知道是否能实现)(用的是AND算法)
如 11000000.10101000.00000001.00000001
加上 11111111.11111111.11111111.00000000
然后是对齐位数相加,AND算法是 0 + 1 =0 ;0 + 0 =0;1 + 1 = 1
最终应该算得 11000000.10101000.00000001.00000000
那转为十进制应该是 192.168.1.0
这个IP也就是192.168.1.1/24计算出来的网段号
不知道是否能实现,请教高手,在线等答案。 展开
2个回答
展开全部
'1 -> 00000001
'可以用补零的方法
str_3 = Right("00000000" & "1", 8)
a = 1
b = 255
c = a And b
'c就是你要的and运算的结果1,然后你再转成二进制表示法
'可以用补零的方法
str_3 = Right("00000000" & "1", 8)
a = 1
b = 255
c = a And b
'c就是你要的and运算的结果1,然后你再转成二进制表示法
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询