1樓：匿名使用者
private sub form_click()test 2
end sub
private sub test(x as integer)x = x * 2 + 1
if x < 6 then
call test(x)
end if
x = x * 2 + 1
print x;
end sub
private sub form_load()me.show
end sub
程式基本沒有錯誤，點選窗體即可。
2樓：匿名使用者
x=2*2+1
x=5call test(5)
x=5*2+1
x=11
x=11*2+1
x=23
print 23
**不全翻譯到此
3樓：匿名使用者
這是遞迴的過程，不太好解釋。就用縮排的方式給你體會體會遞迴。
先把所有語句標個號：
private sub test(x as integer)①x = x * 2 + 1
②if x < 6 then
③call test(x)
end if
④x = x * 2 + 1
⑤print x;
end sub
執行過程 form_click() :
執行過程 text(2) :
x 代 2 ；
①賦值：x = 5 ；（2*2+1=5）
②判斷 5 < 6 成立。
③執行過程 text(x) :
'（此時 text(5) 已經執行完了。x 的值已經被改成 23）④賦值：x = 47；（23*2+1=47）⑤列印 47；
過程text(2)執行完畢。
過程form_click()執行完畢。
綜上，列印了 23 和 47 。
不知道你看懂沒，執行 text 過程時，裡面又執行了一個新的 text 過程。
看看百科吧。
4樓：匿名使用者
private sub test(x as integer)x = x * 2 + 1
if x < 6 then
call test(x)
exit sub
end if
x = x * 2 + 1
print x;x=2*2+1
x=5call test(5)
x=5*2+1
x=11
x=11*2+1
x=23
print 23
VB中52mod109322求詳細運算過
你的表達 抄式不完整。以 襲5 2 6 mod 10 9 3 2 2 為例 1 計算 2 6,得到12 2 計算12 mod 10,即12除以10,返回餘數,即返回2 3 計算2 9,即2整除9,得0 4 計算0 3,即0除以3,得0 5 計算2 2,即2的2次方,得4 6 計算5 0,得5 7 計...
VB程式設計，vb程式設計是什麼？
51 len函式，檢測字元成的長度。right函式，從右邊在指定的字串中擷取一定數量的字元組成新的字串。52 dim a 9 as nteger 惠用紅色標註這一行，不能執行。以下省略。vb程式設計是什麼？1 vb程式設計以visual basic 6.0簡體中文版為語言背景，深入淺出的介紹visu...
vb程式設計問題，VB程式設計問題
設 text1 text2 text3 text4 command1 label1 4個test輸入資料 command1是按鈕 label1顯示內容 我給你寫一個子程式 其它你在工具欄向視窗託就行了,然後把這個子程式複製到 做就ok了 private command1 click dim maxa...