Question

显示所有100以内6的倍数，并求这些数的和 用VB写出程序

Answer 1

dim s
for i=1 to 100
if i mod 6=0 then
print i 打印输出6的倍数
s=s+i s是这些数的和
end if
next i
print s 打印输出s

Answer 2

dim a as double

private sub Form_Load()
for i=1 to 100
if i mod 6=0 then
a=a+i
end if
next i
msgbox a
unload me
end sub

运行结果为816

Answer 3

private
sub
form_load()
dim
i
as
integer
dim
sum
as
integer
sum
=
0
for
i
= 6
to 100
step
6
sum
=
sum
+
i
next
msgbox
sum
end
sub