正文

vb.net开根号 开根号在程序中怎么表示

IP云
IP云V管理员/1 阅读
04/06
小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

VB中的根号怎么表示

首先vb.net开根号，要知道3次根号下 x vb.net开根号，就是x^(1/3)vb.net开根号，知道这个就可以写代码了： private sub form_load() x=inputbox("请输入要开三次方vb.net开根号的数值") msgbox x^(1/3) end sub

vb.net 中，怎麼做拉动线段的功能 ??

效果如图，代码如下：

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的开方运算

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)

关于vb.net开根号和开根号在程序中怎么表示的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。