Ajuda com programa simples Visual Basic

22/10/2016

0

VB

Olá, sou novato no VB e não estou conseguindo resolver um exercício de um livro. É o seguinte:

Faça um pequeno programa que continuamente peça um número inteiro para o usuário até que ele digite o número zero, com o qual ele deve encerrar. A cada vez que pedir um número, ele deve somar ao saldo anterior e exibir o resultado na tela. Use uma sub-rotina "soma" e uma variável declarada no escopo do módulo para acumular o valor em seu programa.


Module Module1

    Sub Soma()
        Dim Número, Soma, Chute As Integer
        Número = 0

        WriteLine("Digite um Número")
         Write.Read (Chute) 
        Do
            If (Chute <> Número) Then
                Soma = Soma + Chute
                Console.WriteLine("Errado!, Soma é ", Soma)
                Console.ReadLine()
            End If
        Loop Until (Chute = Número)

        If (Chute = 0) Then
            Console.WriteLine("Certo! e soma é", Soma)
            Console.ReadLine()

        End If
        Return (Soma é Soma , soma)




    End Sub



    Sub Main()


        Console.WriteLine()
        Console.ReadLine()

    End Sub




End Module


Desenvolvi até aqui e não tentei compilar, pois tem erros. Se alguém puder ajudar, agradeço.
Adriano Freitas

Adriano Freitas

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar