VB求1到N的階乘

Dim n, i, j As Integer, S, Si As LongDo While .T. n = InputBox("請輸入小於13的數", "n=", 0)

If n >= 13 Then

MsgBox ("請重新輸入小於13的數據") Else Exit Do End IfEnddoS = 0For i = 1 To n Si = 1 For j = 2 To i Si = Si * j Next

S = S + SiNext

Print "S = 1！+2！+3！+···+n! = "; Format(S)

上一篇:邵武市培訓java編程和Access的機構

下一篇:阿特茲多少碼ABS介入