VB 二进制,八进制,十进制,十六进制转换-.NET教程,VB.Net语言
来源:互联网 发布:apache下载安装 php 编辑:程序博客网 时间:2024/06/16 09:35
public function d_to_b(byval dec as long) as string
do
d_to_b = dec mod 2 & d_to_b
dec = dec / 2
loop while dec
end function
public function b_to_d(byval bin as string) as integer
dim i as long
for i = 1 to len(bin)
b_to_d = b_to_d * 2 + val(mid(bin, i, 1))
next i
end function
public function h_to_b(byval hex as string) as string
dim i as long
dim b as string
hex = ucase(hex)
for i = 1 to len(hex)
select case mid(hex, i, 1)
case "0": b = b & "0000"
case "1": b = b & "0001"
case "2": b = b & "0010"
case "3": b = b & "0011"
case "4": b = b & "0100"
case "5": b = b & "0101"
case "6": b = b & "0110"
case "7": b = b & "0111"
case "8": b = b & "1000"
case "9": b = b & "1001"
case "a": b = b & "1010"
case "b": b = b & "1011"
case "c": b = b & "1100"
case "d": b = b & "1101"
case "e": b = b & "1110"
case "f": b = b & "1111"
end select
next i
while left(b, 1) = "0"
b = right(b, len(b) - 1)
wend
h_to_b = b
end function
public function b_to_h(byval bin as string) as string
dim i as long
dim h as string
if len(bin) mod 4 <> 0 then
bin = string(4 - len(bin) mod 4, "0") & bin
end if
for i = 1 to len(bin) step 4
select case mid(bin, i, 4)
case "0000": h = h & "0"
case "0001": h = h & "1"
case "0010": h = h & "2"
case "0011": h = h & "3"
case "0100": h = h & "4"
case "0101": h = h & "5"
case "0110": h = h & "6"
case "0111": h = h & "7"
case "1000": h = h & "8"
case "1001": h = h & "9"
case "1010": h = h & "a"
case "1011": h = h & "b"
case "1100": h = h & "c"
case "1101": h = h & "d"
case "1110": h = h & "e"
case "1111": h = h & "f"
end select
next i
b_to_h = h
end function
- VB 二进制,八进制,十进制,十六进制转换-.NET教程,VB.Net语言
- VB 二进制,八进制,十进制,十六进制转换
- VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转--转载的
- [VB]十进制/十六进制/二进制 间的转换
- 二进制、八进制、十进制、十六进制转换
- 十进制与二进制八进制十六进制的转换
- 十进制,八进制,十六进制,二进制相互转换
- 二进制、八进制、十进制、十六进制转换函数
- 十进制,八进制,十六进制,二进制相互转换大全
- 二进制,八进制,十六进制向十进制转换(一)
- 二进制,八进制,十六进制向十进制转换(二)
- 十进制、二进制、八进制、十六进制之间的转换
- 十进制,八进制,十六进制,二进制相互转换大全
- 二进制、八进制、十进制、十六进制之间转换
- 二进制、八进制、十进制、十六进制之间转换
- 十进制 转换八进制和二进制 十六进制 转换器
- 二进制、八进制、十进制、十六进制之间转换
- 二进制、八进制、十进制、十六进制之间转换
- 深入理解C语言指针的奥秘
- 听挺喜欢这篇文章的
- 对java技术String的探讨
- ASP.NET IIS 注册工具 (Aspnet_regiis.exe)
- 设计模式之Strategy Pattern
- VB 二进制,八进制,十进制,十六进制转换-.NET教程,VB.Net语言
- OSI开放系统互连七层模型
- Web网络应用程序开发的平安策略实践
- KFC 开封菜 哈哈哈!
- 教你快速学会冷读术 瞬间成为冷读术高手 第一章
- 第一篇文章
- C#简单json实例
- Myeclipse jsp用Myeclipse visual Jsp Designer 打不开,只能用Myeclipse JSP Editor打开
- Select 多字段统计子查询