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 .