PSET. Как с помощью нее нарисовать синусоиду? - VB
Формулировка задачи:
Функция PSET. Как с помощью нее нарисовать синусоиду?
Решение задачи: «PSET. Как с помощью нее нарисовать синусоиду?»
textual
Листинг программы
Private Sub Command1_Click() Dim b As Integer Dim x As Integer Dim y As Integer x = 2000 y = 2000 Form1.DrawWidth = 1 For b = 0 To 45 PSet (2500 + (Sin(b)) * 200, 2500 + ((b) * 200)), vbBlue Next b End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д