VB程序设计:将十进制整数转换为其他进制

您好，这样的：

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。

1.运行“MicrosoftVisualStudio2010”。

2.当d出“vs”窗口时，找到菜单栏，用鼠标左键点击“文件(f)”选项。知道

3.在d出的列表神团中，左键单击标题为“新项目(p)”的项目。

4.在d出式标题“局悔新建项目”中，用鼠标左键选择标题为“VisualBasic”的项目，再选择标题为“WIndows”的项目桐瞎正。在右边的列表中选择标题“Windows窗体返回应用程序”。

5.在背景为“白色”、标题为“ForM1”的窗口中，双击鼠标左键。

6、在新切换到“代码”页。

7.然后在“PrivateSubForm1_Load(ByValsender作为系统”下编写代码。对象，ByVale作为system.eventargs)处理mybase.load”。就是这样。

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

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

---