Question

VB编程 要求计算1-1000能被3.7整除的个数及其和……谢谢……

只看到了提示是循环 条件 c=c+1 a=a+i……谢谢……抱头滚……

Answer 1

dim i as integer
dim c as integer
dim a as integer
a=0
c=0
for i=1 to 1000
if (i mod 3=0) and (i mod 7=0) then
c=c+1
a=a+i
endif
next
msgbox "1-1000的数中能被3.7整除的数的个数是：" & c & vbcrlf & "这些数的和是：" & a

Answer 2

for i=1 to 1000
if i mod3=0 and  i mod 7=0 then
c=c+1
a=a+i
next
  print "能被3和7整除的数的个数有："  &  c & "个"
print   "能被3和7整除的数的数的和是：" ;a