重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb6中没有sqrt,只有sqr
创新互联主营尉犁网站建设的网络公司,主营网站建设方案,成都APP应用开发,尉犁h5小程序制作搭建,尉犁网站营销推广欢迎尉犁等地区企业咨询
math.sqrt出现在了vb.net中,仅仅是将Sqr归类到math这个类下了,没有更多的区别
-1.52341E-13
科学计数法,10的-13次方表示此数已经接近于0了,应该是single类型的精度导致的,你把精度设置适当应该就可以了。
不是函数,是使用Math类的Ceiling方法
Dim MyNumber As Double = 2.000000001
MsgBox(Math.Ceiling(MyNumber))
VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下。所以,要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换,也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。
下面是我通过自己变换实现的示例,提供参考;我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
'声明横向和纵向比例变量
Dim Heng As Integer = 20
Dim Zong As Integer = 50
'先获得正弦值,保存到点坐标数组
Dim MyPoints(700) As Point
Dim i As Integer
For i = 0 To 700
MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
Next
'采用绘制光滑线连接点的方式绘制曲线
MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
显示的效果图:
sub是可以有参数的,但是是没有返回值的。
你可以用function
如
Function add(ByVal a As Integer, ByVal b As Integer)
add = a + b
End Function
a = add(1,1) 这样a = 2
在VB.NET中已经不直接支持VB6的内部函数了。取而代之的是System.Math类的相应方法了。
VS.NET中的System是当然的引用,所以,在任何时候我们都可以直接使用“Math.Abs()”或其他方法。例如
Dim i As Integer
Dim a As Integer = Math.Abs(i) '取i的绝对值
Math 类,为三角函数、对数函数和其他通用数学函数提供常数和静态方法。