VB畫圖軟件源代碼

private sub command1_click()

dim i as integer

me.cls

scale(0,80)-(80,0)

const s=5

const y=20

line(x,y)-(75,y)

line(x,y)-(x,75)

currentX=7

currentY=75

print"Y"

currentX=73

currentY=27

print"Y"

for i=10to50 step10

line(x+i,y+i)-(x+i+6,y),,b

currentX=x+i-1

currentY=y+i+8

print i

next i

end sub

畫四方形的``打得我手酸死了`