Visual Basic'te ikinci dereceden denklemler nasıl programlanır

Visual Basic ikinci dereceden denklemleri çözebilir

1. Adım

Yeni bir Visual Basic programı açın. Button1 forma eklemek için araç düğmesine çift tıklayın. Label1 ve Label2'yi forma eklemek için "Etiket" aracını iki kez çift tıklayın.

2. Adım

Kod penceresini açmak için formdaki "Button1" e çift tıklayın. Aşağıdaki kodu yazın: Dim a As Decimal = InputBox ("Enter A:") Dim b On Decimal = InputBox ("Enter B:") Dim c On Decimal = InputBox ("Enter C:") Kuadratik (a, b, c)

İlk üç satır, kullanıcıdan sabitlerin değerlerini sormaktadır. Ardından "Kuadratik" adlı bir alt kısma gider ve sabitleri ona argümanlar olarak aktarır.

3. adım

İmleci alt Düğme1'den çıkarın. Aşağıdaki kodu yazın: Özel Sub Kuadratik (ByVal to Decimal, ByVal b Ondalık On, ByVal c Ondalık olarak) Dim kökleri (1) String Dim x1, x2, disk On Decimal disk olarak = b ^ 2 - 4 * a * c

İlk satır Kuadratik alt oluşturur ve üç argümanı kabul eder. Daha sonra iki kök için iki elemanlı bir seçim tanımlayın. Daha sonra üç ondalık değişken oluşturun ve ikinci dereceden denklemin sahip olduğu köklerin sayısını belirleyen diskriminant değerini belirleyin.

4. Adım

Aşağıdaki kodu yazın: Disk> = 0 ise x1 = (-b + Math.Sqrt (disk)) / (2 * a) x2 = (-b - Math.Sqrt (disk)) / (2 * a) kökleri (0) = x1.ToString kökleri (1) = x2.ToString Else kökleri (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 " & a. ToString & ")" kökler (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")" Bitirse

Diskriminant değeri sıfırdan büyük veya sıfıra eşitse "if" fonksiyonu ayarlanır, bu da denklemin bir veya iki köküne sahip olduğu anlamına gelir. O zaman x'i çöz. Eğer diskriminant sıfırdan küçükse, denklemin gerçek kökleri yoktur ve kompleks kök denklemlerini gösteren "else" kısmı yürütülür.