Вывести в виде таблицы значение функций - 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

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


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

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

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