VB的xn函数如何使用？

Question

Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1 To mtmp = tmp*aNextxn= tmpEnd 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。