Question

关于VB的语句问题！！！急！！！在线等！！！

Dim t(20) As String
Dim c(20) As String
Dim a As Integer
Dim b As Integer
Dim k As Integer

Private Sub Text1_Change()

End Sub

Private Sub Option1_Click()
k = 16
End Sub

Private Sub Option2_Click()
t(1) = t(0)

For i = 0 To 20
If c(i) < 9 And c(i) > 0 Then
t(1) = c(i) * k ^ i
Else
Exit For
End If
Next
End Sub

Private Sub Option3_Click()
k = 8
End Sub

Private Sub Option4_Click()
k = 2
End Sub

我要做一个进制转换计算器，
请高手帮我把需要写的地方写好，
谢谢！！！

Answer 1

单选按钮自己判断了
hex()转换16进制
oct()转换8进制
Cint()转换10进制

全部都有内部函数的