建站
咨詢
售后
建站咨詢
新聞中心
vb中如何找出數(shù)組中的最小值,并找出最小值的位置(第幾個數(shù)字)
代碼及注釋如下：
公司主營業(yè)務(wù)：網(wǎng)站制作、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出金寨免費(fèi)做網(wǎng)站回饋大家。
sub main()
dim a(0 to 99) as integer, amin as integer, i as integer, imin as integer
x = 65536'定義變量x為一個比數(shù)組中最大值還要大的數(shù)
for i = 0 to 99'假設(shè)數(shù)組元素個數(shù)為100個
if x a(i) then
x= a(i)‘如果x大于數(shù)組中的元素，則讓x等于數(shù)組中的這個元素，這樣x最終就成了數(shù)組中最小的數(shù)
y = i'y獲得x為最小值時，i的值，也就是x為數(shù)組中的第幾個數(shù)字
end if
next
msgbox "最小值為"x " 是第" y "個數(shù)字"
end sub
VB從數(shù)組中找出最大最小值及其位置代碼
1、遍歷數(shù)組進(jìn)行比較查找即可。
2、vb6示例代碼：
option
explicit
private
sub
command1_click()
randomize
timer
dim
a(9)
as
integer,
i
as
integer
dim
x,
fp
as
integer,
zp
as
integer
for
i
=
to
9
'模擬生成一個隨機(jī)數(shù)組
a(i)
=
50
-
rnd
*
100
debug.print
a(i);
"
";
next
debug.print
fp
=
-32768:
zp
=
32767
for
each
x
in
a
'遍歷數(shù)組進(jìn)行比較
if
x
then
if
zp
x
then
zp
=
x
else
if
fp
x
then
fp
=
x
end
if
next
debug.print
"負(fù)數(shù)中的最大數(shù)是:";
fp;
"
正數(shù)中的最小數(shù)是:";
zp
end
sub
vb.NET一個找出數(shù)組最大最小值的程序有個小問題 誰看一下
你是不是應(yīng)該對最大值和最小值賦初值（比如把 r(1) 賦給最大值和最小值）呢？不然最小值默認(rèn)初始值是‘0’，后面的判斷就不起作用了。你可以加個斷點(diǎn)試試，他們的初始值是多少。。。
標(biāo)題名稱：vb點(diǎn)虐 數(shù)組最小值 vba數(shù)組最小值
標(biāo)題URL：http://fisionsoft.com.cn/article/ddgsjpp.html
