Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ex4
'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) 'Declaração de variaveis Dim n as integer Dim s as integer Dim v as integer Dim media as integer 'carregar variaveis n=5 s=0 v=3 'processamento Do until v>n s=s+v v+=1 media=s/n Loop 'impressão Console.WriteLine("A soma é igual a " & s) Console.WriteLine("A média é igual a " & media) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
gf
No Fear Shakespeare sonnet of the day
atribuição de salas (select case)
Math.Abs
valor maximo entre 3 numeros
Web application
Selected Poems of Rumi Dover Thrift Edition...day#doy~Poem#n
age
VB checking whether a date is between 2 dates
jjj