Uso de la declaración do hasta en VB
Private?Sub?Command1_Click()
¿Atenuar?n?As?Long,?i?As?Long
Atenuar?n2?As?Long,?n3?As?Long
¿Atenuar?n4?As?Long,?n5?As?Long
Atenuar?n6?As?Long
i?=?p>
Dim?n6?As?Long
i?=?100000
Do
n2?=?i?\?10000
n3?=?i?\?1000
n4.=?i?\?100
n5?=?i?\?10
Si?=?0?Y?n3?Mod?3?=?0?Y?_
n4?Mod?8?=?0?Y?n5?Mod?5?=? 0?Y?_
i?Mod?6=?0?Entonces
Imprimir?i;
n?=?n? p>
¿Fin?Si
i?=?i?1
¿Bucle?Hasta?n?gt；?9
Imprimir
¿Fin?