Построить график - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д