Comment programmer des équations quadratiques dans Visual Basic

Instructions

1. Ouvrez un nouveau programme Visual Basic. Double-cliquez sur le "Bouton" outil pour ajouter Button1 pour la forme. Double-cliquez sur le "Étiquette" deux fois outil pour ajouter Label1 et Label2 à la forme.

2. Double-cliquez sur "Button1" sur le formulaire pour ouvrir la fenêtre de code. Tapez le code suivant:

   Dim a As Decimal = InputBox ("Entrez A: ")

   Dim b Comme Decimal = InputBox ("Entrez B: ")

   Dim c Comme Decimal = InputBox ("Entrez C: ")

   Quadratique (a, b, c)

   Les trois premières lignes inviter l'utilisateur à des valeurs des constantes. Il appelle ensuite un sous appelé "Quadratique" et transmet les constantes comme arguments à elle.

3. Insérez le curseur à l'extérieur de la sous Button1. Tapez le code suivant:

   Private Sub quadratique (ByVal un décimaux, ByVal b décimaux, ByVal c décimaux)

   Racines Dim (1) As String

   Dim x1, x2, disque en décimal

   disque = b ^ 2 - 4 un c

   La première ligne crée le sous quadratique et accepte trois arguments. Il définit ensuite un tableau avec deux éléments pour les deux racines. Il crée ensuite trois variables décimales et affecte la valeur du discriminant, qui détermine le nombre de racines l'équation quadratique a.

4. Tapez le code suivant:

   Si le disque gt; = 0 Then

   
   
   
   
   

   x1 = (-b + Math.sqrt (disque)) / (2 * a)

   x2 = (-b - Math.sqrt (disque)) / (2 * a)

   racines (0) = x1.ToString

   racines (1) = x2.ToString

   Autre

   racines (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 *" & a.ToString & ")"

   racines (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 *" & a.ToString & ")"

   Fin si

   La "si" la fonction vérifie si la valeur du discriminant est supérieure ou égale à zéro, ce qui signifie que l'équation a une ou deux racines. Il résout ensuite pour x. Si le discriminant est inférieure à zéro, l'équation n'a pas de racines réelles et la "autre" partie exécute, qui affiche les racines complexes équations.

5. Tapez le code suivant:

   Label1.Text = racines (0)

   Label2.Text = racines (1)

   End Sub

   Ces lignes de code affichent simplement les racines sur les étiquettes et puis fermez le bloc de code de la sous quadratique.

6. Enregistrez le programme Visual Basic. Appuyez "F5" pour l'exécuter.