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

名前

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

本文 # For文に小数点を使うのは良くないと思います。 # （違う結果がでるというのもコレが原因だと思います） # それと使う変数は必ずDim宣言した方が良いです。 # しないと全てVariant型として扱われます。 # モジュールの頭にOption Explicitをつけてください。 で、ますおさんがやろうとしていることは Private Sub Command1_Click() Dim GR#, dStart#, dEnd#, x#, y As Double Dim lCnt As Long GR = 56.7 '１グリッドの幅 dStart = 743 '開始位置 dEnd = dStart + (30 * GR) '終了位置 For lCnt = 0 To 30 x = dStart + lCnt * GR Picture1.Line (x, dStart)-(x, dEnd) y = dStart + lCnt * GR Picture1.Line (dStart, y)-(dEnd, y) Next End Sub