[生活]用VBScript判断数字奇偶性和计算阶乘累加和

[生活]用VBScript判断数字奇偶性和计算阶乘累加和 用VBScript代码实现以下功能: 1. 输入一个数字，判断该数字奇偶性 代码:

请输入数字

<% Dim s s=Request.form("txtA") if (s Mod 2)=0 Then Response.Write"该数字是偶数" Else Response.Write"该数字是奇数" End if %> 2. 输入一个数字，计算从1到该数字的阶乘累加和 代码:

请输入数字

<% Dim intA,s,i,sum intA=Request.Form("txtA") i=0 s=1 do while(i