1樓：
dim i,j,t(20),total
j=1for i=1 to 20'獲得從t（1）到t（20）的數值t(i)=3*j+3 '等價於t(i)=j+(j+1)+(j+2)j=j+3'跨過三個數字
j=j+i '將沒用的數字帶過
next
for i=1 to 20'求得總和，儲存到totaltotal=total+t(i)
next
msgbox "t20=" & t(20) & vbcrlf & "t1+t2+t3+t4+...t20=" & total
2樓：匿名使用者
dim i as integer, t(1 to 20) as long, total as long
total = 0
t(1) = 1 + 2 + 3
for i = 2 to 20
t(i) = 3 * (2 + i) + t(i - 1) '從第2項開始往後的的通項
next
for i = 1 to 20
total = total + t(i)
next
msgbox "t(20)=" & t(4)msgbox "t(1)到t(20)的和為：" & total
求解數學問題112和，求解數學問題112和
112 連oa,ob 則角oap 角obp 90 連op 交圓o於q 則三角形aop 三角形bop op平分角p 角opa 30 角aop 60 op 2ao 2 ap op ao 3ao 3 ap 根號3 陰影部分的面積 2 三角形aop的面積 扇形oaq的面積 2 1 2ao ap 60 360...
數學問題！！求解，求解數學問題！！！！
x是第二象限角 所有x 2 2,所以cosx 2 0 根據平方和為1，得cosx 2 3 5 所以tanx 2 sin cos 4 3 有sinx 2計算出cos x 2 3 5 因為x為二象限角 所以cosx 2 3 5 tanx 2 4 3 運用的公式有cosx等於根號下1 sinx 2 tan...
fibonacci數列 vb問題 急 明天要交作業了
private sub command1 click dim n fib as longn val text1.text if n 2 then redim fib 1 to n fib 1 0 fib 2 1for i 3 to n fib i fib i 1 fib i 2 next i tex...