用VB编写数制转换的程序

编程环境下，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)