vb数据类型怎么转换？

CType(X)

[格式]：

P=CBool(X) ' 将X转换为"布尔"（Boolean）类型

P=CByte(X) ' 将X转换为"字节"（Byte）类型

P=CCur(X) ' 将X转换为"金额"（Currency）类型

P=CDate(X) ' 将X转换为"日期"（Date）类型

P=CDbl(X) ' 将X转换为"双精度"（Double）类型

P=CInt(X) ' 将X转换为"整型"（Integer）类型

P=CLng(X) ' 将X转换为"长整型"（Long）类型

P=CSng(X) ' 将X转换为"单精度"（Single）类型

P=CStr(X) ' 将X转换为"字符串"（String）类型

P=Cvar(X) ' 将X转换为"变体型"（Variant）类型

P=CVErr(X) ' 将X转换为Error值

[ 范例 ]：

(1). CStr(13)+CStr(23)' 数值转换成字符串后，用"+"号连接， 结果：1323

(2). CInt("12")+12' 字符串转换成整型后与12相加， 结果：24

(3). P=CInt(True)' 输出结果为-1' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0

(4). CBool(-0.001)' 输出结果为True

' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.

2. Int(X),Fix(X)：取X的整数值

[格式]：

P=Int(X) ' 取<=X的最大整数值

P=Fix(X) ' 取X的整数部分，直接去掉小数

[范例]：

(1) Int(-54.6) ' 结果为-55，取<=-54.6的最大整数

(2) Fix(54.6) ' 结果为54，取整数并直接去掉小数

1.数据类型在数据结构中的定义是一个值的集合以及定义在这个值集上的一组 *** 作。

2.变量是用来存储值的所在处，它们有名字和数据类型。变量的数据类型决定了如何将代表这些值的位存储到计算机的内存中。在声明变量时也可指定它的数据类型。所有变量都具有数据类型，以决定能够存储哪种数据。

3.数据类型包括原始类型、多元组、记录单元、代数数据类型、抽象数据类型、参考类型以及函数类型。

您好，这样的：

VB编程序实现十进制数转换成2、8、16进制数 十进制转二进制

Public Function DECtoBIN(Dec As Long) As String

DECtoBIN = ""

Do While Dec >0

DECtoBIN = Dec Mod 2 &DECtoBIN

Dec = Dec \ 2

Loop

End Function

十进制转八进制：

VB自带函数：Oct(num)

十进制转十六进制：

VB自带函数：hex(num)

转换成十六进制 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 <>0

Form1.Print "转换为二进制数为："Bin

Private Sub Command1_Click()

Print bin(Text1.Text)

End Sub

Function bin(n As Long) As String

Do Until n = 0

bin = (n Mod 2) &bin

n = n \ 2

Loop

End Function

十六进制：Hex(number)或使用&H前缀

八进制：Oct(number)或使用&O前缀

二、八、十六进制转为十进制：

参数sdate为要进行转换的数，stype为此数的类型。

如要将十六进制的"7b"转为十进制: msgbox OtherToShi("7b",16)

Private Function OtherToShi(ByVal Sdate As String, ByVal Stype As Long) As String

Dim A As String, K As Long, P As Long

If trim(sdate)="" then msgbox "请输入要转换的数！" :Exit function

On Error GoTo Exitsub

P = Len(Sdate)

Select Case Stype

Case 2

For K = 1 To P

If Mid(Sdate, K, 1) >1 Then GoTo Exitsub

Next

Case 8

If IsNumeric(Sdate) = False Then GoTo Exitsub

Sdate = Round(Sdate)

p=len(sdate)

Case 16

For K = 1 To P

A = Asc(LCase(Mid(Sdate, K, 1)))

If A <48 Or (A >49 And A <97) Or A >102 Then GoTo Exitsub Next

Case Else '按你说的 *** 作,此句好象可免

MsgBox "指定转换的类型不正确，请重新输入！": Exit Function End Select

K = 0

Do While K <P

K = K + 1

A = Mid(Sdate, K, 1)

If Stype = 16 Then

Select Case LCase(A)

Case "a"

A = "10"

Case "b"

A = "11"

Case "c"

A = "12"

Case "d"

A = "13"

Case "e"

A = "14"

Case "f"

A = "15"

End Select

End If

OtherToShi = LTrim(Str(Val(OtherToShi) + Val(A) * Stype ^ (P - K)))

Loop

Exit Function

Exitsub:

MsgBox "要转化为" &Stype &"进制的数据不合法,请重新输入！"

End Function

'十进制转为二、八、十六进制:

'用法与上类似

Private Function ShiToOther(ByVal Sdate As String, ByVal Stype As Long) As String

Dim S As String

If trim(sdate)="" then msgbox "请输入要转换的数！" :Exit function

If IsNumeric(Sdate) = False Then GoTo Exitsub'要转换的对象非数值型,跳出不执行 On Error GoTo Exitsub

Sdate = Round(Val(Sdate)) '进行四舍五入

Do While Sdate >0

S = LTrim(Str(Sdate Mod Stype))

If Stype = 16 Then

Select Case S

Case "10"

S = "A"

Case "11"

S = "B"

Case "12"

S = "C"

Case "13"

S = "D"

Case "14"

S = "E"

Case "15"

S = "F"

End Select

End If

ShiToOther = S &ShiToOther

Sdate = Sdate \ Stype

Loop

Exit Function

Exitsub:

MsgBox "要转换的数据非十进制数据,请重新输入" End Function。

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

' 输入：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

---