Question

VB作业题，编写程序，求s=1*2*3*…*n的值。其中n值从键盘上输入，在窗体上输出s值。

本人在线等，谢谢各位好心人。
这是计算机基础Ⅱ，VB语言的作业题，是大二的课程，希望有人帮我解决它，我相信你一定可以！

Answer 1

Private Sub Form_Click()

Dim a As Integer, i As Integer, s As Long

s = 1

a = InputBox("请输入一个数", "提示", "5")

For i = 1 To a

s = s * i

If i = a Then

    Print Str(i) + "=" + Str(s)

Else

    Print Str(i) + "*";

End If

Next

End Sub

追问

这是1*2*3*4*5=120的编程吧？唉，我也不是很懂，但是学过。

追答

那个是默认的，具体你自己可以定

Answer 2

Private Sub Command1_Click()
n = CInt(InputBox("求N！，请输入N的值："))
s = 1
For i = 2 To n
s = s * i
Next i
MsgBox ("N!=" & s)
End Sub