UC知道请解答一下这个关于VB的编程题
来源：百度知道 编辑：UC知道 时间：2024/06/14 14:50:07
用VBScript脚本编写程序实现以下功能：
（1）判断变量a的值，如果a=0则执行过程1；如果a=1则执行过程2（提示：用选择结构实现）
（2）判断整数n的奇偶性（提示：用选择结构实现）
（3）定义一个sub过程，要求将过程MyProc重复执行50次（提示：用循环结构实现）
（4）计算s=1!+2!+3!+…+n!（提示：用循环结构实现）
（1）判断变量a的值，如果a=0则执行过程1；如果a=1则执行过程2（提示：用选择结构实现）
（2）判断整数n的奇偶性（提示：用选择结构实现）
（3）定义一个sub过程，要求将过程MyProc重复执行50次（提示：用循环结构实现）
（4）计算s=1!+2!+3!+…+n!（提示：用循环结构实现）
dim a
a=inputbox("")
select case a
case 0
call s1
case 1
call s2
end select
sub s1()
msgbox "过程1"
end sub
sub s2()
msgbox "过程2"
end sub
dim n
n=inputbox("判断奇偶数")
select case n mod 2
case 0
msgbox "偶数"
case 1
msgbox "奇数"
end select
for i = 1 to 2
call myproc
next
sub MyProc()
msgbox "弹啊弹"
end sub
dim x,sum
n=inputbox("输入N值")
for i = 1 to n
x=1
for j = 1 to i
x=x*j
next
sum=sum+x
next
msgbox sum