vb6中沒(méi)有sqrt，只有sqr
創(chuàng)新互聯(lián)主營(yíng)尉犁網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都APP應(yīng)用開發(fā),尉犁h5小程序制作搭建,尉犁網(wǎng)站營(yíng)銷推廣歡迎尉犁等地區(qū)企業(yè)咨詢
math.sqrt出現(xiàn)在了vb.net中，僅僅是將Sqr歸類到math這個(gè)類下了，沒(méi)有更多的區(qū)別
-1.52341E-13
科學(xué)計(jì)數(shù)法，10的-13次方表示此數(shù)已經(jīng)接近于0了，應(yīng)該是single類型的精度導(dǎo)致的，你把精度設(shè)置適當(dāng)應(yīng)該就可以了。
不是函數(shù)，是使用Math類的Ceiling方法
Dim MyNumber As Double = 2.000000001
MsgBox(Math.Ceiling(MyNumber))
VB系統(tǒng)的坐標(biāo)原點(diǎn)在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過(guò)改變點(diǎn)坐標(biāo)的方法來(lái)實(shí)現(xiàn)，當(dāng)然，VB.NET提供了相應(yīng)的方法可以來(lái)實(shí)現(xiàn)坐標(biāo)變換，也可以通過(guò)VB.Net的Graphics類提供的平移、旋轉(zhuǎn)等轉(zhuǎn)換來(lái)實(shí)現(xiàn)。
下面是我通過(guò)自己變換實(shí)現(xiàn)的示例，提供參考；我的環(huán)境是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，獲得一個(gè)Graphics對(duì)象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個(gè)Brush對(duì)象，用于填充圖形（如果需要填充的話）
? 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，獲得一個(gè)Graphics對(duì)象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個(gè)Brush對(duì)象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? '聲明橫向和縱向比例變量
? Dim Heng As Integer = 20
? Dim Zong As Integer = 50
? '先獲得正弦值，保存到點(diǎn)坐標(biāo)數(shù)組
? 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
? '采用繪制光滑線連接點(diǎn)的方式繪制曲線
? MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
顯示的效果圖：
sub是可以有參數(shù)的，但是是沒(méi)有返回值的。
你可以用function
如
Function?add(ByVal?a?As?Integer,?ByVal?b?As?Integer)
add?=?a?+?b
End?Function
a = add(1,1) ?這樣a = 2
在VB.NET中已經(jīng)不直接支持VB6的內(nèi)部函數(shù)了。取而代之的是System.Math類的相應(yīng)方法了。
VS.NET中的System是當(dāng)然的引用，所以，在任何時(shí)候我們都可以直接使用“Math.Abs（）”或其他方法。例如
Dim i As Integer
Dim a As Integer = Math.Abs(i) '取i的絕對(duì)值
Math 類，為三角函數(shù)、對(duì)數(shù)函數(shù)和其他通用數(shù)學(xué)函數(shù)提供常數(shù)和靜態(tài)方法。
