Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir una bola de dos colores en vb con 6 garantías y 5 encogimientos?

¿Cómo escribir una bola de dos colores en vb con 6 garantías y 5 encogimientos?

'vb escribe bola de dos colores con 6 garantías y 5 contracción

Private Sub Command1_Click()

Dim b(), iamp;, jamp;, kamp;, iiamp ;, jjamp;, camp;, numamp;()

a = Split(Text1, vbCrLf)

k = UBound(a)

Si no es numérico (a(k)) Entonces k = k - 1

ReDim b(k, 5)

Para i = 0 To k

Para j = 0 a 5

b(i, j) = Split(a(i), " ")(j)

ReDim num(0)

num(0) = 0

Para i = 1 a k

Para j = 0 a UBound (num)

c = 0

Para ii = 0 a 5

Para jj = 0 a 5

Si b(i , ii) = b(num(j), jj) Entonces c = c 1

Si c gt = 5 Entonces salga por;

Si j = UBound(num) 1 Entonces

ReDim Preserve num(j)

num(j) = i

Finalizar si

Texto1 = ""

Para i = 0 a UBound(num) - 1

Texto1 = Texto1 amp; a(num(i)) amp; p>

Fin Sub