Построить график - VB

Узнай цену своей работы

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

Нужно построить график суммы,но у меня одна прямая..

Решение задачи: «Построить график»

textual
Листинг программы
Private Sub Command1_Click()
    Dim x As Single, s As Single, n As Integer, h As Integer, m As Integer
    s = 0
    If Option1.Value = True Then
        h = 1
        x = 7.5
        m = 25
    End If
    If Option2.Value = True Then
        h = 3
        x = 12.45
        m = 37
    End If
    Picture1.Cls
    Picture1.Scale (-1, 200)-(m, -200)
    Picture1.Line (-1, 0)-(m, 0), vbBlack 'ось x
    Picture1.Line (0, 200)-(0, -200), vbBlack 'ось y
    For n = 1 To m Step h
        s = s + x ^ (2) / (n ^ (3) * n ^ (1 / 2))
        If n > 1 Then Picture1.Line -(n, s), vbBlue
        Picture1.Circle (n, s), 0.1, vbRed
    Next n
    Text1 = Str(h)
    Text2 = Str(x)
    Text3 = Str(m)
    Text4 = Str(s)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.5 из 5
Похожие ответы