Прошу помочь составить программу в Visual Basic! - VB

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

Прошу помочь решить хотя бы один из этих вариантов: 1. Составить программу, решающую графически уравнение sin(x)=cos(x). На интервале от пи до пи. 2. Составить программу, реализующую вывод на экран геометрической фигуры по ее номеру: 1 - окружность, 2 - ромб, 3 - прямоугольник. 3. Составить программу решающую квадратное уравнение. Предусмотреть все варианты. Заранее Спасибо! roll

Решение задачи: «Прошу помочь составить программу в Visual Basic!»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Dim pi, i, p, w, h
Dim xn, yn
Private Sub Command1_Click()
Picture1.Cls: Call ks
 
For p = 0 To Picture1.ScaleWidth Step 0.01
 
Picture1.PSet (p, Picture1.ScaleHeight / 2 + Sin(w / 2 - p)), vbGreen
Picture1.PSet (p, Picture1.ScaleHeight / 2 - Cos(w / 2 - p)), vbRed
If Abs((Picture1.ScaleHeight / 2 + Sin(w / 2 - p)) - _
(Picture1.ScaleHeight / 2 - Cos(w / 2 - p))) < 0.007 Then
 
  Picture1.Line (p, Picture1.ScaleHeight / 2 - Cos(w / 2 - p))-(p, 2), vbWhite
  Picture1.Circle (p, Picture1.ScaleHeight / 2 - Cos(w / 2 - p)), 0.05, vbWhite
    Picture1.Circle (p, Picture1.ScaleHeight / 2 - Cos(w / 2 - p)), 0.1, vbWhite
  Picture1.Print Round((p - w / 2) / pi, 2); "ГЏ"
 
End If
Next p
Picture1.Line (0, 1)-(w, 1)
Picture1.Line (0, 3)-(w, 3)
End Sub
 
Private Sub Form_Load()
pi = Atn(1) * 4
w = 8: h = 4
Picture1.ScaleWidth = w
Picture1.ScaleHeight = h
Call ks
End Sub
Private Sub ks()
Picture1.Line (0, h / 2)-(w, h / 2)
Picture1.Line (w / 2, 0)-(w / 2, h)
 
For i = 0 To w
Picture1.Line (i, h / 2 - 0.1)-(i, h / 2 + 0.1)
Picture1.Print Round(i - w / 2, 2)
Next i
 
For i = 0 To h
Picture1.Line (w / 2 - 0.1, i)-(w / 2 + 0.1, i)
If i <> h / 2 Then Picture1.Print Round((h - i - 2), 2)
Next i
End Sub