1
2
3
4
5
6
7
8
Option Explicit On
Option Strict Off
Option Infer Off
 
Public Class frmMain
 
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        'Clear boxes
 ...

1
 

1
2
3
4
5
6
7
8
9
Const CALFROM_FAT As Decimal = 9D
        Dim CALORIES As Decimal
        Dim NumbFatGrams As Decimal
        Dim PERCENT_CAL As Decimal
 
        If Decimal.TryParse(txtTotCalFood.Text, CALORIES) = False Then
            MessageBox.Show("Number of fat grams must be greater than zero. ", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
 ...

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                MsgBox("Hello World!!!")
        End Sub
End Class

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                MsgBox("Hello World
        End Sub
End Class

1
2
3
4
5
6
7
8
9
Module Module1
 
    Sub Main()
        Dim Count As Integer = 0
        Dim Total As Integer
        Dim Limit As Integer
        Console.WriteLine("In what number do you want the adding to stop?")
        Limit = System.Console.ReadLine
        While Count < Limit
 ...

1
2
3
4
5
6
7
8
9
Module Module1
 
    Sub Main()
        Dim Count As Integer = 0
        Dim Total As Integer
        Dim Limit As Integer
        Console.WriteLine("In what number do you want the adding to stop?")
        Limit = System.Console.ReadLine
        While Count < Limit
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
vestiaire central 

1
2
3
4
5
6
7
8
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim mdp As String = My.Resources.TextFile1
        Dim RandomNumber As New Random()
        Dim Tr As IO.TextReader = System.IO.File.OpenText("C:\passwords.txt")
        Dim FileLines() As String = Split(Tr.ReadToEnd(), vbCrLf)
        Tr.Close()
        Dim MyRandomLine As String = FileLines(RandomNumber.Next(0, UBound(FileLines)))
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine()
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine()
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine()
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
2
3
4
5
6
7
8
9
Imports System, Microsoft.VisualBasic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Diagnostics
Imports Microsoft.Win32
Imports System.Threading
 ...

1
2
3
4
5
6
Module
  Sub Main()
      MsgBox("Hello, World!") ' Display message on computer screen.
  End Sub
End Module
 

1
2
3
4
5
6
Module Hello
  Sub Main()
      MsgBox("Hello, World!") 
  End Sub
End Module
 

1
2
3
4
5
6
 
  Sub Main()
      MsgBox("Hello, World!")
  End Sub
End Module
 

1
2
3
4
5
6
Module Hello
  Sub Main()
      MsgBox("Hello, World!") ' Display message on computer screen.
  End Sub
End Module
 

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...