Билет 22
Const S As Single = 0.002
Private Sub Command1_Click()
Picture1.Cls
Dim x As Single
Dim y As Single
If Check1.Value = 1 Then
For x = -6 To 6 Step S
y = Sin(x) + 0.1 * Sin(10 * x) + 0.01 * Sin(100 * x)
Picture1.PSet (x, y), vbRed
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check2.Value = 1 Then
Picture1.Line (-6, 0)-(6, 0), vbBlue
Picture1.Line (0, 2)-(0, -2), vbBlue
Label3.Caption = "-6"
Label4.Caption = "6"
Label5.Caption = "2"
Label6.Caption = "-2"
End If
End Sub
Private Sub Command2_Click()
Picture1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Form_Load()
Picture1.Scale (-6, 2)-(6, -2)
End Sub
Билет 23
Const S As Single = 0.01
Private Sub Command1_Click()
Picture1.Cls
Dim x As Single
Dim y As Single
If Check1.Value = 1 Then
For x = 0 To 20 Step S
y = Sin(x) * (x ^ 2 + 2) ^ (1 / 2)
Picture1.PSet (x, y), vbRed
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check2.Value = 1 Then
Picture1.Line (0, 0)-(20, 0), vbBlue
Picture1.Line (0, 20)-(0, -20), vbBlue
Label3.Caption = "0"
Label4.Caption = "20"
Label5.Caption = "20"
Label6.Caption = "-20"
End If
End Sub
Private Sub Command2_Click()
Picture1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Form_Load()
Picture1.Scale (0, 20)-(20, -20)
End Sub
Билет 24
Const S As Single = 0.005
Private Sub Command1_Click()
Picture1.Cls
Dim x As Single
Dim y As Single
If Check1.Value = 1 Then
For x = -4 To 4 Step S
y = x ^ 2
Picture1.PSet (x, y), vbBlue
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check2.Value = 1 Then
For x = -4 To 4 Step S
y = x ^ 3
Picture1.PSet (x, y), vbRed
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check3.Value = 1 Then
Picture1.Line (-4, 0)-(4, 0)
Picture1.Line (0, 100)-(0, -50)
Label3.Caption = "-4"
Label4.Caption = "4"
Label5.Caption = "100"
Label6.Caption = "-50"
End If
End Sub
Private Sub Command2_Click()
Picture1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Form_Load()
Picture1.Scale (-4, 100)-(4, -50)
End Sub
Билет 25
Const S As Single = 0.002
Private Sub Command1_Click()
Picture1.Cls
Dim x As Single
Dim y As Single
If Check1.Value = 1 Then
For x = -4 To 4 Step S
y = 1 / x
Picture1.PSet (x, y), vbBlue
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check2.Value = 1 Then
For x = -4 To 4 Step S
If Abs(x) > 0.0001 Then
y = 1 / x ^ 2
Picture1.PSet (x, y), vbRed
End If
Next x
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End If
If Check3.Value = 1 Then
Picture1.Line (-4, 0)-(4, 0)
Picture1.Line (0, 20)-(0, -4)
Label3.Caption = "-4"
Label4.Caption = "4"
Label5.Caption = "20"
Label6.Caption = "-4"
End If
End Sub
Private Sub Command2_Click()
Picture1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Form_Load()
Picture1.Scale (-4, 20)-(4, -4)
End Sub