'貼入下面的代碼,即可：
'--------------------------------------
Const Pi = 3.1415926535 '定義圓周率
Dim a,wor
'定義用于在Picture1上的一個位置打印字符函數(shù)
Private Function PrintWord(X,Y,Word As String)
With Picture1
.CurrentX = X
.CurrentY = Y
.ForeColor = RGB(0,0,255)
End With
Picture1.Print Word
End Function
'定義畫點函數(shù)
Private Function DrawDot(Px,Py,Color)
Picture1.PSet (Px,Py),Color
End Function
Sub XY() '建立直角坐標(biāo)系
Picture1.DrawWidth = 1 '設(shè)置線條寬度
Picture1.Cls
'設(shè)定用戶坐標(biāo)系,坐標(biāo)原點在Picture1中心
Picture1.Scale (-10,10)-(10,-10)
Picture1.Line (-10,0)-(10,0),RGB(0,0,255)
Picture1.Line -(9.5,0.5),RGB(0,0,255)
Picture1.Line (10,0)-(9.5,-0.5),RGB(0,0,255)
Picture1.ForeColor = RGB(0,0,255)
Picture1.Print "X"
'畫 X 軸
Picture1.Line (0,-10)-(0,10),RGB(0,0,255)
Picture1.Line -(0.5,9.5),RGB(0,0,255)
Picture1.Line (0,10)-(-0.5,9.5),RGB(0,0,255)
Picture1.Print "Y"
'畫 Y 軸
For lin = -9 To 9
Picture1.Line (lin,0)-(lin,0.25)
wor = PrintWord(lin - 0.5,-0.5,Str(lin))
Picture1.Line (0,lin)-(-0.25,lin)
If lin <> 0 Then
wor = PrintWord(-0.9,lin,Str(lin))
End If
Next lin
Picture1.DrawWidth = 2
End Sub
Private Sub Command1_Click()
For a = -3 To 3 Step Pi / 6000
Dot = DrawDot(a,a ^ 2,RGB(0,0,0))
Next a
wor = PrintWord(4,9,"二次曲線 y=x^2")
End Sub
Private Sub Command2_Click() '清空屏幕
XY
End Sub
Private Sub Form_Load()
Me.Caption = "數(shù)學(xué)函數(shù)作圖?quot;"
Me.Show
Me.AutoRedraw = True
Command1.Caption = "二次曲線"
Command2.Caption = "清空"
XY
End Sub
Private Sub Form_Resize()
Picture1.Width = Me.Width * 0.94
Picture1.Height = Me.Height - (Command1.Height * 3 + 100)
Command1.Top = Me.Height - (Command1.Height * 2 + 100)
Command2.Top = Me.Height - (Command1.Height * 2 + 100)
Command1.Left = Me.Width * 0.01
Command2.Left = Me.Width * 0.21
XY
End Sub