¿Cómo escribir el código para combinar elementos entre matrices VB?
Opción explícita
Tratar A(5) como un número entero, B(6) como un número entero, C(7) ) como entero
Dim I es un número entero, J(6) es un número entero
Ajuste Zs al doble de precisión
Private subform_Load()
Formulario 1. AutoRedraw = True
Hacer irregularidades
Llamar a Shuru(A(), 5, "A")
Llamar a Shuru(B(), 6, "B ")
Llamar a ShuRu(C(), 7,"C")
Llamar a ZuHe
Para I = 1 a 5
Imprimir A(uno);
Luego
Imprimir
Para I = 1 a 6
imprimir B(uno);
Luego
imprimir
Para I = 1 a 7
imprimir C(uno);
p>
Entonces
Zs = 0
J(1) = 1
hacer Mientras J(1) lt = 5
hacer Mientras J(2) lt；= 5
J(3) = J(2) 1
hacer Mientras J(3) lt;= 6
J(4) = 1
hacer Mientras J(4) lt;= 5
J(5 ) = J(4) 1
hacer Mientras J(5) lt；= 6
J(6) = J(5) 1
hacer Mientras J( 6) lt;= 7
Zs = Zs 1
Llamar Px
J(6) = J(6) 1
Anillo
J(5) = J(5) 1
Anillo
J(4) = J(4) 1
Anillo
J(3) = J(3) 1
Anillo
J(2) = J(2) 1
Anillo
J(1) = J(1) 1
Anillo
Depuración. Imprimir "Completo, * * *Hay:" Str(Zs); "Grupo"
Conector final
Sub ShuRu(M() es un número entero, N es un número entero, S es una cadena de caracteres)
Dim St As String
Para I = 1 a N
M(I) = Int(Rnd * 100 1)
Hacer
St = InputBox("Por favor ingrese"; S&P.
"(" ampN amp") el primer "número" de la matriz; i amp "elemento", "entrada", M(I)
Bucle hasta la traducción (St)
M (I) = Val(St)
Luego
Conector final
La traducción de la función (en forma de cadena) es un valor booleano
Dim L es un número entero e I es un número entero
L = Len(A)
Si i lt gt entonces 0
Para I = 1 a L
Si Asc(Mid(A, I, 1)) lt; o Asc(Mid(A, I, 1)) gt entonces 57
Translation=False
Salir para...
Otro
Translation=True
Terminará si...
Si Val(A) = 0, entonces Pan = False
Entonces
Otros
Pan = False
Si... así será end
Función final
Subpixel()
Dim L(6) es un número entero, K es un número entero
L(1 ) = A(J(1))
L(2) = B(J(2))
L(3) = B(J(3))
L(4) = C(J(4))
L(5) = C(J(5))
L(6) = C(J (6))
Para I = 1 a 5
Para K = I 1 a 6
Múltiples actividades
Si L( I)>L(K) entonces
L(0) = L(I)
L(I) = L(K)
L(K ) = L(0)
p>Terminará si...
Entonces
Entonces
Depurar. Imprimir Zs;
Para I = 1 a 6
Depurar. Imprimir L(I);
Luego
depurar. Imprimir
Fin de montaje
¡Ya está lleno!