急！VB的一道递归实习题！

来源：百度知道编辑：UC知道时间：2024/05/04 00:36:18

通过编一递归函数求X的N次方，窗口中有三个文本框和两个按键，在第一个中输入X的值，在第二个中输入N的值，点击“计算”按键后能在第三个文本框中显示X的N次方计算结果，点击“结束”按键后能关闭窗口。

求各位高手写一下程序的代码，我是初学者，这道题对各位来说可能很简单，可是对我来说好难啊！

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim total As double
Dim n As Integer
Dim x As Integer
x = Val(Text1)
n = Val(Text2)
total = 1
For i = 1 To n
total = total * x
Next
Text3 = total
End Sub

Private Sub Command2_Click()
End
End Sub

---------------------------------------------
没看清要用递归，下面是递归：
Private Sub Command1_Click()
Dim x As Integer
Dim n As Integer
x = Val(Text1)
n = Val(Text2)
Text3 = xn(x, n)
End Sub
Function xn(ByVal x As Integer, ByVal y As Integer)
'递归过程
If y = 1 Then
xn = x
Else
y = y - 1
xn = xn(x, y) * x
End If
End Function

Private Sub Command2_Click()
End
End Sub

Ps:数据类型你要根据需要修改下，我定为integer或long型，如果你需要带小数的话，自己修改成double型，就好了！

VB 递归函数急!!!!!! 一道要求使用递归的编程题一道VB题!!急!!! 一道c语言的递归 C语言一道递归题 VB实习心得体会论文(急..!!!!!!!!!!!!!!) 求VB递归的实例代码 C++关于递归函数的一道题目求一道递归调用的题目用C++递归算法解一道题