1樓：
private sub form_click()dim a, b, n, s, t as longa = 1
b = 3
n = 2
do while n <= 6
s = s + b
t = a * b
a = b
b = t
n = n + 1
loop
print s
end sub
2樓：匿名使用者
病情分析：
您好，孩子感冒了，母親要注意食物方面的，清淡一些的，給孩子的飲食也是要注意一些的，營養還是要全面的，不能挑食了。
指導意見：
再一個給孩子的感冒藥物也是要服用的，天氣好可以多戶外活動，晒太陽一類的，有利於恢復的。
病情分析：
媽媽的飲食直接關係寶寶的健康，切記太油膩。
指導意見：
建議吃些清淡的容易消化的食物，還有維生素c含量高的水果，如橘子、蘋果、香蕉等。
病情分析：
小寶寶感冒了媽媽和平時一樣飲食就行。
指導意見：
建議小寶寶感冒後用小兒偽麻美芬滴劑口服**即可，與媽媽包含基本無關。
vb題用遞迴 方法求數列前n項和 100
3樓：酒瓶裡的蚊子
form1上放一個文字框text1, 一個按鈕command1。
在框中輸入某個數字，例如10，**會將列出f(1)至f(10）的回值。如果你只需要特定的第n項，
答比如第8項，就直接呼叫digui(8)即可。
**：private sub command1_click()dim n as long
n = cint(text1.text)
form1.cls
for n = 1 to 10
print "f(" & cstr(n) & ")=" & digui(n):
next
end sub
private function digui(byval n as integer) as long
select case n
case 1
digui = 0
case 2
digui = 1
case else
digui = 2 * digui(n - 1) - digui(n - 2)
end select
end function
vb程式設計裴波那契數列,試求出數列的前30項
4樓：聽不清啊
private sub command1_click()dim a(30) as long, i as integera(1) = 1
a(2) = 1
print 1; 1;
for i = 3 to 30
a(i) = a(i - 1) + a(i - 2)print a(i);
if i mod 5 = 0 then printnext i
end sub
vb中的斐波那契數列 前20項取值總和問題謝謝了，大神幫忙啊
5樓：匿名使用者
斐波那契數列前三項分別是0、1、1，你只加了第二項或第三項 所以才會少1 dim a&(20) a(1) = 0: a(2) = 1 for i = 3 to 20 a(i) = a(i - 2) + a(i - 1) b = a(i) + b next i for i = 1 to 20 print right(space(7) & a(i), 8); if i mod 10 = 0 then print next i b = b + a(2) msgbox b 追問： 我加的是第一項和第二項， 不是加的第二項和第三項，請不要用陣列去給我解答，我還沒學到陣列呢 回答：
dim d as long, a as long, s as long, c as integer d = 0: a = 1: b = 1:
s = 2 print d print a print b for i = 2 to 18 c = a + b a = b: b = c s = s + c print c next i msgbox "斐波拉契數列的錢二十項的和為：" & s, vbinformation, "資訊"
vb求出斐波那契數列的前20項，並按順序將他們顯示在列表框中。
6樓：匿名使用者
單擊窗體後在窗體上輸出前20個斐波那契數（5個一行）private sub frm_click()dim f(20) as integer
f(1)=1
f(2)=1
for i=3 to 20
f(i)=f(i-2)＋f(i-1)
next i
for i=1 to 20
if i mod 5=0 then printprint f(i);
next i
end sub
稍改一下吧
程式設計輸出斐波那契數列的前50項 vb
7樓：己曼寒
private sub command1_click()dim a(1 to 50) as integerfor i = 1 to 50
if i = 1 or i = 2 thena(i) = 1
else
a(i) = a(i - 1) + a(i - 2)end if
print i, a(i)
next i
end sub
求數列1,1 2,1 2 2 2,1 2 2 2 2 3的前n項和Sn
設等比數列的通項公式an 2 n 1 則數列的前n項和為bn 2 n 1 b1 1 b2 1 2 b3 1 2 4 就是所求數列。則的前n項和為 sn 2 1 2 1 2 1 2 n 1 2 2 2 2 n n 2 2 n 1 n 2 n 1 n 2 這個題不難，主要運用分組求和與錯位相減法，解答如...
求數列前n項和6 1 3,6 3 5,6 2n 1 2n
數列前n項6 1 3,6 3 5,6 5 7 6 2n 1 2n 1 sn 6 1 3 6 3 5 6 5 7 6 2n 1 2n 1 3 2 1 3 2 3 5 2 5 7 2 2n 1 2n 1 3 1 1 3 1 3 1 5 1 5 1 7 1 2n 1 1 2n 1 3 1 1 2n 1 6...
求數列前n項和的方法有哪些？要例子
公式法 累加法 累乘法 待定係數法 對數變換法 迭代法 數學歸納法 換元法 不動點法 特徵根的方法等等。型別一歸納 猜想 證明 由數列的遞推公式可寫出數列的前幾項，再由前幾項總結出規律，猜想出數列的一個通項公式，最後用數學歸納法證明 型別二 逐差法 和 積商法 1 當數列的遞推公式可以化為an 1 ...