1樓：我愛數學
1全部定義陣列m,產生3個陣列元素m(0),m(1),m(2)
dim m(2)
通過迴圈，為陣列元素賦初值，m(1)=0,m(2)=0
for i = 1 to 2
m(i) = 0
next i
以下是二重迴圈，外迴圈i 可取值1，2；內迴圈j可取值1，2。
執行時：當外迴圈i=1時，內迴圈變數j的取值走一圈，如下：
i=1——j=1 m(1)=m(1)+1=1 輸出m(k)即m(2) 結果為初值的0
i=1——j=2 m(2)=m(1)+1=2 輸出m(k)即m(2) 結果為2
當外迴圈i=2時，內迴圈變數j的取值走一圈，如下：
i=2——j=1 m(1)=m(2)+1=2+1=3 輸出m(k)即m(2) 結果為2
i=2——j=2 m(2)=m(2)+1=2+1=3 輸出m(k)即m(2) 結果為3
注意：變數k的值始終不變
k = 2
for i = 1 to k
for j = 1 to k
m(j) = m(i) + 1
print m(k);
next j
next i
純粹是一道老師的作業題或測驗題，考查是否會讀迴圈程式。
2樓：
private sub command1_click()dim m(2) '定義陣列m(0),m(1),m(2)
for i = 1 to 2 '以下三行迴圈對陣列初始化
m(i) = 0
next i
k = 2 '迴圈次數初始化for i = 1 to k '主迴圈,2次for j = 1 to k '主迴圈的內嵌迴圈2次
m(j) = m(i) + 1
print m(k); '列印m(k);
next j
next i
end sub
3樓：匿名使用者
解答得好細詳..................
VB程式設計遇到的乙個問題，關於VB程式設計的小問題
二樓的是錯誤的，寫成 會出錯，直接寫成 就行了。至於怎樣用user變數作為過度變數，關鍵是要將user定義為函式形式而不是變數形式，具體做法如下 a.公共部分 option explicit public function user s as string as string user s end ...
關於VB的問題，關於VB模組的問題
not isempty 試下，最好說下報的什麼錯誤。按我理解應該改成如下的 private sub 計算1 click if isnumeric tbis1 and isnumeric tbu1 and isnumeric tbut1 then tbid1 tbis1 exp tbu1 tbut1 ...
關於VB程式設計的問題 高手請進，急求一個VB的問題！高手請進。
加一個文字框text1，一個按鈕command1private sub command1 click if trim text1.text thenmsgbox 請輸入數字 text1.setfocus else msgbox val trim text1.text 100 米 left cstr ...