Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
الحاسوب
LinkedList
http://wataniaind.com/SitePages/HomePage.aspx
CAI Visual Basic - Ej Mundial
Hello
loop 2 (until)
bb
If Function returns not Nothing for DateTime
png
ex1 ficha nº2
Please log in to post a comment.