Question

vb 用消息框函数输入一个数n,在窗体上输出n！

求求哪位 vb高手帮帮忙啊，谢谢了。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim sum1 As Long As Long
n=inputbox("请输入n的值")
sum1 = 1
For i = 1 To n
sum1 = sum1 * i
Next i
Label1.Caption = Label1.Caption + Str(sum1)
End Sub

需要一个botton 和一个lable