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
數列求前n項和，求數列前N項和
1.設an a1 n 1 d 1 n 1 d bn b1 q n 1 q n 1 a3 b5 1 2d q 4 21 a5 b3 1 4d q 2 13 聯立 得q 2 4 因為各項為正數。所以q 2 則d 2 an 2n 1 bn 2 n 1 設cn 4n 2 n dn 2 2 n前n項和為cn,...
求數列Sn 1 1 n的前n項和
euler 尤拉 在1734年，利用newton的成果，首先獲得了調和級數有限多項和的值。結果是 相關書籍 1 1 2 1 3 1 4 1 n ln n 1 r r為常量 他的證明是這樣的 根據newton的冪級數有 ln 1 1 x 1 x 1 2x 2 1 3x 3 於是 1 x ln x 1 ...
求數列前n項和的方法 折項求和法，並項求合法。（求說明 例題
折項求和法 1 2 3 4 5 6 1 6 2 5 3 4 7 3 21 1 2 3 4 5 6 7 1 7 2 6 3 5 4 2 3 1 4 折項求和法 1 2 3 4 5 66 5 4 3 2 1 上下相加7 7 7 7 7 7 42 原式 42 2 21 數列的前n項和可以分成兩個或者多個 ...