vb.net中我使用函數(shù)sin函數(shù)計算sin30度可是為什么算出來結(jié)果是0.479425538604203高手幫忙看看！程序如下：

為什么我的不是?

目前創(chuàng)新互聯(lián)已為上千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計、新巴爾虎右網(wǎng)站維護(hù)等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Dim?pi

pi?=?3.1415926

Dim?a

a?=?30

Text1.Text?=?Sin(a?*?pi?/?180)

VB.Net中關(guān)于隨機函數(shù)的問題

Dim num, counter As Integer

numbers = ""

For I = 1 To N

Sz(I) = N

Next I

For counter = 1 To M

Randomize

Do

Si = False

num = Int(Rnd * N) + 1

If Sz(T) 0 Then

X(I) = Sz(T)

Sz(T) = 0

Si = True

End If

Loop Until (Si = True)

numbers = numbers CStr(num) vbCrLf

Next

TextBox3.Text = numbers

增加一個判斷過程，我修改了一下前幾天給別人寫的那個方法，你可以嘗試一下：）

如何用VB.NET畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'聲明窗體的Me.CreateGraphics對象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓心的X坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

Dim R As Integer '圓的半徑

'繪制半徑為R的圓

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。

說明：

DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）

其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個數(shù)值確定，第1個數(shù)值，確定該區(qū)域左上角的X坐標(biāo)，第2個數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

VB.NET string$函數(shù)

VB6的String()函數(shù)，在VB.NET中，改用 StrDup()函數(shù)，使用格式與VB6的String()函數(shù)類似：

例如：

VB6中，String(5,"*") ，是產(chǎn)生5個星號字符，"*****"

VB.Net中，改用 StrDup(5,"*") ，也是產(chǎn)生5個星號字符，"*****"

vb.net中如何實現(xiàn)vb中的shape功能

你用的是控件數(shù)組

光發(fā)了代碼不知道你用的是動態(tài)的還是靜態(tài)的數(shù)組

還有就是有沒有shape1(0)呢

動態(tài)的話你的用

load

shape1(i)

放到

for循環(huán)下面就可以了

VB.NET自定義函數(shù)

很簡單，在end select前再多加一種情況case else return "XXXx",因為你只提供了0-9這10種情況

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function

分享題目：vb.net心形函數(shù),心形程序c語言函數(shù)
標(biāo)題鏈接：http://chinadenli.net/article19/dsegogh.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計、品牌網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、ChatGPT、小程序開發(fā)、網(wǎng)站建設(shè)

廣告

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