Microsoft Visual Basic Script (VBS) linguagem permite aos usuários adicionar funções adicionais para as suas aplicações de janelas . Ele também lhe dá a capacidade para repetir a execução de script VBS quando você precisa para executar um grupo de instruções VBS repetidamente. Você pode repetir as declarações até que uma condição é verdadeira ou declarações falsas ou repetir um número específico de vezes. As instruções de loop em scripts VBS ajudá-lo a adicionar opções adicionais para aplicações do Windows. Instruções
1

Clique em "Iniciar " no Windows , seguido de " Script Editor Microsoft Visual Basic"
2

Digite o seguinte código na janela aberta : .

Sub ChkFirstWhile ()

Dim contador , myNum

contador = 0

myNum = 20

Do While myNum > 10

myNum = myNum - 1

contador = contador + 1

loop

MsgBox " . O laço feito ' e contador e' repetições "

End Sub

Sub DoMyProc50Times ()

Dim x

Para x = 1 To 50

MyProc

Próxima

MsgBox " O ciclo se repete 50 vezes . "

End Sub

Sub cmdChange_OnClick

Dim d 'Criar uma variável

Defina d = CreateObject ( " Scripting.Dictionary " )

d.Add " 0", " Grécia " 'Adicionar algumas chaves e itens

d.Add " 1", " França "

d.Add "2 ", " Espanha "

para cada i em D

Document.frmForm.Elements (I) . Valor = D.Item (I)

Próxima

MsgBox " O ciclo repete '& d & " vezes. "

End Sub
3

clique em" Arquivo "seguido de" Salvar " para aplicar o script VBS código em sua aplicação.