VB計算問題解決，很簡單，但我就是做不到

13. 編寫乙個程式來計算並輸出以下序列的前 n 項 （n=50） 中偶數項的總和。

s = 1*2+2*3+3*4+4*5+……n*(n+1)+…

dim i as integer, sum as integer

sum = 0

for i = 2 to 50 step 2

sum = sum + i * i + 1)

sum58，計算 sum=1*3*5....9

dim i as integer, sum as integer

sum = 1

for i = 1 to 9 step 2

sum = sum * i

next6..使用系列 s 1+1 （3*3）+1 （5*5）+1 （7*7）+....1 （（2n-1）*（2n-1））） + s 的近似值，當項的絕對值（注意該項參與和）小於 時，總和終止並輸出結果 s。結果將保留到小數點後 5 位。

dim n as integer, i as integer, s as double, arr(51) as single

dim str as string

1 （（2n-1）*（2n-1）） 即 2n-1>100，所以 n=51

s = 0for n = 0 to 50

arr(n) = 1 / (2 * n + 1) ^2

s = s + arr(n)

nextstr = cstr(s)

i = instr(1, str, ".")

str = mid(str, 1, i + 5)

str sum

27. 編寫乙個程式來計算並輸出以下序列的前 n 項 （n=20） 中奇數項的總和。

1*2*3-2*3*4+3*4*5-4*5*6+ …1） （n-1）*n*（n+1）*（n+2）+ 其中，表示電源操作）。

sum = 0

for n = 1 to 20

t = n * n + 1) *n + 2)

f = n mod 2

if f = 1 then sum = sum + t

else s = s - t

next n

簡單地說，15 的除數和有 1 3 5 15，所以總和是 24 並選擇 d

mod 是餘數，餘數等於 0。

剩下的真的很難看到！ 填空的空格被猜到。

3 n=3，所以列印 arr2（n）、arr1（n） 等於列印 arr2（3）、arr1（3）。

arr1 陣列的 1 和 5 元素分別分配了 1,2,3,4,5，因此 arr1（3）=3

arr2 陣列 [arr2（3）] 的第三個元素總是分配給迴圈，最後一次值是 2*3+5=11

4 第乙個迴圈給出陣列 a 的 1 10 個元素，分別分配 1、2、3、4、5、6、7、8、9 和 10 的值

第二個迴圈將 1、4 和 9 分別分配給 p 陣列 1 和 3 元素

第三個迴圈加起來是 5+2*1+2*4+2*9=5+2+8+18=33

你能自己看清楚嗎？ 你能說得更清楚嗎？

第一次點選，因為沒有賦值，x預設為0，x=x+1結果為1，進入呼叫程序後，x預設為0，所以結果為1，通話結束後顯示為：1。

第二次點選時，x 預設為 1，x = x + 1 結果為 2，進入呼叫程序後，x 預設為 1，因此結果為 2+1，呼叫後顯示為 3。

第三次點選時，x預設為3，x=x+1，結果為4，進入呼叫程序後，x預設為3，所以結果為4+3，呼叫後顯示為7。

正確答案：1、3、7

新增一行 **:p rint n，你會看到輸出：5。

原因：原來的**是在if...之後執行的。如果結束"print n"時間，做......迴圈迴圈4次，n=n（4）+1=5，輸出為n+1，即4，執行新增的語句行後，輸出為n（=n+1），即5。

這個應用程式是關於做附加元件的：

因此，最終輸出為：

s=55