input_print_n!.bp

来自「编译原理课程设计用vb编写」· BP 代码 · 共 9 行

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