2. 计算机
  3. 以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【 】

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【 】

admin2013-01-23  27
问题 以下程序的功能是：求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
选项
答案1 ,funl=z ,t
解析 求x的y次方，其实就是x*x*…*x一共乘y次。函数fun()中用z表示乘积，z的初值为1，所以只需把z与x再乘y次即可。函数中的循环共执行了y次，在每一次循环中，z应该乘上一个x。计算结果z通过子过程名返回，再在窗体上打印出来。在循环的过程中，被乘数变量．若进行累乘计算的初值为1。
转载请注明原文地址:https://kaotiyun.com/show/7Shp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)