Exercice VB: Structure alternative Calcule

Objectif:

Travailler avec les Structures Alternatives

Travail à Faire :

  1. Ecrire un programme qui demande deux nombres à l’utilisateur et l’informe ensuite si leur produit est négatif ou positif (on laisse de côté le cas où le produit est nul). Attention toutefois : on ne doit pas calculer le produit des deux nombres.
  2. Ecrire un programme qui demande trois noms à l’utilisateur et l’informe ensuite s’ils sont rangés ou non dans l’ordre alphabétique.
  3. Ecrire un programme qui demande un nombre à l’utilisateur, et l’informe ensuite si ce nombre est positif ou négatif (on inclut cette fois le traitement du cas où le nombre vaut zéro).
  4. Ecrire un programme qui demande deux nombres à l’utilisateur et l’informe ensuite si le produit est négatif ou positif (on inclut cette fois le traitement du cas où le produit peut être nul). Attention toutefois, on ne doit pas calculer le produit !
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970711.Module Module1Dim m, n As IntegerSub Main()Console.Write("Entrez la valeur de m :")m = Console.ReadLineConsole.Write("Entrez la valeur de n :")n = Console.ReadLineIf m * n > 0 ThenConsole.Write("Leur produit est positif")ElseConsole.Write("Leur produit est négatif")End IfConsole.ReadLine()End SubEnd Module 2.Module Module1Dim a, b, c As StringSub Main()Console.Write("Entrez le premier nom :")a = Console.ReadLineConsole.Write("Entrez le deuxième nom :")b = Console.ReadLineConsole.Write("Entrez le troisiéme nom :")c = Console.ReadLineIf a And b ThenConsole.Write("Ces noms sont classés alphabétiquement")ElseConsole.Write("Ces noms ne sont pas classés")End IfConsole.ReadLine()End SubEnd Module 3.Module Module1Dim n As IntegerSub Main()Console.Write("Entrez un nombre : ")n = Console.ReadLineIf n 0 ThenConsole.Write("Ce nombre est négatif")ElseIf n = 0 ThenConsole.Write("Ce nombre est nuls")ElseConsole.Write("Ce nombre est positif")End IfConsole.ReadLine()End SubEnd Module 4.Module Module1Dim m, n As IntegerSub Main()Console.Write("Entrezla valeur de m : ")m = Console.ReadLineConsole.Write("Entrezla valeur de n : ")n = Console.ReadLineIf m = 0 Or n = 0 ThenConsole.Write("Le produit est nul")ElseIf (m 0 And n 0) Or (m > 0 And n > 0) ThenConsole.Write("Le produit est positif")ElseConsole.Write("Le produit est négatif")End IfConsole.ReadLine()End SubEnd Module
Article publié le 02 Janvier 2012