Private Sub Command1_Click()
Dim M(2)
For i = 1 To 2
M(i) = 0
Next i
k = 2
For i = 1 To k
For j = 1 To k
M(j) = M(i) + 1
Print M(k);
Next j
Next i
End Sub
uj5u.com熱心網友回復：
你期望的結果是什么？uj5u.com熱心網友回復：
這個代碼的解釋uj5u.com熱心網友回復：
添加對M陣列的監視，然后單步執行自行分析為什么uj5u.com熱心網友回復：
關鍵點是在陣列下標i,j,k的數字變化以及對應陣列當前數值上回圈次數并不多，最笨的辦法就是手工回圈，記下每次的陣列數值
Private Sub Command1_Click()
Dim M(2)
‘///初始化陣列，所有成員賦值為0
For i = 1 To 2
M(i) = 0
Next i
k = 2
For i = 1 To k
For j = 1 To k
M(j) = M(i) + 1
Print M(k);
Next j
Next i
End Sub
For回圈記錄數值
i=1,j=1:
M(i)=M(1)==0
M(j)=M(1)=M(i)+1=M(1)+1=0+1==1
M(k)=M(2)==0
'///此時M(1)=1,M(2)=0
Print M(k)=M(2)==0
i=1,j=2:
M(i)=M(1)==1
M(j)=M(2)=M(i)+1=M(1)+1=1+1==2
M(k)=M(2)==2
'///此時M(1)=1,M(2)=2
Print M(k)=M(2)==2
i=2,j=1:
M(i)=M(2)==2
M(j)=M(1)=M(i)+1=M(2)+1=2+1==3
M(k)=M(2)==2
'///此時M(1)=3,M(2)=2
Print M(k)=M(2)==2
i=2,j=2:
M(i)=M(2)==2
M(j)=M(2)=M(i)+1=M(2)+1=2+1==3
M(k)=M(2)==3
'///此時M(1)=3,M(2)=3
Print M(k)=M(2)==3
最終結果0223
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103803.html
標籤：VB基礎類
下一篇：【長期更新】VB類別庫集合