exercicio 2 2019 11 11, Visual Basic

exercicio 2 2019 11 11

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
                dim x as integer=1
                dim y as integer=1
                dim s as decimal
                dim sequencia_x as integer=12
                dim sequencia_y as integer=12
                dim valor_maximo as integer=45
                console.writeline( "(" & x & "/" & y & ")")
            'processo
               do until y=valor_maximo
                s=s+(x/y)
                 x=x+sequencia_x
                 y=y+sequencia_y
                 console.writeline( s )
                console.writeline( "(" & x & "/" & y & ")")
               loop
                console.writeline( "s=" & s)
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development