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

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

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

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

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

。。。

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

用VB計算X值的問題

很明顯你的程序陷入了無限循環(huá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ù)求橫坐標

不是已經回答了嗎？

運行界面如下圖：

在對應的文本框里輸入對應的坐標值，單擊【計算】，結果將顯示在下面一個文本框里，完整代碼如下：

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)

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

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

'求過點P2(x2,y2)的水平直線方程為；

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

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

'由此得到交點坐標為：

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

y5?=?y2

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

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

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

TextBox1.Text?=?L

End?Sub

End?Class

VB.NET怎么位運算?

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

新聞標題：關于vb.net對x2求導的信息
網(wǎng)址分享：http://jinyejixie.com/article4/dodoioe.html

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

廣告

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