Imports System

Public Module Module1

    Public Sub Main()

        Dim n1,n2, contador, total as integer

        n1 = 4

        n2 = 7

        contador = 0

        Do

            total = total + n2 'multiplicacion sumando

            contador = contador + 1 'cuantas veces he sumado

        Loop While(contador <> n1)

            Console.WriteLine(total)

    End Sub

End Module

​

​