Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Me3.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) 'Your code goes here Dim rnd as New Random Dim Mood as integer = rnd.Next(1,6) If Mood = 1 then Console.WriteLine("âšī¸") Console.WriteLine("your ME is unhappy") End If If Mood = 2 then Console.WriteLine("đ¤") Console.WriteLine("Your ME is sick") End If If Mood = 3 then Console.WriteLine("đ") Console.WriteLine("Your ME is bored") End If If Mood = 4 then Console.WriteLine("đ") Console.WriteLine("your ME is happy") End If If Mood = 5 then Console.WriteLine("â ī¸") Console.WriteLine("your ME is dead") End If End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
Arraylist Order by string array or comma delitmited string in vb.NET
No fear Shakespeare - sonnet of the day
No Fear Shakespeare sonnet of the day
exercicio 3
ex1 ficha nº2
VBA
VB checking whether a date is between 2 dates
gf
CAI - Visual Basic - Libreria de funciones
jjj