¿Cómo escribir las funciones trigonométricas de Yang Hui usando VB?
Función pública zuhe(ByVal u As Long, ByVal d As Long) As Long
Dim i, a, b As Long
a = 1
b = 1
dd = d - u 1
Para i = d Para dd Paso -1
a = a * i
Siguiente
Para i = u al 1 Paso -1
b = b * i
Siguiente
zuhe = a / b
Función final
La función final en el código objeto responde al evento del botón, que mostrará el triángulo Yang Hui en el formulario. Si cambia el 10 en el bucle i a otro número, puede mostrar un número diferente de capas
Private Sub Command1_Click()
Dim s As String
Dim i, j siempre que
Para i = 1 a 10
Para j = 0 a i
s = s Str(zuhe(j, i ))
Siguiente
Imprimir s
s = ""
Siguiente
Fin Sub
Matemáticas de secundaria enseña el teorema del binomio. Se puede resolver aplicando el conocimiento de permutaciones y combinaciones. La función zuhe() se utiliza para calcular el número de combinaciones de d en u. No entiendo. Tomemos prestado un libro y leamos el contenido del segundo año de secundaria.