没有。只能
Do i = 1 , 3
End Do
Do i = 5 , 9
End Do
如果觉得写两段代码复杂，就用函数。
call MyDo( 1 , 3 )
call MyDo(5,9)
Subroutine MyDo(iBegin,iEnd)
Do i = iBegin , iEnd
...
End Do
End Subroutine MyDo
可以这样：
do =1，9
if(i.le.3) then
j=i
elseif (i.ge.5)
j=i
else
goto 111
endif
enddo
111 ****
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024