在VB中計算平均值,VB程式設計如何計算平均數

時間 2022-04-20 20:35:00

1樓:孤本輕狂

private function dd(a() as double, n as integer, b() as double, m as integer)

for i = 3 to n - 4

b(i - 3) = a(i)

next

m = n - 6

end function

'排序函式 從大到小

private function px(a() as double, b as integer)

dim max as double

for i = 0 to b - 2

for j = i + 1 to b - 1

if a(i) < a(j) then

max = a(j)

a(j) = a(i)

a(i) = max

end if

next

next

end function

private sub command1_click()

dim inttemp(16) as double

dim intdata(10) as double

dim n as integer

dim sum as double

dim l

for i = 1 to 16

randomize

inttemp(i - 1) = format((rnd * 10 + 40), "0.00")

text1(i).text = cstr(inttemp(i - 1))

next i

call px(inttemp, 16)

l = dd(inttemp(), 16, intdata(), n)

for i = 0 to n - 1

sum = sum + intdata(i)

print cstr(intdata(i))

next

text1(17).text = sum / 10

end sub

private sub form_load()

form1.height = 9500

for i = 1 to 17

load text1(i)

text1(i).visible = true

text1(i).left = text1(0).left

text1(i).top = text1(i - 1).top + 450

next

end sub

2樓:

這麼複雜的問題也就10分,唉

在matlab中 怎麼計算平均值

3樓:匿名使用者

1、第一步開啟matlab,在命令列視窗中輸入a=[12 24 35;26 78 56],建立乙個2行3列的矩陣,如下圖所示:

2、第二步在命令列視窗中輸入mean(a(:)),求a矩陣所有元素的平均值,如下圖所示:

3、第三步按回車鍵之後,可以看到a矩陣所有元素的平均值是 38.5000,如下圖所示:

4、第四步如果想求矩陣每一列的平均值,輸入mean(a,1),如下圖所示:

5、第五步如果想求矩陣每一行的平均值,輸入mean(a,2),如下圖所示:完成。

4樓:一棵無所不知的小白菜

1、開啟matlab,在命令列視窗中輸入a=[12 24 35;26 78 56],建立乙個2行3列的矩陣。

2、在命令列視窗中輸入mean(a(:)),求a矩陣所有元素的平均值。

3、按回車鍵之後,可以看到a矩陣所有元素的平均值是 38.5000。

4、如果我們想求矩陣每一列的平均值,輸入mean(a,1)。

5、如果我們想求矩陣每一行的平均值,輸入mean(a,2),即可完成求平均值。

5樓:匿名使用者

(1)sum

(2)max、min

(3)sum/length

(4)while ==1 count=count+1這個用excel瞬間的事情,用matlab反而麻煩

6樓:匿名使用者

>> dt = randint(10,2,[0 255]);

dtmax = max(dt) % 最大值dtmin = min(dt) % 最小值dtmean = mean(dt) % 平均值dtmax =

214 220

dtmin =

5 38

dtmean =

124.5000 133.9000

7樓:

計算平均值的方法如下:

>> dt = randint(10,2,[0 255]);

dtmax = max(dt) % 最大值;

dtmin = min(dt) % 最小值;

dtmean = mean(dt) % 平均值;

dtmax =214 220

dtmin =5 38

dtmean =124.5000 133.9000。

m = mean(a)

返回沿陣列中不同維的元素的平均值。

如果a是乙個向量,mean(a)返回a中元素的平均值。

如果a是乙個矩陣,mean(a)將中的各列視為向量,把矩陣中的每列看成乙個向量,返回乙個包含每一列所有元素的平均值的行向量。 如果a是乙個多元陣列,mean(a)將陣列中第乙個非單一維的值看成乙個向量,返回每個向量的平均值。

m = mean(a,dim)

返回a中沿著標量dim指定的維數上的元素的平均值。對於矩陣,mean(a,2)就是包含每一行的平均值的列向量。

舉個例子給你看看:

a = [1 2 3; 3 3 6; 4 6 8; 4 7 7];

mean(a)

ans =3.0000 4.5000 6.0000mean(a,2)

ans = 2.0000  4.0000  6.0000

vb程式設計如何計算平均數

8樓:匿名使用者

新建工程,1個文字框和1個按鈕

text1用來錄入資料, 因為是任意個數,用很多文字框是不方便的,程式設計是使用","來分隔數字,你可以輸入任意多個數字,然後按鈕command1後,就可以顯示總和及平均值.

private sub command1_click()

if len(text1) = 0 then exit sub

if instr(text1, ",") < 2 then exit sub

dim a, sumn%, i%, j%

a = split(text1, ",")

for i = 0 to ubound(a)

if isnumeric(val(a(i))) then '防止有非數字的情況發生,做一下校驗

sumn = sumn + val(a(i))

j = j + 1

end if

next

print "總和為:" & sumn

print "平均數為:" & sumn / (ubound(a) + 1)

end sub

9樓:旅初彤

你說一下是求多少個數的平均數嗎?

vb計算函式平均數

vb 求平均值 5

10樓:匿名使用者

s=0for i=1 to 10

x=int(rnd*100) '隨機產生[0,99]間的數s=s+x '累加求和

print x ; '輸出

next i

a=s/10 '平均

print "10個隨機數的平均值" ;a

11樓:匿名使用者

比如 3個text 或者 5個text

me.caption = (text1+text2+text3)/3

me.caption = (text1+text2+text3+text4+text5)/5

怎樣用歐式距離在EXCEL中計算

用convert 函式 convert函式的功能為將數字從乙個度量系統轉換到另乙個度量系統中。convert函式語法是 convert number,from unit,to unit 引數 number是以from units為單位的需要進行轉換的數值 from unit為數值number進行轉換...

怎麼在cad中計算面積cad測量面積顯示不出來

cad快速測量戶型面積乾貨,3秒2個命令,不需要任何外掛程式 計算平面面積的話,我在cad上用的是都是外掛程式配的工具。比喻 源泉設計,迷你等外掛程式工具箱 如何在cad中計算面積 cad測量面積顯示不出來 可以在工具欄裡找到此按鈕,查詢 面積即可 cad快速測量戶型面積乾貨,3秒2個命令,不需要任...

按先進先出法,在材料明細賬戶中計算確定每次發出和月末結存材料的成本

3月1日 購入 3000公斤 單價 10元 3月5日 購入 9000公斤 單價 11元 結餘12000公斤 單價10.75元 3月10日 發出 10500公斤 單價 10.75元 結餘1500公斤 單價10.75元 3月20日 購入 6000公斤 單價 12元 結餘7500公斤 單價11.75元 3...