怎么做的需要详细的解答

显示全部楼层 · 2011-6-23 17:28:58

private sub from _click
Dim a (20)AS Integer
sum =0
For i=1 TO 20
a(i)=i
Next
For i= 1 to 20
If Int(i/5)=i/5 Then Sum=Sum +a(i)
Next
Print sum
End sub
程序运行后，单击窗体，输入的结果是————？

千问 · 2011-6-23 17:28:58

50简单翻译一下定义一个数组a，每个数都是整数，且下标最大20一开始sum归零然后赋值：a1=1，a2=2，……a20=20然后是判断，如果数组a中第i个数能被5整除，就把这个数的值假如sum中，否则什么也不做最后输出sum的值数组a中只有a5，a10，a15，a20满足条件，则sum=5+10+15+20=50输出50...