Baixe o app para aproveitar ainda mais
Prévia do material em texto
Exercicio 1 //Faça um programa que recebe um numero X como valor central e mostre em uma lista, em seguida faça um looping onde o mesmo só terminará quando a soma dos 2 últimos valores forem iguais a X e mostre os valores a cada rodada do looping. Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim x, num1, num2 As Integer x = InputBox("Informe um numero X:", "Leitura de um numero X") num1 = 0 num2 = 0 While (num1 + num2 <> x) num1 = InputBox("Informe um numero:", "Leitura de um numero") num2 = InputBox("Informe outro numero:", "Leitura de um numero ") ListBox1.Items.Add(CStr(num1)) ListBox1.Items.Add(CStr(num2)) End While MsgBox("A soma dos 2 ultimos numeros e igual a " + CStr(x) + " com isso o looping termina!") ListBox1.Items.Add(CStr(num1 + num2)) End Sub End Class Exercicio 2 //Faça um Programa que informe um número inteiro e como resultado mostre o quadrado desse número ou o quadrado mais próximo dele Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, num1, num2 As Integer n = CInt(InputBox("Informe um numero inteiro positivo:", "Leitura do numero inteiro")) While (num1 * num2 < n) num1 = num1 + 1 num2 = num2 + 1 End While If (num1 * num2 = n) Then MsgBox("O quadrado mas proximo de " + CStr(n) + " e " + CStr(num1 * num2)) Else num1 = num1 - 1 num2 = num2 - 1 MsgBox("O quadrado mas proximo de " + CStr(n) + " e " + CStr(num1 * num2)) End If End Sub End Class Exercicio 3 //Faça um programa que peça um valor n e faça o fibonnaci de N ate 1. Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, i, novovalor, anterior, atual As Integer n = CInt(InputBox("Informe a quantidade de veses do Fibonnaci ", "Leitura do numero")) anterior = CInt(InputBox("Informe o 1º numero do Fibonnaci:", "Fibonnaci")) atual = CInt(InputBox("Informe o 2º numero do Fibonnaci:", "Fibonnaci")) ListBox1.Items.Add(CStr(anterior)) ListBox1.Items.Add(CStr(atual)) novovalor = anterior + atual For i = 1 To n ListBox1.Items.Add(novovalor) anterior = atual atual = novovalor novovalor = anterior + atual Next End Sub End Class Exercicio 4 //Faça um programa que leia um número N e e um numero inteiro que deverá ser lido de 1 ate N vezes e verificar quem é o maior numero de todas as N vezes que o looping acontecer, em seguida mostre e maior valor. Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, i, valor, anterior, atual, maior As Integer n = CInt(InputBox("Informe a quantidade de veses", "Leitura do numero")) atual = 0 For i = 1 To n valor = InputBox("Informe um valor inteiro:", "Valor") anterior = atual atual = valor If (anterior > atual) Then maior = anterior Else maior = atual End If Next MsgBox("O maior valor da lista e " + CStr(maior)) End Sub End Class Exercicio 5 //Faça um programa que leia um letra enquanto a letra z não for achada, assim que achar a letra z o programa deve ser terminado. Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim letra As String = "" While (letra <> "z") letra = InputBox("Informe uma letra de A ate Z:", "Leitura de letras") ListBox1.Items.Add(letra) End While MsgBox("Letra (Z) achada!!") End Sub End Class
Compartilhar