VB中怎麼用函式MAX和MIN求出一組資料的最大值和最小值

時間 2021-09-13 06:11:34

1樓:匿名使用者

您好,vb中沒有max和min函式,不過你可以自己程式設計實現。

給你一個求隨機產生6個兩位正整數的例子:

private sub command1_click()dim a(6) as integer

for i = 1 to 6

randomize

a(i) = int(rnd * 90) + 10print a(i);

next i

print

max = a(1)

min = a(1)

for i = 1 to 6

if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i

print "最大值為:" & max

print "最小值為:" & min

end sub

2樓:匿名使用者

'max和min不是自帶的系統函式,你必須自己定義:function max(a() as integer)as integer dim max as integer =a(1) //假設你陣列在外****定義的:dim a(1 to 10)什麼的…… dim i as integer for i=2 to ubound(a) if (maxa(i)) then min = a(i) end if next return min

end function

外部呼叫:dim a(1 to 10)b=max(a)c=min(a)

3樓:匿名使用者

vb自帶的函式中沒有你說的max和min函式。

4樓:匿名使用者

max(a, b) 換成iif(a>b,a,b)就成了

5樓:匿名使用者

b=dmax(a,a)

c=dmin(a,a)

自己錄個巨集看看就明白了

vb 中利用split函式求最大值和最小值**

6樓:兄弟連教育北京總校

1. 函式解釋抄

:將一個字串按照某個子字串分割成字元陣列。

function split(expression as string, [delimiter], [limit as long = -1], [compare as vbcomparemethod = vbbinarycompare])

member of vba.stringssplit a string into an array2. 例子

private sub command1_click()dim x as string

x = "a b c"

dim y

y = split(x, " ")

for i = 0 to ubound(y)debug.print y(i)

next

end sub

excel函式中min和max函式

某某 excel之max跟min函式 其實,樓主實際對excel 函式max和min沒有充分地理解 max函式編輯公式為 max number1 number2,number13,number,顯然是指的數字,max函式的意義在於從number1到無窮盡的數字當中,找出最大的一個數字 當然,這個nu...

C 中的min和max函式的問題

倫歆欒曉絲 包含在c 標準庫中標頭檔案 中,在標頭檔案 中定義了min,max的巨集,若在包含 的同時包含 會導致函式無法使用。提供了 cpp min等函式來代替min函式的功能。c 11標準 中min函式的原型 default 1 template const t min const t a,co...

VB中的子函式或函式未定義怎麼回事

過程名稱拼錯。檢查拼寫並改正。試圖從另一個工程呼叫過程,但並沒有在 引用 對話方塊中將該引用新增到該工程。子函式或函式未定義屬 sub,function,或 property 未定義 錯誤 35 sub,function,或 property 未定義 錯誤 35 子函式或函式未定義屬 sub,fun...