input_print_n!.bp

编译原理课程设计用vb编写

Print "--------求N!程序---------"
10 Print "输入N：(N<=15)";
Input n
If n > 15 Then Goto 10
s = 1
For i = 1 To n
    s = s * i
Next
Print "计算结果： "; n; "!="; s