VB程序解答

1.dim s as long,i as long
s=0
for i=1 to 100
s=s+i
next i

2.dim s,i as long
s=1
for i=1 to 100
s=s*i
next i

不出点分
sub a()
dim i,j as integer
dim k as long

i=1
j=0
k=1

do while（i<=100)
j=j+i
k=k*i
i++
loop

lbl1.text="1+2+3+……+ 100="&j
label2.text="1*2……*100="&k
end sub