isum=0 jsum=0 read(*,*) n do i=1,n do j=1,i jsum=jsum+j enddo isum=isum+jsum jsum=0 enddo print*,isum end 这是fortran程序,自己改成vb语法或其他你自己需要的语法即可
← 上一条:编写一个程序,求s=1+(1+2)+(1+2 下一条:vb求s=1+(1+2)+(1+2+3)+( →