菜单操作（数制的转换，复选框）

Option Explicit
Private Sub clear_Click()
Text1.Text = ""
Octv.Checked = False
Decv.Checked = False
Hexv.Checked = False
clear.Checked = False
quit.Checked = False
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub

Private Sub Decv_Click()
Dim answer As String
answer = Val(Text1.Text)
Octv.Checked = False
Decv.Checked = True
Hexv.Checked = False
clear.Checked = False
quit.Checked = False
Label4.Caption = Format(answer)
End Sub

Private Sub Hexv_Click()
Dim answer As String
answer = Val(Text1.Text)
Octv.Checked = False
Decv.Checked = False
Hexv.Checked = True
clear.Checked = False
quit.Checked = False
Label6.Caption = HEX(answer)
End Sub

Private Sub Octv_Click()
Dim answer As String
answer = Val(Text1.Text)
Octv.Checked = True
Decv.Checked = False
Hexv.Checked = False
clear.Checked = False
quit.Checked = False
Label5.Caption = OCT(answer)
End Sub

Private Sub quit_Click()
End
End Sub