首先,要知道3次根號下 x ,就是x^(1/3),知道這個就可以寫代碼了: private sub form_load() x=inputbox("請輸入要開三次方的數值") msgbox x^(1/3) end sub
創新互聯-專業網站定制、快速模板網站建設、高性價比柳北網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式柳北網站制作公司更省心,省錢,快速模板網站建設找我們,業務覆蓋柳北地區。費用合理售后完善,10余年實體公司更值得信賴。
絕對值是“|”,可以直接顯示,同理對數可用log(x)代替,根號和其他不支持顯示。
如果要顯示數學式子,只能畫吧。
計算時可用“^”求冪或求根,“/”表示除法和分數線,還有math類。
VB的運算順序是:先乘除、后加減,有括號的先算括號內,有負號的先算負號。
請你比較一下這個運算中x和y的值:
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
這樣就會發現,你的代碼中括號的位置錯了。
正確的應該是: Math.Sqrt((n + 1) / n - 1)
效果如圖,代碼如下:
Public?Class?Form1
'Circle類
Class?Circle
? Public?Center?As?Point
? Public?Radius?As?Single
? Public?Sub?New(c?As?Point,?r?As?Single)
? ? ? Center?=?c
? ? ? Radius?=?r
? End?Sub
? '繪制
? Public?Sub?Draw(g?As?Graphics,?pen?As?Pen)
? ? ? g.DrawEllipse(pen,?New?RectangleF(Center.X?-?Radius,?Center.Y?-?Radius,?Radius?*?2,?Radius?*?2))
? End?Sub
End?Class
Private?downPoint?As?Point? ? ? '記錄鼠標按下位置
Private?circleList?As?New?List(Of?Circle)? ? ? ?'已存放圓的列表
Private?tmpCircle?As?Circle? ? ?'臨時圓(正在拖動)
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
? DoubleBuffered?=?True? ? ? ?'啟用雙緩沖繪圖,避免閃爍
End?Sub
Private?Sub?Form1_MouseDown(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseDown
? downPoint?=?e.Location? ? ? '記下位置
End?Sub
Private?Sub?Form1_MouseMove(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseMove
? If?e.Button??Windows.Forms.MouseButtons.Left?Then?Return?'左鍵沒按下則退出
? Dim?r?As?Single?=?Math.Sqrt((e.X?-?downPoint.X)?^?2?+?(e.Y?-?downPoint.Y)?^?2)? '算出半徑
? tmpCircle?=?New?Circle(downPoint,?r)? ? ? ? ? ? '更新臨時圓
? Refresh()? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'先刷新掉之前繪制的臨時圓
? tmpCircle.Draw(Me.CreateGraphics,?Pens.Black)? ?'繪制臨時圓
End?Sub
Private?Sub?Form1_MouseUp(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseUp
? circleList.Add(tmpCircle)? ? ? ? ? ?'鼠標彈起,把臨時圓加入圓列表
End?Sub
Private?Sub?Form1_Paint(sender?As?Object,?e?As?PaintEventArgs)?Handles?Me.Paint
? For?Each?c?As?Circle?In?circleList
? ? ? c.Draw(e.Graphics,?Pens.Black)? '繪制出每個圓
? Next
End?Sub
End?Class
VB.NET是采用了.NET技術的VB語言,而VB2008,2010是VB語言的版本。從VB6.0以后的VB都采用了.NET技術,所以,VB2008,2010都是VB.NET。在Visual Studio2008里的VB就是VB2008,以此類推。
Visual Studio是開發工具,在這個開發工具里,除了能編VB外,還能編VC++,C#,ASP.NET等。
不知道這樣講,你是否理解?
文章名稱:vb.net開根號,c#開根號
文章位置:http://vcdvsql.cn/article2/hedooc.html
成都網站建設公司_創新互聯,為您提供軟件開發、品牌網站設計、App設計、搜索引擎優化、網站策劃、定制網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯