Maak een nieuw project met een console application.Voeg de volgende code toe: Imports System.Console Imports System.Math
Module Module1
Sub Main() a: WriteLine("ABC-Formule") WriteLine("A = ?") Dim a As Double = ReadLine() WriteLine("B = ?") Dim b As Double = ReadLine() WriteLine("C = ?") Dim c As Double = ReadLine() Dim d = ((b) ^ 2 - 4 * a * c) WriteLine("D = " + d) If d < 0 Then WriteLine("Geen oplossing") ElseIf d = 0 Then Dim e As Double = ((-b) / (2 * a)) WriteLine("X1 = " + e) ElseIf d > 0 Then Dim x1 As Double = (((-b) + Sqrt(d)) / (2 * a)) Dim X2 As Double = (((-b) - Sqrt(d)) / (2 * a)) WriteLine("X1 = " + x1.ToString) WriteLine("X2 = " + X2.ToString) End If GoTo a ReadLine()
End Sub
End Module
Uitleg: Eerst worden er 2 klassen geïmporteerd: de math klasse om gebruik te maken van de vierkantswortel functie en de console klasse dit is om efficiënter en sneller te typen. Eerst laat je de titel van het programma toevoegen aan de console met de WriteLine functie. Dan laat je de 3 variabelen a,b en c opvragen met deze bereken je de discriminant d. Als de discriminant kleiner als nul is zijn er geen oplossingen., indien de discriminant gelijk is aan nul gebruik je de formule "(-b)/(2a)" , als de discriminant groter dan nul is dan zijn er 2 oplossingen en dan gebruik je respectievelijk de formules "-b + Vd/2a" of "-b-Vd/2a". Dan laat je de oplossing berekenen en toevoegen aan de console.
