Planificación de escala

Subformulario privado_Click()

Dígitos decimales (-300, 200)-(300,-200)

Fila (0, 200)-( 0,-200)

Línea (-300, 0)-(300, 0)

r1 = 150

r2 = 190

Para i = 0 a 360, el tamaño del paso es 0,01

a = i * 3,14 / 180

x = r1 * Sin(a)

y = r2 * Cos(a)

PSet (x, y)

Siguiente I

Finalizar montaje

2.

Subcomando privado 1_Click()

Dim a (1 a 8) es un número entero

Imagen 1. Imprimir "La matriz original es";

Para i = 1 a 8

a(I)= Int(Rnd * 21)+10

Si i = 1, entonces

j = 1

Otros

Si a(j)>a(i) entonces j = i

Si...se acabará

Foto 1. Imprime un(uno);

Luego

Imagen 1. print vbCrLf & "la nueva matriz es"

t = a(1):a(1)= a(j):a(j)= t

Para i = 1 a 8

Imagen 1. Imprime un(uno);

Luego

Conector final

3.

Subcomando privado 1_Click()

Dim a (1 a 10) es un número entero

Imagen 1. Imprimir "La fracción es:"

Para i = 1 a 10

a(i) = Int(Rnd * 101)

Suma = suma + a (i)

Imagen 1. Imprime un(uno);

Luego

Imagen 1. print vbCrLf & "puntuación promedio = "suma/10

Imagen 1. Imprime "Por encima del promedio:"

Para i = 1 a 10

Si a(i)>Suma / 10 entonces dibuja 1. Imprime uno, un(uno)

Luego

Finalizar conector