Premier contact avec VB.Net
| Premier contact avec VB.Net
 
 Réponse:
Module PremierProgramme
    Sub Main()
        System.Console.WriteLine("Bonjour")
        System.Console.WriteLine("Riadh!")
    End Sub
End Module
Réponse:
Module PremierProgramme
    Sub Main()
         System.Console.WriteLine(12+13)
    End Sub
End Module
Réponse:
Module PremierProgramme
    Sub Main()
         System.Console.WriteLine(24/5)
    End Sub
End Module
Réponse:
Module PremierProgramme
    Sub Main()
        System.Console.WriteLine(-1 + 3 * 5)
        System.Console.WriteLine((24 + 5) % 7)
        System.Console.WriteLine(15 + -4 * 6 / 11)
        System.Console.WriteLine(2 + 10 / 6 * 1 - 7 % 2)
    End Sub
End Module
Réponse:
Module PremierProgramme
    Sub Main()
        Dim nombre1 As Integer
        Dim nombre2 As Integer
        Dim multiplication As Integer
        System.Console.WriteLine("Entrer 1er numéro")
        nombre1 = System.Convert.ToInt32(System.Console.ReadLine())
        System.Console.WriteLine("Entrer 2eme numéro")
        nombre2 = System.Convert.ToInt32(System.Console.ReadLine())
        multiplication = nombre1 * nombre2
        System.Console.WriteLine("La multiplication est:")
        System.Console.WriteLine(multiplication)
    End Sub
End Module
 Réponse:
Module Exercice6
    Sub Main()
        Dim nombre1 As Integer, nombre2 As Integer, nombre3 As Integer
        Console.Write("Entrez le premier numéro à multiplier: ")
        nombre1 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez le deuxième nombre à multiplier: ")
        nombre2 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez le troisième nombre à multiplier: ")
        nombre3 = Convert.ToInt32(Console.ReadLine())
        Dim resultat As Integer = nombre1 * nombre2 * nombre3
        Console.WriteLine("Résultat: {0} x {1} x {2} = {3}", nombre1, nombre2, nombre3, resultat)
    End Sub
End Module
 Réponse:
Module Exercice7
    Sub Main()
        Console.Write("Entrez un nombre: ")
        Dim nombre1 As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez un autre numéro: ")
        Dim nombre2 As Integer = Convert.ToInt32(Console.ReadLine())
        Console.WriteLine("{0} + {1} = {2}", nombre1, nombre2, nombre1 + nombre2)
        Console.WriteLine("{0} - {1} = {2}", nombre1, nombre2, nombre1 - nombre2)
        Console.WriteLine("{0} x {1} = {2}", nombre1, nombre2, nombre1 * nombre2)
        Console.WriteLine("{0} / {1} = {2}", nombre1, nombre2, nombre1 \ nombre2)
        Console.WriteLine("{0} mod {1} = {2}", nombre1, nombre2, nombre1 Mod nombre2)
    End Sub
End Module
Réponse:
Module Exercice8
    Sub Main()
        Dim num1 As Integer, num2 As Integer, num3 As Integer, num4 As Integer
        Console.Write("Entrez le premier numéro: ")
        num1 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez le deuxième numéro: ")
        num2 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez le troisième numéro: ")
        num3 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Entrez le numéro quatre: ")
        num4 = Convert.ToInt32(Console.ReadLine())
        Dim result As Integer = (num1 + num2 + num3 + num4) / 4
        Console.WriteLine("la moyenne de {0}, {1}, {2}, {3}
 est: {4} ", num1, num2, num3, num4, result)
    End Sub
End Module
Réponse:
Module Exercice8
    Sub Main()
        Dim num1 As Integer, num2 As Integer, num3 As Integer
Console.Write("Entrez le premier numéro ...")
num1 = Convert.ToInt32(Console.ReadLine())
Console.Write("Entrez le deuxième numéro ....")
num2 = Convert.ToInt32(Console.ReadLine())
Console.Write("Entrez le troisième numéro ...")
num3 = Convert.ToInt32(Console.ReadLine())
        Console.Write("Résultat de l'opération entre {0}, {1} et {2},
 (a + b) · c est {3} et a · b + a · c est {4}",num1, num2, num3,
 ((num1 + num2) * num3), (num1 * num3 + num2 * num3))
   End Sub
End Module
Réponse:
Module Exercice8
    Sub Main()
        Dim age As Integer
Console.Write("Entrer un âge")
age = Convert.ToInt32(Console.ReadLine())
Console.Write("Vous avez l'air plus jeune que {0}", age)
    End Sub
End Module
 Réponse:
Module Exercice8
    Sub Main()
        Dim x As Integer
Console.Write("Entrez un nombre:")
x = Convert.ToInt32(Console.ReadLine())
Console.WriteLine("{0}{0}{0}", x)
Console.WriteLine("{0} {0}", x)
Console.WriteLine("{0} {0}", x)
Console.WriteLine("{0} {0}", x)
Console.WriteLine("{0}{0}{0}", x)
     End Sub
End Module
 Réponse:
Module Exercice12
    Sub Main()
        Console.Write("Entrez le montant de Celsius:")
Dim celsius As Integer = Convert.ToInt32(Console.ReadLine())
Console.WriteLine("Kelvin = {0}", celsius + 273)
Console.WriteLine("Fahrenheit = {0}", celsius * 18 / 10 + 32)
    End Sub
End Module
 | 
