Вывести в виде таблицы значение функций - VB
Формулировка задачи:
Доброго дня. С праздником всех форумчан.
Хочу ещё раз попробовать просить о помощи.
Нужно решить задачу, не успеваю уже :С
1. Вывести в виде таблицы значение функций у = х4, у = tgx, на отрезке [-5; 5] с шагом 0,1.
Заранее, спасибо.
Решение задачи: «Вывести в виде таблицы значение функций»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim x As Double, i As Long, h As Long, y1 As String, y2 As String, xs As String, dx As Long Me.AutoRedraw = True: Me.Font = "Verdana": Me.FontSize = 10: Me.DrawWidth = 2: Me.FillStyle = vbSolid: Me.Height = 9000 h = Me.TextHeight("0") + 60 x = -5 Do While x <= 5 If h * (i + 1) > Me.ScaleHeight Then i = 0: dx = dx + 3000 If i Then xs = Format(x, "0.0#") y1 = Format(x ^ 4, "###0.0##") y2 = Format(Tan(x), "###0.0##") x = x + 0.1 Else xs = "x": y1 = "y^4": y2 = "tan(x)" End If If i And 1 Then Me.FillColor = &HF4F4F4 Else Me.FillColor = &HE4E4E4 Me.Line (dx, i * h)-Step(1000, h), &HAAAAAA, B Me.Line -Step(1000, -h), &HAAAAAA, B Me.Line -Step(1000, h), &HAAAAAA, B Me.CurrentX = dx + 30: Me.CurrentY = h * i Me.Print xs;: Me.CurrentX = dx + 1030 Me.Print y1;: Me.CurrentX = dx + 2060 Me.Print y2 i = i + 1 Loop Me.Width = dx + 3090 + (Me.Width - Me.ScaleWidth) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д