13518219792
vb代碼如下：
創新互聯建站堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網站制作、網站設計、外貿網站建設、企業官網、英文網站、手機端網站、網站推廣等服務，滿足客戶于互聯網時代的溫嶺網站設計、移動媒體設計的需求，幫助企業找到有效的互聯網解決方案。努力成為您成熟可靠的網絡建設合作伙伴！
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("請輸入一元二次方程的系數a")
b = InputBox("請輸入一元二次方程的系數b")
c = InputBox("請輸入一元二次方程的系數c")
If a = 0 Then
a = InputBox("因為a≠0，你輸入的a＝0，請重新輸入系數a")
End If
d = b * b - 4 * a * c
If d = 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "系數為"; a; b; c; "的一元二次方程的根分別為"; x1
Print "系數為"; a; b; c; "的一元二次方程的根分別為"; x2
Else
Print "此方程在實數范圍內無解"
End If
End Sub
一、按鈕“求一元二次方程”的vb代碼如下：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If d = 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = X1
Label5.Caption = X2
Else
Label4.Caption = "在實數范圍內無解"
End If
End Sub
二、按鈕“重置”的vb代碼如下：
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub
三、按鈕“退出”的vb代碼如下：
Private Sub Command3_Click()
End
End Sub
特殊例子（指定系數c的值為5）：
在窗體“Form1.frm”的“Command1_click“事件中編寫代碼（請不要隨便更改其它代碼），使之能夠實現如下功能：在Text1輸入整數a、、Text2輸入b，判斷一元二次方程ax2+bx+5=0有無實數根。并在Text3文本框中顯示判斷結果，即有實數根則在Text3文本框中輸出“有”，否則輸出“無”。
VB程序代碼如下：
Private Sub Command1_Click()
dim a as single,b as single
a = Text1.Text
b = Text2.Text
d = b * b - 4 * a * 5
If d = 0 Then
Text3.Text="有"
Else
Text3.Text="無"
End If
End Sub
如果不用dim定義變量，則上面的輸入部分語句改為下面的語句，這樣可以把字符變量類型轉化為數值類型：
a =val(Text1.Text)
b =val(Text2.Text)
你這個方程至少應該整理成ax+b=c的形式吧
你這個是一元一次方程很簡單，是一條直線,用這個性質去解
先定義兩個變量，設第一個變量為x1＝0；如果a*x1+bc表示這個解比x1大，然后定義第二個變量x2＝100（隨便假設）。再算。如果a*x2+bc表示這個解在x1和x2之間。再取其中點在運算，根據實際情況移動x1和x2，直到達到你要求的精度為止。
如果是二元以上的方程就很復雜了，要設計到線性的解法
定義
在一個等式中，只含有一個未知數，且未知數的最高次數是2的整式方程叫做一元二次方程。
一元二次方程有三個特點：(1)只含有一個未知數；(2)未知數的最高次數是2；(3)是整式方程．要判斷一個方程是否為一元二次方程，先看它是否為整式方程，若是，再對它進行整理．如果能整理為 ax^2+bx+c=0(a≠0)的形式，則這個方程就為一元二次方程．
[編輯本段]一般形式
ax^2+bx+c=0（a、b、c是實數a≠0)
x^2+2x+1=0
[編輯本段]一般解法
1..配方法（可解所有一元二次方程）
2.公式法（可解所有一元二次方程）
3.因式分解法（可解部分一元二次方程）
4.開方法（可解部分一元二次方程）一元二次方程的解法實在不行(你買個卡西歐的fx-500或991的計算器 有解方程的，不過要一般形式)
一、知識要點：
一元二次方程和一元一次方程都是整式方程，它是初中數學的一個重點內容，也是今后學習數學的基
礎，應引起同學們的重視。
一元二次方程的一般形式為：ax^2+bx+c=0, (a≠0)，它是只含一個未知數，并且未知數的最高次數是2
的整式方程。
解一元二次方程的基本思想方法是通過“降次”將它化為兩個一元一次方程。一元二次方程有四種解
法：1、直接開平方法；2、配方法；3、公式法；4、因式分解法。
二、方法、例題精講：
1、直接開平方法：
直接開平方法就是用直接開平方求解一元二次方程的方法。用直接開平方法解形如(x-m)2=n (n≥0)的
方程，其解為x=m±√n
例1．解方程（1）(3x+1)^2=7 （2）9x^2-24x+16=11
分析：（1）此方程顯然用直接開平方法好做，（2）方程左邊是完全平方式(3x-4)^2，右邊=110，所以
此方程也可用直接開平方法解。
（1）解：(3x+1)^2=7
∴(3x+1)^2=7
∴3x+1=±√7(注意不要丟解)
∴x= ...
∴原方程的解為x1=...,x2= ...
（2）解： 9x^2-24x+16=11
∴(3x-4)^2=11
∴3x-4=±√11
∴x= ...
∴原方程的解為x1=...,x2= ...
2．配方法：用配方法解方程ax^2+bx+c=0 (a≠0)
先將固定數c移到方程右邊：ax^2+bx=-c
將二次項系數化為1：x^2+x=-
方程兩邊分別加上一次項系數的一半的平方：x^2+x+( )2=- +( )2
方程左邊成為一個完全平方式：(x+ )2=
當b2-4ac≥0時，x+ =±
∴x=...(這就是求根公式)
例2．用配方法解方程 3x^2-4x-2=0
解：將常數項移到方程右邊 3x^2-4x=2
將二次項系數化為1：x^2-x=
方程兩邊都加上一次項系數一半的平方：x^2-x+( )^2= +( )^2
配方：(x-)^2=
直接開平方得：x-=±
∴x=
∴原方程的解為x1=,x2= .
3．公式法：把一元二次方程化成ax^2+bx+c的一般形式，然后把各項系數a, b, c的值代入求根公式就可得到方程的根。
當b^2-4ac0時，求根公式為x1=-b+√(b^2-4ac)/2a,x2==-b-√(b^2-4ac)/2a（兩個不相等的實數根）
當b^2-4ac=0時，求根公式為x1=x2=-b/2a（兩個相等的實數根）
當b^2-4ac0時，求根公式為x1=-b+√(4ac-b^2)i/2a,x2=-b-√(4ac-b^2)i/2a（兩個共軛的虛數根）（初中理解為無實數根）
例3．用公式法解方程 2x^2-8x=-5
解：將方程化為一般形式：2x^2-8x+5=0
∴a=2, b=-8, c=5
b^2-4ac=(-8)2-4×2×5=64-40=240
∴x= = =
∴原方程的解為x1=,x2= .
4．因式分解法：把方程變形為一邊是零，把另一邊的二次三項式分解成兩個一次因式的積的形式，讓
兩個一次因式分別等于零，得到兩個一元一次方程，解這兩個一元一次方程所得到的根，就是原方程的兩個
根。這種解一元二次方程的方法叫做因式分解法。
例4．用因式分解法解下列方程：
(1) (x+3)(x-6)=-8 (2) 2x^2+3x=0
(3) 6x^2+5x-50=0 (選學） (4)x^2-4x+4=0 （選學）
(1)解：(x+3)(x-6)=-8 化簡整理得
x^2-3x-10=0 (方程左邊為二次三項式，右邊為零)
(x-5)(x+2)=0 (方程左邊分解因式)
∴x-5=0或x+2=0 (轉化成兩個一元一次方程)
∴x1=5,x2=-2是原方程的解。
(2)解：2x^2+3x=0
x(2x+3)=0 (用提公因式法將方程左邊分解因式)
∴x=0或2x+3=0 (轉化成兩個一元一次方程)
∴x1=0，x2=-是原方程的解。
注意：有些同學做這種題目時容易丟掉x=0這個解，應記住一元二次方程有兩個解。
(3)解：6x2+5x-50=0
(2x-5)(3x+10)=0 (十字相乘分解因式時要特別注意符號不要出錯)
∴2x-5=0或3x+10=0
∴x1=, x2=- 是原方程的解。
(4)解：x^2-4x+4 =0 （∵4 可分解為2 ·2 ，∴此題可用因式分解法）
(x-2)(x-2 )=0
∴x1=2 ,x2=2是原方程的解。
小結：
一般解一元二次方程，最常用的方法還是因式分解法，在應用因式分解法時，一般要先將方程寫成一般
形式，同時應使二次項系數化為正數。
直接開平方法是最基本的方法。
公式法和配方法是最重要的方法。公式法適用于任何一元二次方程（有人稱之為萬能法），在使用公式
法時，一定要把原方程化成一般形式，以便確定系數，而且在用公式前應先計算判別式的值，以便判斷方程
是否有解。
配方法是推導公式的工具，掌握公式法后就可以直接用公式法解一元二次方程了，所以一般不用配方法
解一元二次方程。但是，配方法在學習其他數學知識時有廣泛的應用，是初中要求掌握的三種重要的數學方
法之一，一定要掌握好。（三種重要的數學方法：換元法，配方法，待定系數法）。
例5．用適當的方法解下列方程。(選學）
（1）4(x+2)^2-9(x-3)^2=0 （2）x^2+2x-3=0
（3） x2-2 x=- （4）4x2-4mx-10x+m2+5m+6=0
分析：（1）首先應觀察題目有無特點，不要盲目地先做乘法運算。觀察后發現，方程左邊可用平方差
公式分解因式，化成兩個一次因式的乘積。
（2）可用十字相乘法將方程左邊因式分解。
（3）化成一般形式后利用公式法解。
（4）把方程變形為 4x^2-2(2m+5)x+(m+2)(m+3)=0，然后可利用十字相乘法因式分解。
（1）解：4(x+2)^2-9(x-3)^2=0
[2(x+2)+3(x-3)][2(x+2)-3(x-3)]=0
(5x-5)(-x+13)=0
5x-5=0或-x+13=0
∴x1=1,x2=13
（2）解： x^2+2x-3=0
[x-(-3)](x-1)=0
x-(-3)=0或x-1=0
∴x1=-3，x2=1
（3）解：x^2-2 x=-
x^2-2 x+ =0 (先化成一般形式)
△=(-2 )^2-4 ×=12-8=40
∴x=
∴x1=,x2=
（4）解：4x^2-4mx-10x+m^2+5m+6=0
4x^2-2(2m+5)x+(m+2)(m+3)=0
[2x-(m+2)][2x-(m+3)]=0
2x-(m+2)=0或2x-(m+3)=0
∴x1= ,x2=
例6．求方程3(x+1)^2+5(x+1)(x-4)+2(x-4)^2=0的二根。 (選學）
分析：此方程如果先做乘方，乘法，合并同類項化成一般形式后再做將會比較繁瑣，仔細觀察題目，我
們發現如果把x+1和x-4分別看作一個整體，則方程左邊可用十字相乘法分解因式（實際上是運用換元的方
法）
解：[3(x+1)+2(x-4)][(x+1)+(x-4)]=0
即 (5x-5)(2x-3)=0
∴5(x-1)(2x-3)=0
(x-1)(2x-3)=0
∴x-1=0或2x-3=0
∴x1=1,x2=是原方程的解。
例7．用配方法解關于x的一元二次方程x^2+px+q=0
解：x^2+px+q=0可變形為
x^2+px=-q (常數項移到方程右邊)
x^2+px+( )2=-q+( )2 (方程兩邊都加上一次項系數一半的平方)
(x+)2= (配方)
當p^2-4q≥0時，≥0（必須對p^2-4q進行分類討論）
∴x=- ±=
∴x1= ,x2=
當p^2-4q0時，0此時原方程無實根。
說明：本題是含有字母系數的方程，題目中對p, q沒有附加條件，因此在解題過程中應隨時注意對字母
取值的要求，必要時進行分類討論。
練習：
（一）用適當的方法解下列方程：
1. 6x^2-x-2=0 2. (x+5)(x-5)=3
3. x^2-x=0 4. x^2-4x+4=0
5. 3x2+1=2x 6. (2x+3)2+5(2x+3)-6=0
（二）解下列關于x的方程
1.x^2-ax+-b2=0 2. x^2-( + )ax+ a2=0
練習參考答案：
（一）1.x1=-1/2 ,x2=2/3 2.x1=2,x2=-2
3.x1=0,x2= 4.x1=x2=2 5.x1=x2=
6.解：（把2x+3看作一個整體，將方程左邊分解因式）
[(2x+3)+6][(2x+3)-1]=0
即 (2x+9)(2x+2)=0
∴2x+9=0或2x+2=0
∴x1=-,x2=-1是原方程的解。
（二）1．解：x^2-ax+( +b)( -b)=0 2、解：x^2-(+ )ax+ a· a=0
[x-( +b)] [x-( -b)]=0 (x- a)(x-a)=0
∴x-( +b)=0或x-( -b) =0 x- a=0或x-a=0
∴x1= +b，x2= -b是 ∴x1= a，x2=a是
原方程的解。 原方程的解。
測試(有答案在下面)
選擇題
1．方程x(x-5)=5(x-5)的根是（ ）
A、x=5 B、x=-5 C、x1=x2=5 D、x1=x2=-5
2．多項式a2+4a-10的值等于11，則a的值為（ ）。
A、3或7 B、-3或7 C、3或-7 D、-3或-7
3．若一元二次方程ax^2+bx+c=0中的二次項系數，一次項系數和常數項之和等于零，那么方程必有一個
根是（ ）。
A、0 B、1 C、-1 D、±1
4． 一元二次方程ax^2+bx+c=0有一個根是零的條件為（ ）。
A、b≠0且c=0 B、b=0且c≠0
C、b=0且c=0 D、c=0
5． 方程x^2-3x=10的兩個根是（ ）。
A、-2，5 B、2，-5 C、2，5 D、-2，-5
6． 方程x^2-3x+3=0的解是（ ）。
A、 B、 C、 D、無實根
7． 方程2x^2-0.15=0的解是（ ）。
A、x= B、x=-
C、x1=0.27, x2=-0.27 D、x1=, x2=-
8． 方程x^2-x-4=0左邊配成一個完全平方式后，所得的方程是（ ）。
A、(x-)2= B、(x- )2=-
C、(x- )2= D、以上答案都不對
9． 已知一元二次方程x^2-2x-m=0，用配方法解該方程配方后的方程是（ ）。
A、(x-1)^2=m2+1 B、(x-1)^2=m-1 C、(x-1)^2=1-m D、(x-1)^2=m+1
答案與解析
答案：1.C 2.C 3.B 4.D 5.A 6.D 7.D 8.C 9.D
解析：
1．分析：移項得：(x-5)^2=0，則x1=x2=5,
注意：方程兩邊不要輕易除以一個整式，另外一元二次方程有實數根，一定是兩個。
2．分析：依題意得：a^2+4a-10=11, 解得 a=3或a=-7.
3．分析：依題意：有a+b+c=0, 方程左側為a+b+c, 且具僅有x=1時， ax^2+bx+c=a+b+c，意味著當x=1
時，方程成立，則必有根為x=1。
4．分析：一元二次方程 ax^2+bx+c=0若有一個根為零，
則ax^2+bx+c必存在因式x，則有且僅有c=0時，存在公因式x，所以 c=0.
另外，還可以將x=0代入，得c=0，更簡單！
5．分析：原方程變為 x^2-3x-10=0,
則(x-5)(x+2)=0
x-5=0 或x+2=0
x1=5, x2=-2.
6．分析：Δ=9-4×3=-30，則原方程無實根。
7．分析：2x2=0.15
x2=
x=±
注意根式的化簡，并注意直接開平方時，不要丟根。
8．分析：兩邊乘以3得：x^2-3x-12=0，然后按照一次項系數配方，x^2-3x+(-)2=12+(- )^2，
整理為：(x-)2=
方程可以利用等式性質變形，并且 x^2-bx配方時，配方項為一次項系數-b的一半的平方。
9．分析：x^2-2x=m, 則 x^2-2x+1=m+1
則(x-1)^2=m+1.
中考解析
考題評析
1．（甘肅省）方程的根是（ ）
（A） （B） （C） 或 （D） 或
評析：因一元二次方程有兩個根，所以用排除法，排除A、B選項，再用驗證法在C、D選項中選出正確
選項。也可以用因式分解的方法解此方程求出結果對照選項也可以。選項A、B是只考慮了一方面忘記了一元
二次方程是兩個根，所以是錯誤的，而選項D中x=－1，不能使方程左右相等，所以也是錯誤的。正確選項為
C。
另外常有同學在方程的兩邊同時除以一個整式，使得方程丟根，這種錯誤要避免。
2．（吉林省）一元二次方程的根是__________。
評析：思路，根據方程的特點運用因式分解法，或公式法求解即可。
3．（遼寧省）方程的根為（ ）
（A）0 （B）–1 （C）0，–1 （D）0，1
評析：思路：因方程為一元二次方程，所以有兩個實根，用排除法和驗證法可選出正確選項為C，而A、
B兩選項只有一個根。D選項一個數不是方程的根。另外可以用直接求方程根的方法。
4．（河南省）已知x的二次方程的一個根是–2，那么k=__________。
評析：k=4.將x=-2代入到原方程中去，構造成關于k的一元二次方程，然后求解。
5．（西安市）用直接開平方法解方程(x-3)2=8得方程的根為（ ）
（A）x=3+2 （B）x=3-2
（C）x1=3+2 ,x2=3-2 （D）x1=3+2,x2=3-2
評析：用解方程的方法直接求解即可，也可不計算，利用一元二次方程有解，則必有兩解及8的平方
根，即可選出答案。
課外拓展
一元二次方程
一元二次方程（quadratic equation of one variable）是指含有一個未知數且未知數的最高次項是二
次的整式方程。 一般形式為
ax^2+bx+c=0, (a≠0)
在公元前兩千年左右，一元二次方程及其解法已出現于古巴比倫人的泥板文書中：求出一個數使它與它
的倒數之和等于 一個已給數，即求出這樣的x與，使
x=1, x+ =b,
x^2-bx+1=0,
他們做出( )2；再做出 ，然后得出解答：+ 及 - 。可見巴比倫人已知道一元二次
方程的求根公式。但他們當時并不接受 負數，所以負根是略而不提的。
埃及的紙草文書中也涉及到最簡單的二次方程，例如：ax^2=b。
在公元前4、5世紀時，我國已掌握了一元二次方程的求根公式。
希臘的丟番圖（246-330）卻只取二次方程的一個正根，即使遇到兩個都是正根的情況，他亦只取其中
之一。
公元628年，從印度的婆羅摩笈多寫成的《婆羅摩修正體系》中，得到二次方程x^2+px+q=0的一個求根公
式。
在阿拉伯阿爾．花拉子米的《代數學》中討論到方程的解法，解出了一次、二次方程，其中涉及到六種
不同的形式，令 a、b、c為正數，如ax^2=bx、ax^2=c、 ax^2+c=bx、ax^2+bx=c、ax^2=bx+c 等。把二次方程分成
不同形式作討論，是依照丟番圖的做法。阿爾．花拉子米除了給出二次方程的幾種特殊解法外，還第一 次
給出二次方程的一般解法，承認方程有兩個根，并有無理根存在，但卻未有虛根的認識。十六世紀意大利的
數學家們為了解三次方程而開始應用復數根。
韋達（1540-1603）除已知一元方程在復數范圍內恒有解外，還給出根與系數的關系。
我國《九章算術．勾股》章中的第二十題是通過求相當于 x^2+34x-71000=0的正根而解決的。我國數學
家還在方程的研究中應用了內插法。
[編輯本段]判別方法
一元二次方程的判斷式：
b^2-4ac0 方程有兩個不相等的實數根．
b^2-4ac＝0 方程有兩個相等的實數根．
b^2-4ac0 方程有兩個共軛的虛數根（初中可理解為無實數根）．
上述由左邊可推出右邊，反過來也可由右邊推出左邊．
[編輯本段]列一元二次方程解題的步驟
(1)分析題意，找到題中未知數和題給條件的相等關系；
(2)設未知數，并用所設的未知數的代數式表示其余的未知數；
(3)找出相等關系，并用它列出方程；
(4)解方程求出題中未知數的值；
(5)檢驗所求的答案是否符合題意，并做答．
[編輯本段]經典例題精講
1．對有關一元二次方程定義的題目，要充分考慮定義的三個特點，不要忽視二次項系數不為0．
2．解一元二次方程時，根據方程特點，靈活選擇解題方法，先考慮能否用直接開平方法和因式分解法，再考慮用公式法．
3．一元二次方程 (a≠0)的根的判別式正反都成立．利用其可以(1)不解方程判定方程根的情況；(2)根據參系數的性質確定根的范圍；(3)解與根有關的證明題．
4．一元二次方程根與系數的應用很多：(1)已知方程的一根，不解方程求另一根及參數系數；(2)已知方程，求含有兩根對稱式的代數式的值及有關未知數系數；(3)已知方程兩根，求作以方程兩根或其代數式為根的一元二次方程．
[編輯本段]韋達定理
韋達（Vieta's ，Francois，seigneurdeLa Bigotiere）1540年出生于法國普瓦捷,1603年12月13日卒于巴黎。早年在普法捷學習法律，后任律師，1567年成為議會的議員。在對西班牙的戰爭中曾為政府破譯敵軍的密碼，贏得很高聲譽。法國十六世紀最有影響的數學家之一。第一個引進系統的代數符號，并對方程論做了改進。
他1540年生于法國的普瓦圖。1603年12月13日卒于巴黎。年青時學習法律當過律師，后從事政治活動，當過議會的議員，在對西班牙的戰爭中曾為政府破譯敵軍的密碼。韋達還致力于數學研究，第一個有意識地和系統地使用字母來表示已知數、未知數及其乘冪，帶來了代數學理論研究的重大進步。韋達討論了方程根的各種有理變換，發現了方程根與系數之間的關系（所以人們把敘述一元二次方程根與系數關系的結論稱為“韋達定理”）。
韋達定理實質上就是一元二次方程中的根與系數關系
韋達定理(Viete's Theorem）的內容
一元二次方程ax^2+bx+c=0 (a≠0 且△=b^2-4ac≥0)中
設兩個根為X1和X2
則X1+X2= -b/a
X1*X2=c/a
韋達定理的推廣
韋達定理在更高次方程中也是可以使用的。一般的，對一個一元n次方程∑AiX^i=0
它的根記作X1,X2…,Xn
我們有
∑Xi=(-1)^1*A(n-1)/A(n)
∑XiXj=(-1)^2*A(n-2)/A(n)
…
∏Xi=(-1)^n*A(0)/A(n)
其中∑是求和，∏是求積。
如果一元二次方程
在復數集中的根是，那么
法國數學家韋達最早發現代數方程的根與系數之間有這種關系，因此，人們把這個關系稱為韋達定理。歷史是有趣的，韋達的16世紀就得出這個定理，證明這個定理要依靠代數基本定理，而代數基本定理卻是在1799年才由高斯作出第一個實質性的論性。
由代數基本定理可推得：任何一元 n 次方程
在復數集中必有根。因此，該方程的左端可以在復數范圍內分解成一次因式的乘積：
其中是該方程的個根。兩端比較系數即得韋達定理。
韋達定理在方程論中有著廣泛的應用。
韋達定理的證明
設x1，x2是一元二次方程ax^2+bx+c=0的兩個解。
有:a(x-x1)(x-x2)=0
所以 ax^2-a(x1+x2)x+ax1x2=0
通過對比系數可得：
-a(x1+x2)=b ax1x2=c
所以 x1+x2=-b/a x1x2=c/a
韋達定理推廣的證明
設x1，x2，……，xn是一元n次方程∑AiX^i=0的n個解。
則有：An(x-x1)(x-x2)……(x-xn)=0
所以：An(x-x1)(x-x2)……(x-xn)=∑AiX^i （在打開(x-x1)(x-x2)……(x-xn)時最好用乘法原理）
通過系數對比可得：
A（n-1）=-An(∑xi)
A（n-2）=An(∑xixj)
…
A0==(-1)^n*An*∏Xi
所以：∑Xi=(-1)^1*A(n-1)/A(n)
∑XiXj=(-1)^2*A(n-2)/A(n)
…
∏Xi=(-1)^n*A(0)/A(n)
其中∑是求和，∏是求積。
[編輯本段]計算機解一元二次方程
VB實現方法
'該代碼僅可實現一般形式的求值，并以對話框形式顯示。
dim a,b,c,i
'在這里添加a、b、c的賦值過程
'例如：a=text1.text
'b=text2.text
'c=text3.text
if a*2 0 then
i=((0-b)+Sqr(b^2-4*a*c))/2
msgbox i
i=((0-b)-Sqr(b^2-4*a*c))/2
msgbox i
else
msgbox("2a為零")
end if
(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2個根
Delta = b * b - 4 * a * c '求得b*b-4*a*c并存放在變量Delta中
If Delta = 0 Then '如果Delta的值為0
Re = -b / (2 * a)
b * b - 4 * a * c＝b^2-4ac=0
-b/(2a)是唯一解
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
If d 0 Then
Label4.Caption = "此方程無解"
ElseIf d = 0 Then
Label4.Caption = "此方程有兩個相等的根，x1=" Str(-b / (2 * a))
'x=[-b]/2a
ElseIf d 0 Then
Label4.Caption = "此方程有兩個不相等的根，x1=" Str(Round((-b + Sqr(d)) / (2 * a), 0)) _
" x2=" Str(Round((-b - Sqr(d)) / (2 * a), 0))
End If
End Sub
張志晨
解一元一次方程：
設置4個文本框，分別代表一元一次方程中的參數k,b,x,y
分別命名txtk,txtb,txtx,txty.計算按鈕命名為cmdCalc。
在代碼窗口里粘貼如下代碼:
Private
Sub
cmdCalc_Click()
Dim
k,
b
As
Long
k
=
txtk.Text
b
=
txtb.Text
If
txtx.Text
=
"x"
Then
MsgBox
"x的值為:"
(txty.Text
-
b)
/
k
ElseIf
txty.Text
=
"y"
Then
MsgBox
"y的值為:"
k
*
txtx.Text
+
b
End
If
End
Sub
計算時求x則在txtx那里輸入一個x，
求y則在txty那里輸入一個y，
在各文本框中輸入參數，
然后按下按鈕，
就有提示框彈出，顯示結果。
