VB編程，應(yīng)用二維數(shù)組產(chǎn)生隨機(jī)矩陣5*5，并實(shí)現(xiàn)矩陣的轉(zhuǎn)置？VB編程，應(yīng)用二維數(shù)組產(chǎn)生隨機(jī)矩陣5*5，并實(shí)現(xiàn)矩陣的轉(zhuǎn)置？VB源程序如下：option base 1private sub command

VB編程，應(yīng)用二維數(shù)組產(chǎn)生隨機(jī)矩陣5*5，并實(shí)現(xiàn)矩陣的轉(zhuǎn)置？

VB編程，應(yīng)用二維數(shù)組產(chǎn)生隨機(jī)矩陣5*5，并實(shí)現(xiàn)矩陣的轉(zhuǎn)置？

VB源程序如下：option base 1private sub command1uClick（）dim a（5,5）為整數(shù)，B（5,5）為整數(shù)，x=1到5，y=1到5 a（x，y） =int（10 RND*90）“隨機(jī)生成的兩位數(shù)整數(shù)打印a（x，y）”輸出下一次打印NextPrintFor x=1到5 for y=1到5 B（x，y）=a（y，x）“轉(zhuǎn)置打印B（x，y） “output next printnext end子程序輸出結(jié)果如下：擴(kuò)展數(shù)據(jù)：VB:編寫程序，實(shí)現(xiàn)如下規(guī)則的5*5矩陣到數(shù)組中，并輸出數(shù)組privatesubcommand1uclick（）Dima（1To6,1To6）AsInteger Fori=1To5 Forj=1To5 tmp=99 Ifi<tmp then tmp=iEndIf Ifj<tmpThen tmp=j EndIf If6-i<tmpThen tmp=6-i EndIf If6-j<tmpThen tmp=6-j EndIf A（i，j）=tmp nextj nexti forI=1到5 forj=1到5 picture1。打印標(biāo)簽（J*5）a（I，J）下一張圖片1