vb求階乘之和代碼？Private Sub Form_uuu單擊（）dim n as integer，t#，I%n=InputBox（“input positive integer”，“factori

vb求階乘之和代碼？

Private Sub Form_uuu單擊（）

dim n as integer，t#，I%

n=InputBox（“input positive integer”，“factorial”

t=1

I=1

當(dāng)I<=n

t=t*I

I=I 1

循環(huán)打印n&！=“&；t

end sub

vb計(jì)算階乘求和問代碼？

”給出一個(gè)參考程序。朋友。

Private Sub Form_uu2;這個(gè)目標(biāo)是只要只要只要只要只要只要只要只要只要只要只要只要我們在最后[M=1

]n=n=n[n=n（輸入框中輸入的是正整數(shù)是正整數(shù)）整數(shù)

！n=n[n=Val（輸入框（輸入為正整數(shù)）

！[包括<stdo you。H>

m=1.0

對于（J=1J<=ij））//--也可以

{m*=J//更改

s=1.0/m

}

返回s

}ENDIF

//優(yōu)化

雙重樂趣（int a）{int i，J

double m=1.0，s=1.0

for（I=1I<=AI）//從0開始計(jì)算，從1開始計(jì)算，改回：for（I=2I<=AI）

{

m*=I//順序乘法

s=1.0/m//倒數(shù)加法

}

]return s

}

]main（）]{]int n，sum

scanf（%d，&n）

sum=fun（n）

printf（%dn，sum）