填空题

以下程序的功能是：求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