NIntegrate[y*Integrate[1/x, {x, y, 1}], {y, 0, 1}]
NIntegrate[y*NIntegrate[1/x, {x, y, 1}], {y, 0, 1}]
两段运算，上面没问题，下面会报错但有计算结果。我的问题是如何在使用NIntegrate计算下面时不报错。因为这里方便举例就用了1/x,但实际上是一个计算量很大的函数，integrate会计算大半天，运行时间太长。而NIntegrate计算时间短，但会报错，大批量循环运算也会卡住

help[y_?NumericQ] := NIntegrate[1/x, {x, y, 1}]
NIntegrate[y help@y, {y, 0, 1}]
不过需要注意的是多重数值积分本来就快不到哪去……