Cametan_42さんのブログから、問題ではありませんが、VBでやってみました。

Cametan_42さんが、ネットの質問に答えています。Visual Basic でやってみました。

答えは合っているようです。