1
 clic en "Inicio " de Windows , seguido de " Editor de secuencias de comandos de Microsoft Visual Basic " 
 2 
 Escriba el siguiente código en la ventana abierta : . 
 < p> Sub ChkFirstWhile () 
 
 contador Dim , myNum 
 
 contador = 0 
 
 myNum = 20 
 
 Do While myNum > 10 
 < p> myNum = myNum - 1 
 
 contador = contador + 1 
 
 Loop 
 
 
 
 MsgBox " El bucle realizó " y de venta libre y " repeticiones ". End Sub 
 
Sub DoMyProc50Times ( ) guía
 Dim x 
 
 Para x = 1 a 50 
 
 MyProc 
 
 Siguiente 
 < p> MsgBox " El bucle se repite 50 veces. " 
 
 End Sub 
 
 Sub cmdChange_OnClick 
 
 Dim d 'Crear una variable 
 
 Set d = CreateObject ( " Scripting.Dictionary " ) 
 
 d.Add " 0 " , "Grecia " 'Agregar algunas claves y elementos 
 
 d.Add " 1 ", " Francia " 
 
 d.Add " 2 ", " España " 
 
 para cada i en d 
 
 Document.frmForm.Elements ( I). Valor = D.Item ( I) 
 
 Siguiente 
 
 MsgBox " El bucle se repite ' + D + " veces. " 
 
 End Sub 
 3 
 clic en" Archivo "y luego" Guardar " para aplicar el script VBS código de la aplicación . 
 
 
          
