כיצד לתכנת משוואות ריבועיות ב- Visual Basic

שלב 1

פתח תוכנית חדשה של Visual Basic. לחץ פעמיים על כפתור הכלי כדי להוסיף Button1 לטופס. לחץ פעמיים על הכלי "תווית" פעמיים כדי להוסיף Label1 ו Label2 לטופס.

שלב 2

לחץ פעמיים על "Button1" בטופס כדי לפתוח את חלון הקוד. כתוב את הקוד הבא: דים כערך עשרוני = InputBox ("הזן A:") D בעמ 'כ עשרוני = InputBox ("Enter B:") דימ c כמו עשרוני = InputBox ("הזן C:") ריבועית (a, b, c)

שלוש השורות הראשונות מבקשות מהמשתמש את הערכים של הקבועים. ואז הוא הולך אל תת בשם "ריבועית" ומעביר את הקבועים כמו ויכוחים לו.

שלב 3

הוצא את הסמן מתוך כפתור המשנה. כתבו את הקוד הבא: (1) כמו מחרוזת עמעום x1, x2, דיסק כמו דיסק עשרוני = b ^ 2 - 4 * a * c

השורה הראשונה יוצרת את ה - Quadratic sub ומקבלת את שלושת הארגומנטים. לאחר מכן הגדר את הבחירה עם שני אלמנטים עבור שני השורשים. לאחר מכן ליצור שלושה משתנים עשרוניים ולהקצות את הערך של discriminant, אשר קובע את מספר השורשים כי משוואה ריבועית יש.

שלב 4

כתוב את הקוד הבא: אם תקליטור> = 0 = x1 = (+b + Math.Sqrt (דיסק)) / (2 * a) x2 = (-b - Math.Sqrt (דיסק)) / (2 * a) שורשים (0) = x1.ToString השורשים (1) = x2.ToString אחר השורשים (0) = "(-" & b.ToString & "+ Sqrt (" & דיסק. טוטרינג & ")) / (2 " & a. "(" & ")" ("=" = ")" - "& - b.ToString &" -Sqrt ("& disc.ToString &")) / (2 "& a.ToString &")

הפונקציה "if" נקבעת אם ערך המאבחן גדול או שווה לאפס, כלומר, למשוואה שורש אחד או שניים. ואז לפתור x. אם המפלה היא פחות מאפס, למשוואה אין שורשים אמיתיים, ואילו החלק "אחר" מתבצע, ומציג את משוואות השורש המורכבות.

שלב 5

כתוב את הקוד הבא: Label1.Text = root (0) Label2.Text = root (1) End Sub

שורות אלה של קוד פשוט להראות את השורשים של תוויות ולאחר מכן לסגור את הבלוק קוד של המשנה ריבועית.

שלב 6

שמור את תוכנית Visual Basic. לחץ על "F5" כדי לבצע אותו.