vb 编程将十进制数转换成十六进制数

1、运行“Microsoft Visual Studio 2010”。

2、”vs“的窗口d出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。

3、在d出的列表中鼠标左键单击标题为”新建项目（p）“的项。

4、在d出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。再在右边的列表中选择标题为”Windows 窗体应用程序“。

5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。

6、在新切换到的“代码编辑页面”。

7、再在 “Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下写代码。就可以了。

编程环境下，Ctrl+E,菜单编辑器，按代码写入

标题：进制转换 名称：Menu（选择“显示菜单列表”）然后按那个“->”标志的按钮

标题：二进制 名称：Tran2

标题：八进制 名称：Tran8

标题：十六进制 名称：Tran16

标题：退出 名称：Quit(选择“显示菜单列表”）

Option Base 1

Dim arr() As Variant

Private Sub Form_Load()

Label2.Caption = "转换数值："

Text1.FontSize = 14

End Sub

Private Sub Quit_Click()

Unload Me

End Sub

Private Sub Tran16_Click()

If Text1.Text <>"" Then

Label1.Caption = "转换后的十六进制数值为：" + "X" + Hex(Val(Text1.Text))

Else

Beep

MsgBox "请输入整数"

End If

End Sub

Private Sub Tran2_Click()

Dim var As Integer

Label1.Caption = "转换后的八进制数值为："

var = Val(Text1.Text)

i = 0

Do

i = i + 1

ReDim Preserve arr(i)

x = var Mod 2

arr(i) = x

var = var / 2

Loop While var >0

For j = i To 1 Step -1

Label1.Caption = Label1.Caption &arr(j)

Next j

End Sub

Private Sub Tran8_Click()

If Text1.Text <>"" Then

Label1.Caption = "转换后的八进制数值为：" + "O" + Oct(Val(Text1.Text))

Else

Beep

MsgBox "请输入整数"

End If

End Sub

网太卡 图片无法上传 不知道语言你是否能够理解？

进制转换并不是那么难的，有很多相关的资料。

提供一个二进制转化为十进制的函数

Private Sub command1_click()

    MsgBox BIN_to_DEC("11")

End Sub

Private 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

---