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.
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.
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.
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.
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.
Enregistrez le programme Visual Basic. Appuyez "F5" pour l'exécuter.