>>438
ありがとうございます
そのまま書いたのですが
変数　Rが定義されていませんと出てしまいました
3行目for i = 1 to r + 1
何かを変えないといけないのでしょうか？
すみません　サンプルみたいなものがあればお助けくださいませm(__)m