Compreender como loops de trabalhar em Visual Basic 6 ( VB6 ) é importante porque permite executar blocos de código repetidamente. Os dois principais tipos de loops são "para " e loops " fazer" . Um laço "for" é uma versão abreviada de um loop "do" que é usado quando o número de iterações é conhecido de antemão. Alguns usos de um loop está lendo em linhas de um arquivo , imprimir o nome de todos a partir de uma lista de funcionários e triagem através de uma matriz em busca de um valor específico. Instruções
1

Abra o arquivo de origem no Visual Basic 6
2

Adicione um laço "for" , digitando o seguinte código na sua função: .

Dim x As Integer

Dim contagem As Integer

x = 0

Para count = 1 ao 6 Passo 2

x = x + 2 < br >

seguida

um loop "para" é constituído por um contador , o conjunto de contador , um passo e os comandos a serem executados durante cada iteração . O argumento de "step" define o quanto o contador aumentará entre iterações. Se você omitir a palavra-chave "step" é definido com o valor padrão de 1. No exemplo, durante a primeira iteração , "contar" é igual a 1 e "X" é definido como 2 (0 +2) . Na segunda iteração " contar" é definido para 3 e "X" é definido como 4 (2 +2)

Se você quiser fazer um loop através de uma lista em vez disso, adicione o seguinte código : .

MyColors Dim (2) as String

Dim cor corda

MyColors (0) = "Blue"

MyColors (1) = "Green "

MyColors (2) = "Yellow"

para cada cor Em MyColors

Debug.Print cor

Próxima

O loop itera para cada valor na lista , que normalmente é uma matriz ou coleção . A variável de iteração , "cor ", deve ser do mesmo tipo que os elementos da lista
3

Adicione um " não " laço , digitando o seguinte código: .

Dim x as Integer

x = 0

Do While x <10

x = x + 2

loop

o loop mantém a iteração enquanto a condição após a palavra-chave "Do" é satisfeita. A condição é verificada no início , antes de cada nova iteração . Alternativamente, você pode configurá-lo para repetir até que uma condição seja cumprida , adicionando o seguinte código:

Faça

X = X ​​+ 2

Loop Until X > 10

um " loop até que " a estrutura a condição é verificada após o final de cada iteração . Se você quiser sair do loop antes de a condição for atendida , adicione " Exit Do " dentro do seu loop.
4

Salve o arquivo VB6, compilar e executar o programa para ver o seu loop.