basic语言求n的阶乘--高中数学3-32页练习2

2020年2月23日 18:15 by wst

高中数学编程

---

这里记录下代码，仅供参考，如果有问题，请留言。

' Gambas module file

Public Sub Main() 
'' calculate n's factorial
  Dim n, i As Integer
  Dim s As Long
  Input n
  s = 1
  i = 1
  If n >= 1 Then
    Do 
      s = s * i
      i = i + 1
    Loop Until i > n
  Else
    Print "Please input a right interger."
  Endif
  Print "Result:"; s
End

 

---