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 平行四邊形的面積也等於兩個相鄰邊的向量交叉乘積...