Programa vb de la academia

'Simplemente agregue un comando

Private Sub Command1_Click()

Atenuar a(1 a 5) como único, b(1 a 5) como único

Cls

Para k = 1 A 5

a(k) = k ^ 2 4 * k 1

b(k) = k ^ 2 1

p = p amp; a(k) amp; ","

q = q b(k) amp; ","

Siguiente< / p>

Imprimir "El primer conjunto de números:" amp LTrim(Left(p, Len(p) - 1))

Imprimir "El segundo conjunto de números:" LTrim( Left (q, Len(q) - 1))

Imprimir "Los primos entre sí son:"

Para i = 1 a 5

Para j = 1 a 5

Si hz_sd(a(i), b(j)) = Verdadero entonces

Formato de impresión(a(i), "@@") amp; con " amp; Format(b(j), "@@")

Finalizar si

Fin Sub

Función pública hz_sd(ByVal m como único, ByVal n como único) como booleano

Si m lt n entonces

t = m：m = n; ： n = t

End If

r = m Mod n

m = n

n = r

Bucle hasta r = 0

Si m = 1 entonces

hz_sd = True

De lo contrario

hz_sd = False

Finalizar si

Finalizar función

Finalizar si

Fin