สมการกำลังสองคือพหุนามดีกรีที่สองที่มีรูปแบบ "ax^2 + bx + c = 0" "a" "b" และ "c" เป็นค่าคงที่และ "x" เป็นตัวแปร เมื่อคุณแก้สมการกำลังสอง คุณต้องมีค่าคงที่และแก้หา x ซึ่งจะให้ค่าสองค่าเสมอ เรียกว่า "ราก" ใน Visual Basic คุณสามารถเขียนโปรแกรมหรือฟังก์ชันที่แจ้งให้ผู้ใช้ป้อนค่า a, b และ c ค้นหารากแล้วแสดงค่าบน รูปร่าง.
ขั้นตอนที่ 1
เปิดโปรแกรม Visual Basic ใหม่ คลิกสองครั้งที่เครื่องมือ "ปุ่ม" เพื่อเพิ่ม Button1 ลงในแบบฟอร์ม คลิกสองครั้งที่เครื่องมือ "ป้ายกำกับ" สองครั้งเพื่อเพิ่ม Label1 และ Label2 ลงในแบบฟอร์ม
วีดีโอประจำวันนี้
ขั้นตอนที่ 2
ดับเบิลคลิก "Button1" บนแบบฟอร์มเพื่อเปิดหน้าต่างโค้ด พิมพ์รหัสต่อไปนี้:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") กำลังสอง (a, b, c)
สามบรรทัดแรกพร้อมท์ให้ผู้ใช้ทราบค่าของค่าคงที่ จากนั้นเรียกย่อยที่เรียกว่า "กำลังสอง" และส่งค่าคงที่เป็นอาร์กิวเมนต์
ขั้นตอนที่ 3
แทรกเคอร์เซอร์ภายนอกย่อย Button1 พิมพ์รหัสต่อไปนี้:
Private Sub Quadratic (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim root (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
บรรทัดแรกสร้างย่อยกำลังสองและยอมรับสามอาร์กิวเมนต์ จากนั้นกำหนดอาร์เรย์ที่มีสองรายการสำหรับรากทั้งสอง จากนั้นจะสร้างตัวแปรทศนิยมสามตัวและกำหนดค่าของ discriminant ซึ่งกำหนดจำนวนรากที่สมการกำลังสองมี
ขั้นตอนที่ 4
พิมพ์รหัสต่อไปนี้:
ถ้าดิสก์ >= 0 แล้ว x1 = (-b + Math. Sqrt (ดิสก์)) / (2 * a) x2 = (-b - คณิตศาสตร์ Sqrt (ดิสก์)) / (2 * a) ราก (0) = x1.ToString ราก (1) = x2.ToString รากอื่น (0) = "(-" & b. ToString & "+Sqrt(" & ดิสก์ ToString & "))/(2_" & a. ToString & ")" root (1) = "(-" & b. ToString & "-Sqrt(" & ดิสก์ ToString & "))/(2_" & a. ToString & ")" สิ้นสุด If
ฟังก์ชัน "if" จะตรวจสอบเพื่อดูว่าค่าของ discriminant มากกว่าหรือเท่ากับศูนย์หรือไม่ ซึ่งหมายความว่าสมการมีรากหนึ่งหรือสองราก แล้วแก้หา x ถ้า discriminant มีค่าน้อยกว่าศูนย์ สมการจะไม่มีรากที่แท้จริงและส่วน "อื่น" จะทำงาน ซึ่งจะแสดงสมการรากที่ซับซ้อน
ขั้นตอนที่ 5
พิมพ์รหัสต่อไปนี้:
Label1.Text = root (0) Label2.Text = root (1) End Sub
โค้ดบรรทัดเหล่านี้จะแสดงรูทบนป้ายกำกับ จากนั้นปิดบล็อกโค้ดของ Quadratic
ขั้นตอนที่ 6
บันทึกโปรแกรม Visual Basic กด "F5" เพื่อเรียกใช้
