填空题

执行如下程序段后，intsum的值为 【13】 。
Private Sub Command1_Click()
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Mod j)＜＞0 Then sum=sum+j
Next
Next
Print sum
End Sub

【参考答案】

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

填空题
在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem ItemA :List1.AddItem Item B List1.AddItem Item C ：List1.AddItem ItemD List1.AddItem ItemE End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是 【11】 。
填空题
下面程序的功能是计算给定正整数序列中奇数之和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
相关试题