填空题

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

【参考答案】

J
<上一题 目录 下一题>
热门 试题

填空题
下面程序的功能是计算给定正整数序列中奇数之和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
填空题
用户可以用 【8】 语句定义自己的数据类型。
相关试题