小さな地球を見る思いで、ずっと眺めちゃいます。肉食が先に死滅する展開が多いですが、草食が先に死滅し、それで肉食も絶滅した後は、ただ草が生えるのみって、なんともドラマチックです(^^)。
追加希望ですが、リセットボタンが欲しいですね。生命がテーマでリセットは禁句かもしれませんが(^^;)、展開が早いので、その度にSTOP→RUNするよりは楽なので。
…あと、草食が大繁殖すると、
Subscript out of range in 0:220
というエラーで止まることを報告させていただきます。
220行目、K[U] の U の値が 101 になってエラーするようです。
DIM K[101] (※要素数は101)
なので U の範囲は、0~100 (0始まりなので添え字の番号は1つずれる)の筈です。
U の上限値のチェックをわすれているか、101迄OKとしてしまっているのではないかと。
確認してみて下さい。