Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ex4
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
'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
Show compiler warnings
[
+
]
Show input
Compilation time: 0,77 sec, absolute running time: 0,31 sec, cpu time: 0,25 sec, average memory usage: 17 Mb, average nr of threads: 3, absolute service time: 1,11 sec
edit mode
|
history
|
discussion
A soma é igual a 12 A média é igual a 2