VB程式設計 陣列行和,列和,對角線元素之和,最大最小值

時間 2025-05-28 11:00:22

1樓:

option base 1 '定凳旅滲義陣列預設下界為1private sub command1_click()dim a(5, 5) as integer, b(25) as integer, e as string, s as integer, t as integer

clsrandomize

生成棗脊二維陣列。

for i = 1 to 5

e = for j = 1 to 5

a(i, j) =fix(rnd * 90) +10 '隨機數為10~99

e = e & cstr(a(i, j))t = t + 1

b(t) =a(i, j)

nextprint e

next求每行的和。

for i = 1 to 5

s = 0for j = 1 to 5

s = s + a(i, j)

nextprint "第" &i & 行和為"; snext求每列的和。

for i = 1 to 5

s = 0for j = 1 to 5

s = s + a(j, i)

nextprint "第" &i & 列和為"; snext求右斜鎮昌對角線的和。

s = 0for i = 1 to 5

s = s + a(i, i)

nextprint "\對角線和為"; s求左斜對角線的和。

s = 0for i = 1 to 5

s = s + a(i, 6 - i)

nextprint "/對角線和為"; s求最大值和最小值。

t = b(1)

for i = 1 to 25

for j = i + 1 to 25

if b(j) >b(i) then

t = b(i)

b(i) =b(j)

b(j) =t

end if

nextnext

print "最大值為"; b(1)

print "最小值為"; b(25)

end sub

2樓:蒼鬱

這是我寫的乙個計算對角線之和帆寬陸,對角線之積,求最大元素巧梁的**,你修改一下就行了。

dim i as integer, j as integer, k as integer, aa(4, 4) as integer, bb as string, cc as integer, dd as double, ee(24)

truebb = for i = 0 to 4

for j = 0 to 4

aa(i, j) =fix(rnd * 100)

bb = bb & aa(i, j) &

next j

bb = bb & chr(13) &chr(10)

next i

for i = 0 to 4

cc = cc + aa(i, i) +aa(i, 4 - i)

next i

bb = bb & chr(13) &chr(10) &態頃對角線之和:" cc

dd = 1

for i = 0 to 4

dd = dd * aa(i, i) *aa(i, 4 - i)

next i

bb = bb & chr(13) &chr(10) &對角線之積:" dd

k = 0for i = 0 to 4

for j = 0 to 4

ee(k) =aa(i, j)

k = k + 1

next j

next i

cc = ee(0)

for i = 0 to 23

if ee(i) >ee(i + 1) then

ee(i + 1) =ee(i)

cc = ee(i)

end if

next i

bb = bb & chr(13) &chr(10) &最大元素" &cc

print bb

vb程式設計求矩陣a中每一列的最大值以及最大值所在的行

3樓:刺友互

1、首先繪製好四個文字框和乙個命令按鈕。

2、然後我們定義乙個輸入從文字框輸入資料。

3、接下來可以從這個陣列資料裝入到另乙個陣列。

4、這時,假設有乙個函式可以呼叫。

5、接下來開始編寫**,為了通用性,可求出上下界。

6、然後我們再遍歷查詢最大值。

菱形對角線和周長的關係

wuli小亮仔 菱形的周長 4 一條對角線一半的平方 另一條對角線一半的平方 證明 假設 設兩對角線分別為x,y,邊長為m。菱形被兩條對角線分為全等的四個直角三角形,則 x 2 2 y 2 2 m 2 x 2 y 2 4m 2 2m 2,即 菱形周長一半的平方等於兩對角線的平方和 擴充套件資料菱形的...

VB程式設計,求M行N列的矩陣四周元素之和,元素值可以隨機產生,M N從鍵盤輸入

裘誠 這個是那一章的全部答案 1 設有如下兩組資料 1 1,3,5,2,4,18,50,25 2 5,27,30,35,60,41,87,33 編寫一個程式,把上面兩組資料分別讀入兩個陣列中,然後把兩個陣列中對應下標的元素相加,即1 5,3 27,25 33,並把相應的結果放入第三個陣列中,最後輸出...

平行四邊形的邊長和對角線有什麼關係

是你找到了我 平行四邊形abcd中,ac bd是平行四邊形abcd的對角線,則各四邊的平方和等於對角線的平方和。平行式變形的性質 1 平行四邊形的對邊是平行的 根據定義 因此永遠不會相交。2 平行四邊形的面積是由其對角線之一建立的三角形的面積的兩倍。3 平行四邊形的面積也等於兩個相鄰邊的向量交叉乘積...