Рисование графика tgx - VB

Формулировка задачи:

У меня вот такой код ------------ Private Sub Command1_Click() 'Задание масштаба PicGraph.Scale (-10, 2)-(10, -2) 'Построение графика функции For sngX = -10 To 10 Step 0.01 y = Val(Text1.Text) * sngX PicGraph.PSet (sngX, Cos(y)) Next sngX 'Ось Х PicGraph.Line (-10, 0)-(10, 0) For bytI = -10 To 10 PicGraph.PSet (bytI, 0) PicGraph.Print bytI Next bytI 'Ось Y PicGraph.Line (0, 2)-(0, -2) For bytI = -2 To 2 PicGraph.PSet (0, bytI) PicGraph.Print bytI Next bytI End Sub Private Sub Command2_Click() PicGraph.Cls Text1.Text = "" End Sub ------------------ Что я должен изменить чтобы программа рисовала график тангенс??? Заранее благодарю!

Решение задачи: «Рисование графика tgx»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
'Задание масштаба
PicGraph.Scale (-10, 2)-(10, -2)
'Построение графика функции
For sngX = -10 To 10 Step 0.01
y = Val(Text1.Text) * sngX
PicGraph.PSet (sngX, Tan(y))
Next sngX
'Ось Х
PicGraph.Line (-10, 0)-(10, 0)
For bytI = -10 To 10
PicGraph.PSet (bytI, 0)
PicGraph.Print bytI
Next bytI
'Ось Y
PicGraph.Line (0, 2)-(0, -2)
For bytI = -2 To 2
PicGraph.PSet (0, bytI)
PicGraph.Print bytI
Next bytI
End Sub
 
 
Private Sub Command2_Click()
PicGraph.Cls
Text1.Text = ""
End Sub
                        