[填空题] 以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Int

[填空题] 以下程序的功能是：求x的y次方。根据题意，请完善下列程序。

Private Function funl(x As Double, y As Integer)As Double

Dim i As Integer

Dim z As Double

z= 【8】

For i=1 To y

z=z*x

Next i

【9】

End Function

Private Sub Command1_Click()

Dim m As Double

Dim n As Integer

Dim t As Double

m=InputBox("输入x数:")

n=InputBox("输入次方数:")

t=funl(m, n)

Print Str(m)+"^"+Str(n)+"="; 【10】

End Sub

[8]1 [9]funl=z [10]t解析：[分析]： 求x的y次方，其实就是x*x*…*x一共乘y次。函数fun()中用z表示乘积，z的初值为1，所以只需把z与x再乘y次即可。函数中的循环共执行了y次，在每一次循环中，z应该乘上一个x。计算结果z通过子过程名返回，再在窗体上打印出来。在循环的过程中，被乘数变量．若进行累乘计算的初值为1。