1樓：匿名使用者
public function fn(byval x as integer, optional byval index as integer = 1) as integer
if index = x then
fn = x ^ index
elseif index < x thenfn = x ^ index + fn(x, index + 1)end if
end function
'這個不需要遞迴，下面的方法效率高
public function fn2(byval x as integer) as integer
dim index as integer = 1for index = 1 to x
fn2 += x ^ index
next
end function
2樓：設計營地
public function s(x as integer) as integer
static a as integer, b as booleanif b = false then
a = x
b = true
end if
if x = 1 then
s = a
b = false
else
s = a ^ x + s(x - 1)
end if
end function
s（2）=2+4=6
s（3）=3+9+27=39
3樓：匿名使用者
病情分析：
「x型腿」的學名是膝外翻，有40多種疾病可以引發它，但70％以上的膝外翻是由於佝僂病所致。說到手術矯正，病情輕的可以吸除膝內側的脂肪以雕塑腿形，簡單有效;病情重的可以採用外固定器**，**週期大約需要6～8周。
指導意見：
非手術**，鍛鍊：1.對外八字腳患者，行走時，每走一步，都要讓自己感覺到兩膝內側有輕擦的過程；隨時隨地選擇有直線地面，兩腳正直踩線行進練習。
同樣主要靠生活中堅持。2.x形腿的矯治練習，每天1～2遍：
第一節壓膝運動：正坐，兩腳掌相靠，兩手扶膝輕輕下壓。注意腳掌不要分開，膝蓋壓到不能再壓時，停耗一定時間。
第二節捆腿練習：坐位，兩腿併攏抬起，以布帶捆住腳腕，兩腳用力向左右掙動。3.
非手術**有一些，但需長期不懈的堅持，可以嘗試：1.穿鞋底內側墊厚一些的鞋。
2.走「貓步」。3.
盤膝坐20～30分鐘並交替雙腿，每天1～2次。同時按摩腿內側肌肉，增加肌張力以矯正畸形。
vb如何在form2中呼叫form1的值和變數
vb6.0在form2中呼叫form1的控制元件屬性值和變數方法 控制元件屬性值引用需加字首form1 例 在form2的label1的caption屬性引用form1的text1.text值。label1.caption form1.text1.text引用變數，需要先在form1窗體 的通用部分...
wps 2019在全屏顯示中如何用筆標註
黑喀 ppt2007中好像沒有這個功能，文字框的大小可以設定成根據文字進行調整，而不能設定根據文字框大小自動調整文字但可以設定 益出時縮排文字 選中文字框右擊 設定形狀格式 文字框 調整 2019wps 文件的字型突出顯示的快捷鍵是？如何設定？5 wps2019如何在流程圖編輯文字上打角標？wps2...
如何用VB連線SQL2019資料庫？急求
set conn new adodb.connection 採用的是無源的資料庫連線方法 conn.connectionstring driver server 172.16.203.215 uid sa pwd database dbname conn.connectiontimeout 30co...