以下程序的功能是:求x的y次方。根据题意 请完善下列程序。 Private Function fun

大学专科 已帮助: 时间:2023-07-23 00:16:39

以下程序的功能是:求x的y次方。根据题意,请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【 】 For i=1 To y z=z*x Next i 【 】 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)+"=";【 】 End Sub
请帮忙给出正确答案和分析,谢谢!

难度:⭐⭐⭐

题库:大学专科,电子信息,计算机类

标签:题意,次方,程序

参考解答

用户头像

4jj***265

2023-07-23 00:16:39

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

上一篇 软件文档是软件工程实施中的重要成分 它不仅是软件开发的各阶段的重要依据 而且影响软件的【 】。请帮忙

下一篇 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放

相似问题