Você está aqui: VB.NET ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como testar se um valor está contido em algum dos elementos de um array usando um predicateQuantidade de visualizações: 13659 vezes |
'Este exemplo mostra como verificar se um valor 'existe em algum dos elementos de um array usando 'um predicate Module Module1 Sub Main() ' cria um array de strings Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _ "São Paulo", "Florianópolis"} 'verifica se o valor "Cuiabá" está contido em algum 'dos elementos do array. Lembre-se que a string a 'ser comparada está codificada no predicate If Array.Exists(cidades, AddressOf Existe) Then Console.WriteLine("O valor existe em algum dos elementos") Else Console.WriteLine("O valor não existe nos elementos") End If Console.ReadKey() End Sub 'predicate usado para verificar se o valor existe em algum 'dos elementos do array Private Function Existe(ByVal str As String) As Boolean If str.Equals("Cuiabá") Then Return True Else Return False End If End Function End Module |
![]() |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Laços |
Exercícios Resolvidos de VB.NET - Um laço for que solicita ao usuário 10 números inteiros e mostra o menor e o maior valor informadoQuantidade de visualizações: 493 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET que usa o laço for para solicitar ao usuário que informe 10 números inteiros. Em seguida mostre o maior e o menor valor lido. Não é permitido usar vetores ou matrizes (arrays). Sua saída deve ser parecida com: Informe o 1º valor: 5 Informe o 2º valor: 1 Informe o 3º valor: 20 Informe o 4º valor: 6 Informe o 5º valor: 3 Informe o 6º valor: 4 Informe o 7º valor: 7 Informe o 8º valor: 12 Informe o 9º valor: 9 Informe o 10º valor: 8 O maior valor lido foi: 20 O menor valor lido foi: 1 Veja a solução comentada deste exercício usando a linguagem VB.NET: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim valor As Integer ' guarda o valor lido Dim maior, menor As Integer ' variáveis que guardarão ' o maior e o menor valor lido ' vamos pedir ao usuário que informe 10 valores inteiros For i As Integer = 1 To 10 Step 1 Console.Write("Informe o " & i & "º valor: ") valor = Integer.Parse(Console.ReadLine()) ' esta é a primeira iteração do laço? se for vamos assumir que o ' maior e menor valor lido são o primeiro valor informado If i = 1 Then maior = valor menor = valor Else ' não é a primeira iteração ' vamos verificar se é maior que o valor atual da variável maior If valor > maior Then maior = valor End If ' vamos verificar se é menor que o valor atual da variável menor If valor < menor Then menor = valor End If End If Next ' vamos exibir o maior e o menor valor lido Console.WriteLine(vbCrLf & "O maior valor lido foi: " & maior) Console.WriteLine("O menor valor lido foi: " & menor) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
VB.NET ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como copiar todos os elementos de um vetor para outro em VB.NET usando o método CopyTo() da classe ArrayQuantidade de visualizações: 7196 vezes |
Nesta dica eu mostro como podemos usar o método CopyTo() da classe Array do VB.NET para copiar todos os elementos de um array para um outro array. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' cria um array de inteiros Dim valores() As Integer = {1, 2, 3, 4, 5} ' exibe os valores do primeiro array For Each valor As Integer In valores Console.WriteLine(valor) Next ' cria um segundo array e copia os elementos ' do primeiro para o segundo Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20} valores.CopyTo(valores2, 0) Console.WriteLine() ' exibe os valores do segundo array For Each valor As Integer In valores2 Console.WriteLine(valor) Next Console.WriteLine("\nPressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: 1 2 3 4 5 1 2 3 4 5 15 20 |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Exercício Resolvido de VB.NET - Um programa VB.NET que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundosQuantidade de visualizações: 455 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundos. Seu programa deverá exibir uma saída parecida com: Informe a duração do evento em segundos: 3712 Duração do evento: 01:01:52 Veja a resolução comentada deste exercício usando VB.NET: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program ' função principal do programa VB.NET Sub Main(args As String()) ' vamos solicitar a duração do evento em segundos Console.Write("Informe a duração do evento em segundos: ") Dim duracao_segundos As Integer = Int32.Parse(Console.ReadLine()) ' vamos obter a quantidade de horas do evento Dim horas As Integer = duracao_segundos \ 3600 ' vamos obter os minutos Dim minutos As Integer = (duracao_segundos \ 60) Mod 60 ' vamos obter os segundos restantes Dim segundos As Integer = duracao_segundos Mod 60 ' vamos exibir a duração do evento em horas, minutos e segundos Console.Write("Duração do evento: {0}:{1}:{2}", horas.ToString("D2"), minutos.ToString("D2"), segundos.ToString("D2")) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
Ruby - Exercício Resolvido de Ruby - Como percorrer os elementos de um array em Ruby usando a função each |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
1º lugar: Java |