Private Sub Command1_Click()
Dim a As String
Dim k As String
Dim n As String
Dim b As String
Dim i As Integer
Dim t As Integer
a = InputBox("请输入待转换的数值", "输入数据")
k = InputBox("请输入待转换的数值的进位制", "输入数据")
n = InputBox("请输入待转换数值位数", "输入数据")
b = 0
i = 1
t = a Mod 10
Do
b = b + t * k ^ (i - 1)
a = a \ 10
t = a Mod 10
i = i + 1
Loop Until i > n
Print "k进制数" & "“" & a & "”" & "转换为十进制后的数为:"; b
End Sub
Private Sub Command1_Click()Dim a As StringDim k As StringDim n As StringDim b As StringDim i As IntegerDim t As Integera = InputBox("请输入待转换的数值", "输入数据")k = InputBox("请输入待转换的数值的进位制", "输入数据")n = InputBox("请输入待转换数值位数", "输入数据")b = 0i = 1t = a Mod 10Dob = b + t * k ^ (i - 1)t = (a\(10^i)) Mod 10i = i
