[填空题] 下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x,最后输出x平方根与 y平方根的乘积。请在画线处填上适当的内容使程序完整。 Private Sub Form_Click()a=
19 查阅
[填空题] 下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x,最后输出x平方根与 y平方根的乘积。请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
a=Array(3,6,8,11,64,13,24,9,42,35,22)
y=Fun1(a)
print y
End Sub
Private Function Fun1(b)
x=0:y=0
for k=0 to 10
If 【9】 Mod 2=0 then
x=x+b(x)
else
y=y+b(x)
End If
Next
Fun1=Sqr(x)*Sqr(y)
End Function
参考答案: