VB的xn函数如何使用？

Question

Private Function xn(a As Single, m As Integer)
Dim i As Integer
tmp = 1
For i = 1 To m
tmp = tmp*a
Next
xn= tmp
End Function
为什么要1到m循环？为什么tmp = tmp*a？为什么 xn= tmp？不明白这个函数是怎么用的，请大侠们帮忙，谢谢

Answer 1

从函数代码来看，这是一个计算数a的m次方的自定义函数从1到m循环：是让a连乘m次tmp=tmp*a：一开始tmp=1，所以tmp=tmp*a=1*a=a=a的1次方，第二次循环，tmp=tmp*a=a*a=a的2次方，依此类推，一直到tmp=a的m次方xn=tmp：是为了把最终的计算结果（也就是a的m次方）作为函数xn的返回值这个函数的使用例子：Private Sub Command1_Click()Print xn(2, 3) '这是计算2的3次方End Sub其实，从实用角度来看，这个函数完全是多余的，因为VB可以直接计算某个数的n次方，比如Print 2^3即可实现上述同样的效果

Answer 2

这个函数应该实现的是a的m次方所以，从1到m循环实现a累计乘了m次，值赋给了tmp。然后又把这个值赋给了函数xn。