使用vb.net編寫一個函數(shù)，函數(shù)只有一個參數(shù)

首先在窗體上添加Button1，ListBox1，下面是完整代碼

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

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?'顯示排序后結(jié)果

Me.ListBox1.Items.Add(arr(i).ToString)

Next

End?Sub

End?Class

跪求vb.net代碼

新建窗口，添加picture控件

利用line()方法畫線

line(開始x坐標(biāo),開始y坐標(biāo))-(結(jié)束x坐標(biāo),結(jié)束y坐標(biāo)),線的顏色，畫線的方式(默認(rèn)為線，B為矩形無填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫也可以調(diào)用窗口的line方法即form.line()

求VB.NET代碼，“用隨機函數(shù)隨機得到五個數(shù)并由小到大排列”最好不要用循環(huán)結(jié)構(gòu)。

a = Int((2013 - 12 + 1) * Rnd() + 12)

b = Int((2013 - 12 + 1) * Rnd() + 12)

c = Int((2013 - 12 + 1) * Rnd() + 12)

d = Int((2013 - 12 + 1) * Rnd() + 12)

m = Int((2013 - 12 + 1) * Rnd() + 12)

If a b Then t = b: b = a: a = t

If a c Then t = c: c = a: a = t

If a d Then t = d: d = a: a = t

If a m Then t = m: m = a: a = t

If b c Then t = c: c = b: b = t

If b d Then t = d: d = b: b = t

If b m Then t = m: m = b: b = t

If c d Then t = d: d = c: c = t

If c m Then t = m: m = c: c = t

If d m Then t = m: m = d: d = t

text1 =a

text2 =b

text3 =c

text4 =d

text5=m

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，否則外面無法訪問。

當(dāng)前名稱：vb.net函數(shù)代碼 vb編程函數(shù)代碼
本文路徑：http://www.chinadenli.net/article30/hijcso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、云服務(wù)器、定制網(wǎng)站、搜索引擎優(yōu)化、App開發(fā)、建站公司

廣告

聲明：本網(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)