VB程式設計求S 1 1 4 ，VB程式設計求S 1 1 2 1 3 1 4

1樓：前舞苟念寒

option

explicit

private

subcommand1_click()

dimi

asinteger,sas

single

fori=1

to100s=

s+(-1)^(i

+1)*(1

/i)next

print

send

sub'其實只要知道-1的奇數次方為-1就可以簡化很多

2樓：鄧佩蘭懷莞

樓上的回答有點問題吧

i是迴圈數

怎麼能賦值為-i呢

應該這樣寫

dimi

,j,s

asinteger

s=0j=1

fori=1

to100ifi

mod2=0

then

s-=1/j

else

s+=1/j

endif

j+=1

next

3樓：裔琦龐平卉

private

subcommand1_click()

print

sf(100)

endsub

private

function

sf(byvalnas

integer)

asdouble

dimi

asinteger

dimf

asdouble

dims

asdoubles=

0f=1

fori=1

tonf=

f*is

=s+f

nextisf

=sendfunction

求S 1 2 3100VB程式設計過程

因為不知道你所寫的 所以僅僅將vb中 累加 呈上即可 dim i as integer,sum as integersum 0 使用迴圈將1至100累加到變數sum中 for i 1 to 100 sum sum i next i print s 1 2 3 100 sum public class...

急求！vb程式設計題目

dim m as integer,n as integerprivate sub command1 click m val inputbox 輸入正整數 n val inputbox 輸入正整數 if n m 0 then msgbox 兩數任何乙個數都不能為0 exit sub end if en...

求高手解決vb程式試題，vb程式設計選擇題 求高手解答 ！

選擇題 1.c 2.a 3.a 填空題 1，連字元 2，rgb 255,0,0 3,34,3 分析題 b改錯題 1，2.dim n as integer n 120 if n mod 2 0 then print 它是偶數 endif 選擇題 1，c2，c 3，a4，d 5，a6，a 7，a8，b ...