vb中如何找出數(shù)組中的最小值,并找出最小值的位置(第幾個數(shù)字)

代碼及注釋如下：

公司主營業(yè)務(wù)：網(wǎng)站制作、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出金寨免費做網(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ù)組進行比較查找即可。

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

'模擬生成一個隨機數(shù)組

a(i)

=

50

-

rnd

*

100

debug.print

a(i);

"

";

next

debug.print

fp

=

-32768:

zp

=

32767

for

each

x

in

a

'遍歷數(shù)組進行比較

if

x

then

if

zp

x

then

zp

=

x

else

if

fp

x

then

fp

=

x

end

if

next

debug.print

"負數(shù)中的最大數(shù)是:";

fp;

"

正數(shù)中的最小數(shù)是:";

zp

end

sub

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

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

本文標題：vb點虐 數(shù)組最小值 vba數(shù)組最小值
分享網(wǎng)址：http://chinadenli.net/article38/ddgsjpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、企業(yè)建站、網(wǎng)站建設(shè)、微信小程序、商城網(wǎng)站、靜態(tài)網(wǎng)站

廣告

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