Posted By

inggy on 04/17/17


Tagged


Versions (?)

HPIII_VB


 / Published in: VB.NET
 

nO SÉ. ESA COSA QUE HAY QUE ENTREGAR

  1. Module Module1
  2.  
  3. Sub Main()
  4. 'Declaración de variables
  5. Dim dato1, dato2, resultado, suma, contador, acumulador As Integer
  6. suma = 0
  7. contador = 0
  8. acumulador = 0
  9. Dim resp As String
  10.  
  11. 'El programa se repetirá hasta que el usuario lo quiera
  12. Do
  13. Console.WriteLine("SUMATORIA DE DATOS")
  14. Console.Write("Dato 1: ")
  15. dato1 = Console.ReadLine()
  16. Console.Write("Dato 2: ")
  17. dato2 = Console.ReadLine()
  18.  
  19. resultado = dato1 + dato2
  20. Console.WriteLine(dato1 & " + " & dato2 & " = " & resultado)
  21.  
  22. acumulador += resultado
  23. contador += 1
  24.  
  25. Console.WriteLine("Desea continuar? ")
  26. resp = Console.ReadLine
  27. Console.Clear()
  28.  
  29. Loop While String.Compare(resp.ToUpper(), "SI") = 0
  30.  
  31. 'Muestra respuesta total y cantidad de veces que se repitió el loop
  32. Console.WriteLine("INFORME FINAL" & vbCrLf & "La sumatoria total es de: " & acumulador)
  33. If contador = 1 Then
  34. Console.WriteLine("Usted realizó " & contador & " vez el proceso." & vbCrLf & "Presione Enter para salir")
  35. Else
  36. Console.WriteLine("Usted realizó " & contador & " veces el proceso."& vbCrLf & "Presione Enter para salir")
  37. End If
  38.  
  39. Console.ReadLine()
  40. End Sub
  41.  
  42. End Module

Report this snippet  

Comments

RSS Icon Subscribe to comments
Posted By: Sfane on April 19, 2017

Wow, really nice. I like this.

You need to login to post a comment.