(Resolvido) For e Do While (Resolvido)

[casrtroo]

Primeiro post aqui se estiver alguma coisa errada n saia xingando, avise valeo XD

então... eu estou com duvidas em programaçao no VB 06 com do while a proposta é a seguinte:

Desenvolva um programa que exiba todos os números pares em um intervalo entre 0 e um número digitado pelo usuário.

eu consigo fazer o mesmo com For mas com Do estou tendo dificuldades

com for eu fiz da seguinte forma:

lstConta.Clear
For a = 0 To txtB.Text
If a Mod 2 = 0 Then
lstConta.AddItem a
End If
Next

e no do while

a = 0
b = txtB.Text
lstConta.Clear

Do While a <= b
If a Mod 2 = 0 Then
lstConta.AddItem a
End If
a = a + 1

Loop

estou tendo dificuldade acho q em colocar o if juntamente com o do while...

algm consegue me ajudar?

obrigado XD

Editado Fevereiro 17, 2011 por casrtroo
tags code

[Matheus-vb6]

Castro do tecnico, você por aqui cara?:D

Seja bem vindo ao fórum :D

Exercicio 3 dos 8 de revisao =p

Fica assim com do while:

Dim a As Single
a = Val(txtnumero.Text)
b = 0
Do While b <= a
If b Mod 2 = 0 Then
LstTabuada.AddItem b
End If
b = b + 1
Loop

O seu código não funcionou?

A olho eu não vi nenhum erro...

mas segue ai

Abraços cara :D

edit --

Cara, acho q o erro provavelmente é que na linha " b = txtB.Text" você não declaro que é um valor, val(Txtb.text)

Abraços

Editado Fevereiro 17, 2011 por Matheus-vb6

[raphael_suporte]

qual o erro que está ocorrendo, acho que um problema pode ser que você está comparando numero com texto, tente converter o textB para inteiro, isso pode evitar alguns problemas

a = 0
b = CInt(txtB.Text)
lstConta.Clear

Do While a <= b
    If a Mod 2 = 0 Then
        lstConta.AddItem a
    End If
    a = a + 1
Loop

[casrtroo]

opa,

então... o que faltava mesmo era declarar B como variavel numerica

b = val (txtB.text)

agora funcionou certinho

Brigadao a todos