怎么用vb编写连加程序，以s=∑（i+1)(2i+1) i的值为从一到十

Answer 1

dimsasinteger;dimiasinteger;fori=1to10s=(i+1)*(2i+1)nextdebug.prints;