Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Pregunta: | 61908 - HACER PERMUTACIONES EN GAMBAS |
| Autor: | Nisser Joan Olivo Arias |
| Saludos a todos los programadores... Amigos tengo un problemilla estoy realizando una aplicacion para loterias y estoy trabado en como realizar permutaciones he estado haciendo algo como esto pero cuando introduzco mas de 3 caracteres no me lo realiza por que creo que debo usar un for next pero no tengo idea de como hacer la estructura les dejo lo que he realizado para que alguno de Ustedes me pueda ayudar, gracias de antemano... PUBLIC SUB _new() END PUBLIC SUB Form_Open() ME.Center END PUBLIC SUB Button1_Click() DIM a AS String DIM b AS String DIM e AS String DIM c AS String c = Len(TextBox1.Text) IF c < "8" THEN a = Mid$(TextBox1.Text, 2, -1) b = Left$(TextBox1.Text, 1) e = Right$(TextBox1.Text, 1) TextBox3.Text = a & b & e TextBox4.Text = b & e & a TextBox5.Text = e & b & a TextBox6.Text = b & a & e TextBox7.Text = a & e & b TextBox8.Text = e & a & b TextBox2.Text = c ELSE Message.Error("Solo acepta 7 digitos") TextBox1.Clear ENDIF END | |