Question

请教VB大神两道递归算法的题，谢谢啦 一是输入一个十进制整数，将它转

请教VB大神两道递归算法的题，谢谢啦
一是输入一个十进制整数，将它转换成k进制数
二是设计一个公式的算法
都写在纸上了，谢谢啦

Answer 1

Private Sub Command1_Click()
  Label3.Caption = "转换后的" & Val(Text2.Text) & "进制数为" + Transformation(Val(Text1.Text), Val(Text2.Text))
End Sub

Private Function Transformation(ByVal n As Long, ByVal k As Integer) As String
  If n <> 0 Then
    r = n Mod k
    n = n \ k
    Transformation = Transformation(n, k) + CStr(r)
  End If
End Function

Private Sub Command1_Click()
  Label2.Caption = "Sum(1 To " + Text1.Text + ")=" & Sum(Val(Text1.Text))
End Sub

Private Function Sum(ByVal n As Integer) As Double
  If n <= 1 Then
    Sum = -1 / 2
  Else
    Sum = (-1) ^ n / (2 * n) + Sum(n - 1)
  End If
End Function

Answer 2

你是打算让回答者再抄一遍，是么？