PrivateSubCommand1_Click()

Picture1.Cls

Picture1.Scale(-100,10)-(100,-10)

Picture1.CurrentX=50

Picture1.CurrentY=6

Picture1.Print"y=x^0.5"

Picture1.Line(-100,0)-(100,0),vbBlack

Picture1.Line(0,10)-(0,-10),vbBlack

Fori=0To100Step0.01

x=Sqr(i)

Picture1.PSet(i,x),vbGreen

Nexti

EndSub

PrivateSubCommand2_Click()

Picture1.Cls

Picture1.Scale(-20,1000)-(20,-1000)

Picture1.CurrentX=11

Picture1.CurrentY=600

Picture1.Print"y=x^3"

Picture1.Line(-20,0)-(20,0),vbBlack

Picture1.Line(0,1000)-(0,-1000),vbBlack

Fori=-20To20Step0.01

x=i^3

Picture1.PSet(i,x),vbGreen

Nexti

EndSub

PrivateSubCommand3_Click()

Picture1.Cls

Picture1.Scale(-10,10)-(10,-10)

Picture1.CurrentX=5

Picture1.CurrentY=5

Picture1.Print"y=2x-5"

Picture1.Line(-10,0)-(10,0),vbBlack

Picture1.Line(0,10)-(0,-10),vbBlack

Fori=-10To10Step0.01

x=2*i-5

Picture1.PSet(i,x),vbGreen

Nexti

EndSub

PrivateSubCommand4_Click()

Picture1.Cls

Picture1.Scale(-5,5)-(5,-5)

Picture1.CurrentX=2

Picture1.CurrentY=2

Picture1.Print"y=1/x"

Picture1.Line(-5,0)-(5,0),vbBlack

Picture1.Line(0,5)-(0,-5),vbBlack

Fori=-5To5Step0.002

IfAbs(i)>0.01Then"捨去畫Y軸兩側0.01範圍內的曲線

x=1/i

Picture1.PSet(i,x),vbGreen

EndIf

Nexti

EndSub