doisreal
-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por doisreal
-
-
Como os dados teriam que aparecer na 2º List ??
Por exemplo eu digito: 1, 2, 3, 4, 5, 6. Na 1º lista deve aparecer 1, 2, 3, 4, 5, 6. Já na 2º lista eles devem aparecer: 2,1,4,3,6,5, ou seja numeros pares em posiçoes impares.
Esse é meu codigo:
Dim vet(1 To 6) As Integer
Dim num As Integer
Dim cont As Integer
Dim par As Integer
Dim impar As Integer
par = 1
impar = 2
For cont = 1 To 6
num = Val(InputBox("Digite um nº", "Digitação", ""))
Do While num = 0
MsgBox "Numero inválido"
num = Val(InputBox("Digite um nº", "Digitação", ""))
Loop
vet(cont) = num
lst_1.AddItem vet(cont)
If (num Mod 2 = 0) Then
vet(par) = num
par = impar + 1
Else
vet(impar) = num
impar = par + 1
End If
Next
For cont = 1 To 6
lst_2.AddItem vet(cont)
Next
Com esse meu codigo a 2º lista aparece 2,3,4,5,6,6..... O que estou fazendo de errado ?
Acho que eu vou precisar de outra variavel pra acumular " "
Ou seja por exemplo eu digito só numeros pares: 2,4,6,8,10,12 aí na 2º lista temq aparecer 2, , 4, , 6, , 8, , 10, , 12........As posiçoes pares n recem numero nenhum porque eu n digitei nenhum numero impar.
-
Tenho que fazer um vetor que vai receber 60 numeros. Em uma listbox esses numeros iram aparecer na ordem que foram digitados. Na outra listbox os numeros pares apareceram nas posiçoes impares por exemplo se eu digitar : 1, 2, 3, 4 vai aparecer assim: 2,1,4,3.................obs: não pode ser digitado 0
alguém poderia me passar o codigo ?
Duvida Simples
em Visual Basic
Postado · Editado por doisreal
Tenho um codigo bem assim:
Dim valor As Integer
Dim result As Integer
valor = InputBox("Digite um valor", "Atenção", " ")
result = valor * 2
MsgBox "O dobro é "
Digamos que valor = 8, como eu faço pra exibir a seguinte mensagem : O dobro é 16(result) ???