vb.net函數(shù)定義代碼,VB定義函數(shù)
用VB.NET程序編寫代碼
Delphi代碼如下：
創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站設計、成都網(wǎng)站建設與策劃設計,忠縣網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設十年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:忠縣等地區(qū)。忠縣做網(wǎng)站價格咨詢:18982081108
procedure?TForm1.Button1Click(Sender:?TObject);
var
購物總價:Integer;
折扣:Extended;
begin
購物總價:=StrToInt(Edit1.Text);
if?購物總價250?then
begin
折扣:=0;
end
else?if?購物總價500?then
begin
折扣:=0.05;
end
else?if?購物總價1000?then
begin
折扣:=0.075;
end
else?if?購物總價2000?then
begin
折扣:=0.1;
end
{
此段的折扣是多少？
else?if?購物總價3000?then
begin
折扣:=0.05;
end
}
else?if?購物總價=3000?then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是：'+FloatToStr(折扣)
+'?原價：'+IntToStr(購物總價)
+'?折后總價：'+FloatToStr(購物總價*(1-折扣)));
end;
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ù)的代碼內(nèi)容
首先新建一個類庫項目，把你的代碼以類（需要實例）或模塊（靜態(tài)）的形式封裝好，生成過后在輸出目錄（bin/debug或bin/release）里面會有個項目名.dll文件，就是它了。
在調(diào)用方項目里，右鍵解決方案資源管理器中的引用，添加引用，瀏覽到你的dll文件。接著到你的代碼中，代碼最上面寫：
Imports 項目名
然后調(diào)用這個類或模塊即可。
根據(jù)你的情況，可能用模塊封裝更適合一些。比如：
Public Module MatrixSolve
Public Function Solve(para1 As Double,para2 As Double) As Double
'一些代碼
Return result
End Function
End Module
調(diào)用起來只要這樣即可：
Dim num As Double = MatrixSolve.Solve(x,y)
注意模塊和函數(shù)的訪問級別都用Public，否則外面無法訪問。
在vb中。如何進行三角函數(shù)的程序代碼編寫
有幾個地方要注意：
1、VB中的三角函數(shù)的角度全部是用弧度制表示的，如果是度數(shù)的話，應先乘以180再除以π轉成弧度，再用函數(shù)計算結果。
2、VB中直接支持的三角函數(shù)有：Sin()、Cos()、Tan()，如果涉及到其它三角函數(shù)，可以從下面列出的代碼中自己選擇相應的函數(shù)：
Function
Sec(X)
As
Double
'正割
Sec
=
1
/
Cos(Angle)
End
Function
Function
Csc(X)
As
Double
'余割
Csc
=
1
/
Sin(Angle)
End
Function
Function
Cot(X)
As
Double
'余切
Cot
=
1
/
Tan(Angle)
End
Function
Function
ArcSin(X)
As
Double
'反正弦
ArcSin
=
Atn(X
/
Sqr(-X
*
X
+
1))
End
Function
Function
ArcCos(X)
As
Double
'反余弦
ArcCos
=
Atn(-X
/
Sqr(-X
*
X
+
1))
+
2
*
Atn(1)
End
Function
Function
ArcSec(X)
As
Double
'反正割
ArcSec
=
Atn(X
/
Sqr(X
*
X
-
1))
+
Sgn((X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCsc(X)
As
Double
'反余割
ArcCsc
=
Atn(X
/
Sqr(X
*
X
-
1))
+
(Sgn(X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCot(X)
As
Double
'反余切
ArcCot
=
Atn(X)
+
2
*
Atn(1)
End
Function
Function
HSin(X)
As
Double
'雙曲正弦
HSin
=
(Exp(X)
-
Exp(-X))
/
2
End
Function
Function
HCos(X)
As
Double
'雙曲余弦
HCos
=
(Exp(X)
+
Exp(-X))
/
2
End
Function
Function
HTan(X)
As
Double
'雙曲正切
HTan
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HSec(X)
As
Double
'雙曲正割
HSec
=
2
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HCsc(X)
As
Double
'雙曲余割
HCsc
=
2
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HCot(X)
As
Double
'雙曲余切
HCot
=
(Exp(X)
+
Exp(-X))
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反雙曲正弦
HArcsin
=
Log(X
+
Sqr(X
*
X
+
1))
End
Function
Function
HArccos(X)
As
Double
'反雙曲余弦
HArccos
=
Log(X
+
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反雙曲正切
HArctan
=
Log((1
+
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反雙曲正割
HArcsec
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反雙曲余割
HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反雙曲余切
HArccot
=
Log((X
+
1)
/
(X
-
1))
/
2
End
Function
使用vb.net編寫一個函數(shù)，函數(shù)只有一個參數(shù)
首先在窗體上添加Button1，ListBox1，下面是完整代碼
Public?Class?Form1
Public?Sub?BubbleSort(ByVal?arr()?As?Integer)?'冒泡法排序
Dim?temp?As?Double
Dim?i,?j?As?Integer
For?i?=?0?To?arr.GetUpperBound(0)?-?1
For?j?=?i?+?1?To?arr.GetUpperBound(0)?-?1
If?arr(i)??arr(j)?Then
temp?=?arr(j)
arr(j)?=?arr(i)
arr(i)?=?temp
End?If
Next
Next
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'調(diào)用
Dim?arr()?As?Integer?=?{55,?22,?33,?11,?77,?88}
BubbleSort(arr)?'調(diào)用排序過程
Me.ListBox1.Items.Clear()
For?i?=?0?To?arr.GetUpperBound(0)?-?1?'顯示排序后結果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End?Sub
End?Class
本文標題：vb.net函數(shù)定義代碼,VB定義函數(shù)
文章分享：http://chinadenli.net/article16/hcjgdg.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供App設計、品牌網(wǎng)站建設、營銷型網(wǎng)站建設、網(wǎng)站制作、網(wǎng)頁設計公司、
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)
- 品牌網(wǎng)站制作為什么只能選擇網(wǎng)站定制 2021-10-04
- 保定品牌網(wǎng)站制作：如何做好一個成功的品牌網(wǎng)站？ 2021-08-27
- 品牌網(wǎng)站制作解決方案 2016-09-12
- 廣州品牌網(wǎng)站制作有什么特點？ 2022-12-20
- 深圳品牌網(wǎng)站制作營銷重點 2021-09-28
- 品牌網(wǎng)站制作怎么建設更高效 2021-08-27
- 高端品牌網(wǎng)站制作離不開獨特新穎的設計 2016-10-30
- 品牌網(wǎng)站制作常見的布局方式 2022-03-22
- 品牌網(wǎng)站制作好方法好步驟？ 2021-06-03
- 企業(yè)品牌網(wǎng)站制作要注重哪些問題? 2023-04-18
- 集團型網(wǎng)站建設品牌網(wǎng)站制作設計 2020-12-03
- 品牌網(wǎng)站制作好后網(wǎng)站URL優(yōu)化有技巧 2022-08-12