Page 71 - 4450
P. 71
End Sub
Private Sub mnutab_Click()
Dim space, newline As String
Dim x, y As Double
newline = Chr(13) + Chr(10)
space = Chr(9)
Text1.Text = "X" + space + "Y" + newline
For x = Val(Text2.Text) To Val(Text3.Text) Step
Val(Text4.Text)
y = Sin(x) + 1
If Check1.Value = Checked Then
Text1.Text = Text1.Text + Str(x) + space + Str(Format$(y,
"0.000")) + newline
End If
Next x
End Sub
Рисунок 10.1 – Результат виконання програми
69
