30x30の画像をつくる (ID:80582)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも参考にさせていただいております。 質問なのですが、 ３０マスｘ３０マスの画像をつくりたいと思い、 以下のようなプログラムを作りました。 開発環境は、windows2000とVB6.0です。 ************************************************ Private Sub Command1_Click() GR = 56.7 '１グリッドの幅 For x = 744 To 744 + (31 * GR) Step GR Picture1.Line (x, 744)-(x, (744 + 30 * GR)) Next x For y = 744 To 744 + (31 * GR) Step GR Picture1.Line (744, y)-((744 + 30 * GR), y) Next y End Sub ************************************************ このプログラムだと、３２番目にも線が引かれてしまいます。 ただ「744」の値を「743」に変更すると、 きれいに30x30のマス目ができます。 「743」と「744」で、なぜ出力結果が違ってきてしまうのかが わかりません。 よろしくお願いいたします。