题目内容

下面程序的功能是计算给定正整数序列中奇数之和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

查看答案

搜索结果不匹配？点我反馈

更多问题

紫雪丹长于（）

A. 化痰开窍，消肿止痛
B. 清热解毒豁痰
C. 芳香开窍，化浊
D. 息风止痉
E. 芳香开窍，温中

至宝丹长于（）

A. 化痰开窍，消肿止痛
B. 清热解毒豁痰
C. 芳香开窍，化浊
D. 息风止痉
E. 芳香开窍，温中

执行下面的程序段，x的值为【10】。 Private Sub Command1_Click() For i=1 To 9 a=a+i Next x=Val(i) MsgBox x End Sub

函数Int(Rnd*10)+10的值为范围是【6】。