VB代码:------------------------------------------------------------------------for循环_____________________________________________private function jiechengfor(byval n as integer)
dim i as integer,dim jiecheng as long
jiecheng=1
for i =n to 1 step -1
jiecheng=jiecheng*i
next i
...