以下程序代碼實(shí)現(xiàn)單擊命令按鈕時(shí)輸出一個(gè)主對(duì)角線(xiàn)上元素值為1、其余元素為0的9×9方陣。
(1)a(i,j)=1、
(2)a(i,j)=0、
(3)a(i,j)、
(4)vbCrLf
兩個(gè)矩陣能相乘的必要條件是:前一個(gè)矩陣的列數(shù)等于后一個(gè)矩陣的行數(shù)。矩陣A乘矩陣B,得矩陣C。方法是A的第一行元素分別對(duì)應(yīng)乘以B的第一列元素各元素,相加得C11,A的第一行元素對(duì)應(yīng)乘以B的第二列各元素,相加得C12,以此類(lèi)推,C的第二行元素為A的第二行元素按上面方法與B各列相乘所得結(jié)果,以此類(lèi)推。例如,已知A為n×k的矩陣,B為k×m的矩陣,A×B的結(jié)果C矩陣為n×m,即:
(1)b(j,i)=n、
(2)n+5、
(3)a(j,k)*b(k,i)
下面程序?qū)σ阎獢?shù)組a(),刪除數(shù)組中某個(gè)元素。
(1)Key=a(i)、
(2)a(j-1)=a(j)、
(3)Preservea(UBound(a)-1)