Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Project Euler 1
'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) Dim sum as Integer = 0 Dim n as Integer = 1 While n < 1000 if n Mod 3 = 0 Or n Mod 5 = 0 Then sum += n End If n += 1 End While Console.Writeline(sum) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
String
Expand Treeview Job Entry Epicor - VB
bb
exercicio 2 2019 11 11
Black Jack
Selected Shakespeare Sonnet for doy mod 150
CAI Visual Basic - Ej Mundial
Declaração de Variaveis
ok
5