Question

用VB编写程序

设置某数值转换界面，如图5所示，运行时单击“转换”按钮Command1将在文本框Text1中输入的十进制数根据单项按钮的选择转换成八进制或十六进制。已知八进制转换函数为Oct(Number)，十六进制转换函数为Hex(Number)，其中Number为要转换的数。

Answer 1

Private Sub Command1_Click()
If Option1.Value = True Then Text2 = Oct(Text1)
If Option2.Value = True Then Text2 = Hex(Text1)

End Sub

Answer 2

Private Sub Command1_Click()
If Option1.Value Then
   Text2.Text = Oct(Val(Text1.Text))
Else
   Text2.Text = Hex(Val(Text1.Text))
End If

End Sub