Problemas de programación de VB 6.0

Problemas de codificación:

1. i = 0 dentro del bucle de n, i nunca será mayor que 1.

2. Es necesario redefinir la matriz c: redim

3. b(2) = Mid(Text1.Text, 7, 3): b(3) = Mid(Text1. Texto, 10, 3)

La matriz a tiene dos dígitos, mientras que b(2) y b(3) tienen tres dígitos. Estas dos matrices no se cruzarán exitosamente con a.

4. La definición de la matriz a se puede simplificar como: a=split("01,10,11,35,47,56,67,76,83,99",","), elimine las siguientes 3 oraciones:

Dim a(0 To 9) As String 'Definir una matriz incorporada

a(0) = "01": a(1) = 10: a( 2) = 11: a(3) = 35: a(4) = 47: a(5) = 56:

a(6) = 67: a(7) = 76 : a(8 ) = 83: a(9) = 99 'Asignar un valor a la matriz a

Subcomando privado1_Click()

Atenuar a(0 a 9) como cadena ' Definir una matriz incorporada

Dim b(0 To 3) As String 'La matriz ingresada en el cuadro de texto

Dim c() As String 'La intersección de la matriz a y array b

Dim m As Byte 'Define la variable de bucle de la matriz a

Dim n As Byte 'Define la variable de bucle de la matriz b

Dim i As Byte 'Define el número de elementos de la intersección c

a(0) = "01": a(1) = 10: a(2) = 11: a(3) = 35: a(4 ) = 47: a(5) = 56:

a(6) = 67: a(7) = 76: a(8) = 83: a(9) = 99 'Asigna un valor a matriz a

b(0) = Medio (Texto1.Texto, 1, 2): b(1) = Medio(Texto1.Texto, 4, 2):

b( 2) = Mid(Text1.Text, 7, 3): b (3) = Mid(Text1.Text, 10, 3) 'Asignar valor a la matriz b

i = 0

Para m = 0 a 9

Para n = 0 a 3

Si a(m) = b(n) entonces

ReDim Preserve c( i)

c(i) = a( m): i = i + 1: Salir para

Finalizar si

Siguiente n

Siguiente m 'Bucle para obtener la intersección c

Si UBound(c) + 1 >= 2 Entonces 'Obtener el número de elementos en la intersección c

Text2.Text = Puede ser ejecutado

End If

End Sub

Supongamos b(2) = Mid(Text1.Text, 7, 2): b(3) = Mid( Text1.Text, 10, 2), el programa se puede simplificar de la siguiente manera:

Private Sub Command1_Click()

Para i = 1 a 10 Paso 3

s = Mid(Texto1.Texto y espacio(20), i, 2)

If InStr(",01,10,11,35,47,56,67,76,83,99, ", "," & s & ","") > 0 Luego salga para

Text2.Text = IIf(

i > 10, "", "Se puede ejecutar")

End Sub