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

當I<=n

t=t*I

I=I 1

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

end sub

vb計算階乘求和問代碼？

”給出一個參考程序。朋友。

Private Sub Form_uu2;這個目標是只要只要只要只要只要只要只要只要只要只要只要只要我們在最后[M=1

]n=n=n[n=n（輸入框中輸入的是正整數是正整數）整數

！n=n[n=Val（輸入框（輸入為正整數）

！[包括<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開始計算，從1開始計算，改回：for（I=2I<=AI）

{

m*=I//順序乘法

s=1.0/m//倒數加法

}

]return s

}

]main（）]{]int n，sum

scanf（%d，&n）

sum=fun（n）

printf（%dn，sum）