Public Class Form1 Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click Dim num, suma, i As Integer suma = 0 For i = 1 To 7 num = InputBox("Ingresar un numero : ") suma = suma + num ListBox1.Items.Add(num) Next txtresultado.Text = suma End Sub
Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click Me.Close() End SubEnd Class
Aqui esta el programa, esta en visual basic 2013 Es un archivo rar. https://app.box.com/s/7r8hjug9td1g9n3hqn0o5cqbojk1zls7
Según el ejercicio que pide.
Código visual basic 2013
----------------------------------------------------------------------------
Public Class Form1 Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
Dim num, suma, i As Integer
suma = 0
For i = 1 To 7
num = InputBox("Ingresar un numero : ")
suma = suma + num
ListBox1.Items.Add(num)
Next
txtresultado.Text = suma
End Sub
Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
Me.Close()
End SubEnd
Class
Aqui esta el programa, esta en visual basic 2013
Es un archivo rar.
https://app.box.com/s/7r8hjug9td1g9n3hqn0o5cqbojk1zls7
Saludos..