[VB6] Ajuda num prog

[caloiro]

sou burro e caloiro. preciso de fazer um programa até 5f..

Programa(visual basic):

pedir ao utilizador 2 valores, num max e num min.

escrever todos os numeros compreendidos entre estes dois(num inclusive).

e no fim mostrar quantos destes valores sao pares..

agradecia uma Santa ajuda..

obrigado..

[Hipnoted]

Bem-vindo ao fórum caloiro! 🙂

sou burro e caloiro.

Lol, se tu o dizes...😛

É assim, coloca entre uma tag a versão do Visual Basic, para que as pessoas que realmente percebem te possam ajudar. Ex: [VB] ajuda num programa

[Preatorian]

Vendo-te esse programa 😛

[NuGuN]

bem...

Crias duas caixas de texto(text1 e text2) a text1 é para o num min e a text2 para o num max e uma listbox para os resultados. Depois podes a nivel de código fazes o seguinte.

dim i as integer
dim varCount as integer
dim arrayVal() as integer

for i = val(text1.text) to val(text2.text)
     if (i mod 2) = 0 then
          redim preserve arrayval(varCount)
          arrayval(varCount) = i
          list1.additem arrayval(varCount)
          varCount = varCount + 1
    end if
next i

Este código metes no evento de um botão p exemplo. Caso não saibas, um evento de um botão é aquela coisa que aparece quando fazes double click emcima de um botão, aparece kk coisa do tipo -> private sub command1_click()

                               

                                                        end sub

este código metes entre essas 2 linhas  😛

Cumps

[NuGuN]

Para essa alteração basta adicionares outra listbox (list2)

e depois fica assim:

dim i as integer
dim varCount as integer
dim arrayVal() as integer

for i = val(text1.text) to val(text2.text)
     if (i mod 2) = 0 then
          redim preserve arrayval(varCount)
          arrayval(varCount) = i
          list1.additem arrayval(varCount)
          varCount = varCount + 1
    end if
    list2.additem i
next i

Cumps

[Diogo Paulino]

Boas,

Sou um novato de um curso de programação.

Estou no 1º ano e começei a trabalhar com o VB.net.Mas talvez conseguisse resolver o programa 😉

Chamo-me Diogo Paulino tenho 16 anos.

Abraço 4 all

[rafael_276]

Boas,

N sei se ja resolveste o problema mas para o que tu queres axu k sera axim +/- Para VB .NET:

dim arrayVal(0) as integer
dim kt_de_ns_pares as integer

for i as integer = val(text1.text) to val(text2.text)
     redim preserve arrayval(i)
     arrayval(i) = i
     list1.Items.additem()
     if (i mod 2) = 0 then
         kt_de_ns_pares += 1
    end if
next

text1.text == Nº minimo

text2.text == Nº Maximo

kt_de_ns_pares == Quantos nºs sao pares

list1== Listbox kom todos os nºs entre text1.text e text2.text

Cumprimentos,

Akaru