vb进制转化函数

1、 Int(x):求不大于自变量x的最大整数

2、 Fix(x):去掉一个浮点数的小数部分，保留其整数部分

3、 Hex$(x):把一个十进制数转换为十六进制数

4、 Oct$(x):把一个十进制数转换为八进制数

5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符

6、 CHR$(x):把x的值转换为相应的ASCII字符

7、 Str$(x):把x的值转换为一个字符串

8、 Cint(x):把x的小数部分四舍五入，转换为整数

9、 Ccur(x):把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入

10、 CDbl(x):把x值转换为双精度数

11、 CLng(x):把x的小数部分四舍五入转换为长整数型数

12、 CSng(x):把x值转换为单精度数

13、 Cvar(x):把x值转换为变体类型值

14、 VarPtr(var):取得变量var的指针

? 数学函数

1、 Sin(x):返回自变量x的正弦值

2、 Cos(x): 返回自变量x的余弦值

3、 Tan(x): 返回自变量x的正切值

4、 Atn(x): 返回自变量x的反正切值

5、 Abs(x): 返回自变量x的绝对值

6、 Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回

0;当x为正数时，返回1

7、 Sqr(x):返回自变量x的平方根，x必须大于或等于0

8、 Exp(x):返回以e为底，以x为指数的值，即求e的x次方

? 日期与时间函数

1、 Day(Now):返回当前的日期

2、 WeekDay(Now):返回当前的星期

3、 Month(Now):返回当前的月份

4、 Year(Now):返回当前的年份

5、 Hour(Now):返回小时(0~23)

6、 Minute(Now):返回分(0~59)

7、 Second(Now):返回秒 (0~59)

? 随机数函数

1、 Rnd[(x)]:产生一个0~1之间的单精度随机数

2、 Randmize[(x)]:功能同上，不过更好

? 字符串函数

1、 LTrim$(字符串):去掉字符串左边的空白字符

2、 Rtrim$(字符串):去掉字符串右边的空白字符

3、 Left$(字符串,n):取字符串左部的n个字符

4、 Right$(字符串,n):取字符串右部的n个字符

5、 Mid$(字符串,p,n):从位置p开始取字符串的n个字符

6、 Len(字符串):测试字符串的长度

7、 String$(n,字符串):返回由n个字符组成的字符串

8、 Space$(n):返回n个空格

9、 InStr(字符串1,字符串2):在字符串1中查找字符串2

10、 Ucase$(字符串):把小写字母转换为大写字母

11、 Lcase$(字符串):把大写字母转换为小写字母

? 窗体输入输出函数

1、 Print(字符串):在窗体输出字符串，可以用”&”对变量进行连接后输出

2、 Tab(n):把光标移到该行的n开始的位置

3、 Spc(n):跳过n个空格

4、 Cls:清除当前窗体内的显示内容

5、 Move 左上角x，左上角y,宽度，高度:移动窗体或控件

6、 InputBox(prompt,„):跳出一个数据输入窗口，返回值为该窗口的输入值

7、 MsgBox(msg,[type]„):跳出一个提示窗口

? 文件操作函数

1、 Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]

功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式

说明：

1) 方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值

a、 Output:指定顺序输出方式，将覆盖原有内容

b、 Input:指定顺序输入方式

c、 Append:指定顺序输出方式，在文件未尾追加内容

d、 Random:指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，

则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写

e、 指定二进制文件。在这种方式下，可以用Get和Put语句对文件中任何字节位置的信息

进行读写。在Binary方式中，如果没有Access子句，则打开文件的类型与Random方式相

同

2)、存取类型：放在关键字Access之后，用来指定访问文件的类型。可以是下列类型之一

a、 Read:打开只读文件

b、 Write:打开只写文件

c、 Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开

的文件有效

3)、锁定：该子句只在多用户或多进和环境中使用，用来限制其他用户或其他进程对打开进

行读写操作。锁定类型包括：

a、 默认：如不指定锁定类型，则本进程可以多次打开文件进行读写；在文件打开期间，其

他进程不能对该文件执行读写操作

b、 Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作

c、 Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件

时，才允许这种锁定。

d、 Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该

文件时，才允许这种锁定

e、 Lock Read Write:不允许其他进程读写这个文件

如果不使用lock子句，则默认为Lock Read write

4)、文件号：由用户自行指定一个由1~511之间的整数，只要该文件号未被使用就合法；打

开文件后，可以用该文件号进行读写等操作

5)、记录长度：是一个整型表达式。当选择该参量时，为随机存取文件设置记录长度。对于

用随机访问方式打开的文件，该值是记录长度；对于顺序文件，该值是缓冲字符数。”记录

长度”不能超过32767字节。对于二进制文件，将忽略Len子句

举例：Open “” for Output as #1

Open “C:” for radom as #1 len=256

2、 Close [#文件号][，#文件号]„„:关闭文件

3、 Seek #文件号，位置：文件指针跳到指定位置，以字节为单位。取值1~pow(2,31)-1

4、 Seek (文件号):返回当前文件指针的位置

5、 FreeFile():取得一个未使用的文件号

6、 Loc(文件号)：返回指定文件的当前读写位置

7、 LOF（文件号）：返回文件长度

8、 EOF（文件号）：用来测试文件是否结束，结束返回true

9、 Print #文件号，变量1，变量2，„变量n:按顺序将各变量的值写入顺序文件

如果是print #文件号，则写入空行

10、 Write #文件号，表达式表„：作用同 Print

11、 Input #文件号，变量表„.：读顺序文件，进行与Print相反的操作

12、 Line Input #文件号，字符串变量：从顺序文件中读入一行

13、 Input$(n,#文件号)：从顺序文件读出 n个字符的字符串

14、 Put #文件号，[记录号]，变量：把除对象变量和数组变量外的任何变量（包括号含有

单个数组元素的下标变量）的内容写入随机文件。

例如：Put #2,,filebuff

15、 Get #文件号，[记录号]，变量：读随机文件，执行与put相反的操作

16、 Get|put #文件号，[位置]，变量：读写二制文件，位置是指下一次读写操作的位置。

17、 Kill 文件名：删除文件

18、 FileCopy 源文件名，目标文件名：复制文件

19、 Name原文件名 as 新文件名：重命令文件

进制转换函数

' 用途：将十进制转化为二 进 制

' 输入：Dec(十进制数)

' 输入数据类型：Long

' 输出：DEC_to_BIN(二 进 制数)

' 输出数据类型：String

' 输入的最大数为2147483647,输出最大数为111111111(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

' 用途：将二 进 制转化为十进制

' 输入：Bin(二 进 制数)

' 输入数据类型：String

' 输出：BIN_to_DEC(十进制数)

' 输出数据类型：Long

' 输入的最大数为111111111(31个1),输出最大数为2147483647

Public Function BIN_to_DEC(ByVal Bin As String) As Long

Dim i As Long

For i = 1 To Len(Bin)

BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))

Next i

End Function

' 用途：将十六进制转化为二 进 制

' 输入：Hex(十六进制数)

' 输入数据类型：String

' 输出：HEX_to_BIN(二 进 制数)

' 输出数据类型：String

' 输入的最大数为2147483647个字符

Public Function HEX_to_BIN(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

HEX_to_BIN = B

End Function

' 用途：将二 进 制转化为十六进制

' 输入：Bin(二 进 制数)

' 输入数据类型：String

' 输出：BIN_to_HEX(十六进制数)

' 输出数据类型：String

' 输入的最大数为2147483647个字符

Public Function BIN_to_HEX(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

While Left(H, 1) = "0"

H = Right(H, Len(H) - 1)

Wend

BIN_to_HEX = H

End Function

' 用途：将十六进制转化为十进制

' 输入：Hex(十六进制数)

' 输入数据类型：String

' 输出：HEX_to_DEC(十进制数)

' 输出数据类型：Long

' 输入的最大数为7FFFFFFF,输出的最大数为2147483647

Public Function HEX_to_DEC(ByVal Hex As String) As Long

Dim i As Long

Dim B As Long

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(Hex, Len(Hex) - i + 1, 1)

Case "0": B = B + 16 ^ (i - 1) * 0

Case "1": B = B + 16 ^ (i - 1) * 1

Case "2": B = B + 16 ^ (i - 1) * 2

Case "3": B = B + 16 ^ (i - 1) * 3

Case "4": B = B + 16 ^ (i - 1) * 4

Case "5": B = B + 16 ^ (i - 1) * 5

Case "6": B = B + 16 ^ (i - 1) * 6

Case "7": B = B + 16 ^ (i - 1) * 7

Case "8": B = B + 16 ^ (i - 1) * 8

Case "9": B = B + 16 ^ (i - 1) * 9

Case "A": B = B + 16 ^ (i - 1) * 10

Case "B": B = B + 16 ^ (i - 1) * 11

Case "C": B = B + 16 ^ (i - 1) * 12

Case "D": B = B + 16 ^ (i - 1) * 13

Case "E": B = B + 16 ^ (i - 1) * 14

Case "F": B = B + 16 ^ (i - 1) * 15

End Select

Next i

HEX_to_DEC = B

End Function

' 用途：将十进制转化为十六进制

' 输入：Dec(十进制数)

' 输入数据类型：Long

' 输出：DEC_to_HEX(十六进制数)

' 输出数据类型：String

' 输入的最大数为2147483647,输出最大数为7FFFFFFF

Public Function DEC_to_HEX(Dec As Long) As String

Dim a As String

DEC_to_HEX = ""

Do While Dec > 0

a = CStr(Dec Mod 16)

Select Case a

Case "10": a = "A"

Case "11": a = "B"

Case "12": a = "C"

Case "13": a = "D"

Case "14": a = "E"

Case "15": a = "F"

End Select

DEC_to_HEX = a & DEC_to_HEX

Dec = Dec 16

Loop

End Function

' 用途：将二 进 制转化为八进制

' 输入：Bin(二 进 制数)

' 输入数据类型：String

' 输出：BIN_to_OCT(八进制数)

' 输出数据类型：String

' 输入的最大数为2147483647个字符

Public Function BIN_to_OCT(ByVal Bin As String) As String

Dim i As Long

Dim H As String

If Len(Bin) Mod 3 <> 0 Then

Bin = String(3 - Len(Bin) Mod 3, "0") & Bin

End If

For i = 1 To Len(Bin) Step 3

Select Case Mid(Bin, i, 3)

Case "000": H = H & "0"

Case "001": H = H & "1"

Case "010": H = H & "2"

Case "011": H = H & "3"

Case "100": H = H & "4"

Case "101": H = H & "5"

Case "110": H = H & "6"

Case "111": H = H & "7"

End Select

Next i

While Left(H, 1) = "0"

H = Right(H, Len(H) - 1)

Wend

BIN_to_OCT = H

End Function

' 用途：将八进制转化为二 进 制

' 输入：Oct(八进制数)

' 输入数据类型：String

' 输出：OCT_to_BIN(二 进 制数)

' 输出数据类型：String

' 输入的最大数为2147483647个字符

Public Function OCT_to_BIN(ByVal Oct As String) As String

Dim i As Long

Dim B As String

For i = 1 To Len(Oct)

Select Case Mid(Oct, i, 1)

Case "0": B = B & "000"

Case "1": B = B & "001"

Case "2": B = B & "010"

Case "3": B = B & "011"

Case "4": B = B & "100"

Case "5": B = B & "101"

Case "6": B = B & "110"

Case "7": B = B & "111"

End Select

Next i

While Left(B, 1) = "0"

B = Right(B, Len(B) - 1)

Wend

OCT_to_BIN = B

End Function

Private Sub Command1_Click()

= HEX_to_BIN()

End Sub