[填空題] 以下程序的功能是：求x的y次方。根據(jù)題意，請(qǐng)完善下列程序。 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數(shù):") n=InputBox("輸入次方數(shù):") t=funl(m, n) Print Str(m)+"^"+Str(n)+"="; 【10】 End Sub

[8]1 [9]funl=z [10]t解析：[分析]： 求x的y次方，其實(shí)就是x*x*…*x一共乘y次。函數(shù)fun()中用z表示乘積，z的初值為1，所以只需把z與x再乘y次即可。函數(shù)中的循環(huán)共執(zhí)行了y次，在每一次循環(huán)中，z應(yīng)該乘上一個(gè)x。計(jì)算結(jié)果z通過(guò)子過(guò)程名返回，再在窗體上打印出來(lái)。在循環(huán)的過(guò)程中，被乘數(shù)變量．若進(jìn)行累乘計(jì)算的初值為1。