1樓：匿名使用者
private sub command1_click()for i = 1 to 5
for j = 1 to 5
if i = 1 or j = 1 or i = 5 or j = 5 then bsum = bsum + a(i, j) '所有靠邊元素之和
asum = asum + a(i, j) '所有元素之和if i = j or i + j = 6 then dsum = dsum + a(i, j) '兩條對角線元素之和
next j
next i
print "兩條對角線元素之和:" & bsumprint "所有元素之和" & asumprint "兩條對角線元素之和" & dsumend sub
2樓：
private sub command1_click()dim a(5, 5)
for i = 1 to 5
for j = 1 to 5
a(i, j) = i + j
next
next
allsum = 0
duisum = 0
bianxume = 0
for i = 1 to 5
for j = 1 to 5
allsum = allsum + a(i, j)if i = j or i + j = 6 thenduisum = duisum + a(i, j)end if
if i = 1 or j = 1 or i = 5 or j = 5 then
bianxume = bianxume + a(i, j)end if
next
next
print allsum
print duisum
print bianxume
end sub
彪悍人生不需要解釋，彪悍的**不需要注釋
vb程式，設有乙個二維陣列a（4,5），其中每個元素均由兩位隨機整數構成，然後執行以下操作：
c語言設有55的二維陣列編寫程式求1所有
include define size 5 int main sum 0,i 0,j 0,sum mdia 0,sum cdia for i 0 i 洛馬諾夫斯基 部分關鍵 如下 int a 4 4 0,sum1 0,sum2 0,sum3 0 宣告變數，為方便使用整形 int i 0,j 0 在迴...
vb程式設計應用二維陣列產生隨機矩陣55並實現矩陣
珈藍惜夢 vb源程式如下 option base 1 private sub command1 click dim a 5,5 as integer,b 5,5 as integer for x 1 to 5 for y 1 to 5 a x,y int 10 rnd 90 隨機產生兩位數的整數 p...
vb定義乙個二維陣列，求各維上下界
陣列名，不可預設。語法lbound arrayname dimension lbound 函式的語法包含下面部分 部分描述arrayname必需的。陣列變數的名稱，遵循標準的變數命名約定。dimension可選的 variant long 指定返回哪一維的下界。1 表示第一維，2 表示第二維，如此類...