Option Base 1 //è§å®æ°ç»çä¸æ ä»1å¼å§
Private Sub Command1_Click() //ç§æçè¿ç¨ä½ï¼è§¦åäºä»¶æ¯Command1被ç¹å»
Dim a(4,4) //å®ä¹ä¸ä¸ª4è¡4åçäºç»´æ°ç»a
For i = 1 To 4 //循ç¯ä½ï¼åéiçå¼ä»1å¼å§æ¯æ¬¡å¾ªç¯ç»æåå 1ç´å°å¼ä¸º4
For j = 1 to 4 //循ç¯ä½ï¼æä¹åä¸ï¼åªæ¯åéæ¹ä¸ºj
a(i,j) = (j-1)*3+j //èµå¼ï¼ç»æ°ç»aç第iè¡ç¬¬jåèµå¼ï¼å
¶å¼ä¸º(j-1)*3+j
Next j //循ç¯ä½ç»æ
Next i //åä¸
For j = 3 To 4 //åä¸ï¼jä»3å°4
Print a(j,i) //å¨çªä½ä¸è¾åºæ°ç»a第jè¡ç¬¬iåçå¼
Next j //åä¸
Print //è¾åºï¼æ¤å¤ç¼ºå°è¾åºå
容
Next i //循ç¯ä½ç»æï¼æ¤æ å¿ç¼ºå°Forï¼æ¤å¤åºé
End Sub //è¿ç¨ä½ç»æ
åæ°ç¬¬2è¡å¤çNext缺å°é
对çForï¼æ以æ æ³ç»åºå
·ä½ç解çè¿ç¨ç»ä½ ï¼æ¯ä¸å¥ç代ç æé½è§£éäºï¼æä¸æç请æåº
温馨提示:答案为网友推荐,仅供参考