真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net取數(shù)組最大,vb求數(shù)組中的最大值和最小值

VB.NET 數(shù)組內(nèi)容比較大小

'給數(shù)組賦值

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供漢陽網(wǎng)站建設(shè)、漢陽做網(wǎng)站、漢陽網(wǎng)站設(shè)計、漢陽網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、漢陽企業(yè)網(wǎng)站模板建站服務(wù),十多年漢陽做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

dim d(6) as integer

d(1)=11

d(2)=32

d(3)=25

d(4)=45

d(5)=9

d(6)=5

'獲取最大值(采用打擂臺的思路)

dim MyMax as integer

dim i as integer

MyMax = d(1) '假設(shè)第1個元素最大

for i = 2 To Ubound(d) '從第2個元素開始到最后一個元素

'如果當前元素比MyMax的值大,就把當前元素保存到MyMax

if d(i) MyMax Then

MyMax = d(i)

end if

next i

msgbox MyMax

用vb.net編寫一個函數(shù),求任意整數(shù)數(shù)組的最大元素

private function maxnum(byval a() as integer) as integer

dim i as integer

maxnum=a(0)

for i = 1 to ubound(a)

if a(i)maxnum then maxnum=a(i)

next

end function

vb.net程序,利用隨機函數(shù)產(chǎn)生100個1到100之間的整數(shù),求其中的最大最小值。

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

Randomize() '產(chǎn)生隨機數(shù)種子 以防止每次生成結(jié)果都一樣

Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機數(shù)結(jié)果

Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值

min = 1000 : max = 0 '設(shè)置初值

For i = 0 To 99 '循環(huán)100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設(shè)置他的范圍為0到999之間 加1變成1到1000之間

If a(i) = max Then max = a(i) '如果當前數(shù)值大于最大值的變量就保存

If a(i) = min Then min = a(i) '如果當前數(shù)值小于最小值的變量就保存

Next

MsgBox("最大值為" max)

MsgBox("最小值為" min)

End Sub

vb.NET一個找出數(shù)組最大最小值的程序有個小問題 誰看一下

你是不是應(yīng)該對最大值和最小值賦初值(比如把 r(1) 賦給最大值和最小值)呢?不然最小值默認初始值是‘0’,后面的判斷就不起作用了。你可以加個斷點試試,他們的初始值是多少。。。

VB求最大值函數(shù)

雙擊command1,寫下

dim a as string

dim amax as integer,temp as integer

a=trim(text1)'去除text1中的空格,將值賦給a

amax=0'設(shè)置amax的初值,因為是找最大值,所以取0

for i=1 to len(a)'循環(huán),從1到a的長度

temp=val(mid(a,i,1))'從a中第i個位子取一個數(shù)

if temp=amax then amax=temp'和最大值比較

next i

text2=amax


網(wǎng)頁標題:vb.net取數(shù)組最大,vb求數(shù)組中的最大值和最小值
標題網(wǎng)址:http://weahome.cn/article/phdpjs.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部