VB.NET 求一元二次方程的程序

(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2個(gè)根

十余年的洪雅網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。成都全網(wǎng)營(yíng)銷的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整洪雅建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“洪雅網(wǎng)站設(shè)計(jì)”,“洪雅網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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)是唯一解

如何使用vb.net求帶未知數(shù)的公式

如果不能直接算，那就只有逼近的方法了。

例：

a從0到1000循環(huán)，每次+1

每次比較a*X的結(jié)果是否大于等于y，等于的話就出結(jié)果。

大于y時(shí)，a從a-1到a循環(huán)，每次+0.001

每次比較a*X的結(jié)果是否大于等于y，等于的話就出結(jié)果。

。。。

根據(jù)循環(huán)次數(shù)和布進(jìn)，可以得到一個(gè)小數(shù)位數(shù)的精度，以上循環(huán)可以得到一個(gè)精確度達(dá)到0.001的結(jié)果了。

用VB計(jì)算X值的問(wèn)題

很明顯你的程序陷入了無(wú)限循環(huán)

計(jì)算一元二次方程解有專門(mén)的公式，何必這樣麻煩

dim x1 as single,x2 as single,tmpsng as single

tmpsng= b^2-4*a*c

if tmpsng=0 then

x1=（-b+tmpsng^0.5）/（2*a）

x2=（-b-tmpsng^0.5）/（2*a）

endif

VB.NET 一次函數(shù)求橫坐標(biāo)

不是已經(jīng)回答了嗎？

運(yùn)行界面如下圖：

在對(duì)應(yīng)的文本框里輸入對(duì)應(yīng)的坐標(biāo)值，單擊【計(jì)算】，結(jié)果將顯示在下面一個(gè)文本框里，完整代碼如下：

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?x2,?y2,?x3,?y3,?x4,?y4,?x5,?y5?As?Single

Dim?L?As?Single

x2?=?Val(TextBox2.Text)

y2?=?Val(TextBox3.Text)

x3?=?Val(TextBox4.Text)

y3?=?Val(TextBox5.Text)

x4?=?Val(TextBox6.Text)

y4?=?Val(TextBox7.Text)

'求點(diǎn)P3(x3,y3)與點(diǎn)P4(x4,y4)的直線方程；

'(X-x4)/(x3-x4)?=?(Y-y4)/(y3-y4)?......(1)

'求過(guò)點(diǎn)P2(x2,y2)的水平直線方程為；

'Y?=?y2?......(2)

'方程(1)(2)?聯(lián)立可以求出兩條直線的交點(diǎn)(x5,y5)

'由此得到交點(diǎn)坐標(biāo)為：

x5?=?(y2?-?y3)?*?(x4?-?x3)?/?(y4?-?y3)?+?x3

y5?=?y2

'求點(diǎn)P2(x2,y2)與點(diǎn)P5(x5,y5)之間的距離

'根據(jù)兩點(diǎn)之間距離公式有；

L?=?((x2?-?x5)?^?2?+?(y2?-?y5)?^?2)?^?0.5

TextBox1.Text?=?L

End?Sub

End?Class

VB.NET怎么位運(yùn)算?

注意只能對(duì)整型執(zhí)行按位運(yùn)算。浮點(diǎn)值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運(yùn)算。按位運(yùn)算采用二進(jìn)制（以 2 為基）形式計(jì)算兩個(gè)整數(shù)值。它們比較對(duì)應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運(yùn)算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進(jìn)制形式處理：二進(jìn)制格式的 3 為 011二進(jìn)制格式的 5 為 101And 運(yùn)算符比較這些二進(jìn)制表示方式，一次比較一個(gè)二進(jìn)制位置（位）。如果給定位置的兩個(gè)位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個(gè)位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計(jì)算結(jié)果：011（二進(jìn)制格式的 3）101（二進(jìn)制格式的 5）001（二進(jìn)制格式的計(jì)算結(jié)果）計(jì)算結(jié)果以十進(jìn)制形式處理。值 001 是 1 的二進(jìn)制表示形式，因此 x = 1。除了在任何一個(gè)比較位是 1 或兩個(gè)比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運(yùn)算與此類似。Xor 在比較的位正好只有一個(gè)是 1（而不是兩者都是 1）時(shí)將 1 賦給結(jié)果位。Not 采用單個(gè)操作數(shù)并反轉(zhuǎn)所有位（包括符號(hào)位），然后將該值賦予結(jié)果。這意味著，對(duì)于有符號(hào)正數(shù)，Not 始終返回負(fù)值，而對(duì)于負(fù)數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運(yùn)算符不支持按位運(yùn)算。 追問(wèn)： 好復(fù)雜啊...還是不會(huì),還有整數(shù)怎么轉(zhuǎn)換為二進(jìn)制數(shù)? 回答： 為什么一定要用位運(yùn)算呢，你那個(gè)乘法只能通過(guò)左移操作符“ ”來(lái)進(jìn)行，而左移一次代表乘以2，要是乘以一個(gè)小數(shù)，就必須先化成2的n次方，不夠再用加減法調(diào)整，很麻煩啊，沒(méi)必要用位運(yùn)算啊。。。 追問(wèn)： 因?yàn)槲乙M(jìn)行大量的運(yùn)算,但速度要快,所有用位運(yùn)算...我也不想啊.. 回答： 那就不該用VB 啊，c/c++在執(zhí)行效率上是沒(méi)話說(shuō)的。 追問(wèn)： 問(wèn)題就是不會(huì)嘛... 回答： 那你上csdn上發(fā)帖效果應(yīng)該不錯(cuò) 追問(wèn)： CSDN發(fā)了,我發(fā)在高性能運(yùn)算,沒(méi)人... 回答： 耐心一些，或者你應(yīng)該發(fā)到VB.NET論壇那里。。。

新聞標(biāo)題：關(guān)于vb.net對(duì)x2求導(dǎo)的信息
網(wǎng)址分享：http://chinadenli.net/article4/dodoioe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、電子商務(wù)、微信小程序、服務(wù)器托管

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)