Red de conocimiento informático - Problemas con los teléfonos móviles - VB6.0 Crear imagen de función Por favor, ayúdame a escribir el código y dármelo, gracias~.

VB6.0 Crear imagen de función Por favor, ayúdame a escribir el código y dármelo, gracias~.

9 a 9

Me.Line (e * g / 10, 0.2 * h / 10) - (e * g / 10, 0), QBColor(2)

Me. Línea (0.2 * g / 10, e * h / 10) - (0, e * h / 10), QBColor(2)

Siguiente e

Para X1 = -1 A 1 Paso 0.0001

Y1 = Sqr(1 - X1 ^ 2) Abs(X1) ^ (2 / 3)

Me.PSet (X1, Y1)

Y1 = -Sqr(1 - X1 ^ 2) Abs(X1) ^ (2 / 3)

Formato Me.Print(u * h / 5, "0.0##") p>

Me.CurrentX = u * g / 5 - 0.2 * g / 3

Me.CurrentY = -0.1 * h / 5

Formato Me.Print (u * g / 5, "0.0##")

Siguiente u

Para u = 1 a 4

Me.CurrentX = -0.6 * g / 5

Me.CurrentY = u * h / 5 0.1 * h / 3

Me.Print Format(u * h / 5, "0.0##"

Me .CurrentY = -0.1 * h / 5

Me.Formato de impresión(u * g / 5, "0.0##")

Siguiente u

Me.CurrentX = -0.05 * g

Me.CurrentY = -0.02 * h

Me.>

Me.Print "x"

Me.Line (0, h)-(0.1, 0.98 * h), QBColor(2)

Me.Line (0, h)-(-0.1, 0.98 * h) , QBColor(2)

Me.Line (g, 0)-(0,98 * g, 0,1), QBColor(2)

Me.0.1), QBColor(2 )

Me.Line (g, 0)-(0,98 * g, -0,1), QBColor(2)

End Sub