程序设计题（10分）

输入任意一个正整数n，如果n为偶数求n的阶乘；如果n为奇数，则求1到n的累加和（单击窗体执行程序）。

 

Private sub form_click()

Dim n%，i%，t!，s！          (1’)

t=1                          (1’)

s=0                          (1’)

n=Inputbox(“输入n”)         (1’)

If Val(n) mod 2=0 Then          (2’)

  For i=1 to n                 (1’)

t=t*i

  Next i

  Print “t=”;t                 (1’)

Else

  For i=1 to n                (1’)

s=s+i

  Next i

  Print “s=”;s                (1’)

End If

Print

End Sub