因為你顯然是找到一本把BASICA繪圖的書拿來前後加上sub...end sub
就直接改成for VB的上古爛書
本人特地寫一個比較近代的VB6繪圖範例給你看
Private Sub Form_Activate()
Dim i As Integer
Dim cx As Double, cy As Double
Dim rx As Double, ry As Double
Dim RR As Double, PR As Double
cx = 250: cy = 150
RR = 120: PR = 3
Me.ScaleMode = vbPixels ' 這一行一定要設，不然畫出來的圖大小會變成1/15
For i = 0 To 360 Step 5
rx = Cos(rad(i * 1#)) * RR + cx
ry = Sin(rad(i * 1#)) * RR + cy
Me.Circle (rx, ry), PR
Next i
End Sub
Function rad(d As Double) As Double
rad = d * 3.14159265 / 180
End Function
從你給的範例來看，你的書真是太rancid了
gosub用得一點意義都沒有，整個sub完全可以放到前面沒有任何差別
完全就是BASICA思維，連QB都搆不上
現在還被那種招搖撞騙的書騙到實在是太慘了
看過以上範例以後請把那本爛書丟了，弄本比較近代的書來看吧
VB6老歸老，也不表示可以用爛書來學
--
BATCH 03 : 買張床 - 切達大俠 - 伐木人之歌 - http://tinyurl.com/3zpyx5
[B4準備中]: 謳歌金錢(7/02) - 單車超人(7/23) - http://tinyurl.com/66v6vq
[ 番外篇 ]: 包租婆也有過當羅莉的時候(7/17) - http://tinyurl.com/6j4ale
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正體中文計畫 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ http://www.youtube.com/user/JamesBondXD▄▄
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.115.208.50