VB循环1*2*3*…*N咋做？

来源：百度知道 编辑：UC知道 时间：2024/06/25 08:03:08

dim result as long
result=1
for i=1 to n
result=result*i
next
msgbox result

求n！吗？？？

Const n = 9

Private Sub Command1_Click()
Dim answer As Long
answer = 1
For i = 1 To n
answer = answer * i
Next
Print answer
End Sub

Dim intCount,N as Integer
Dim intResult As Integer =1
For intCount=1 to N
intResult *=intCount
Next
label.text=intResult.ToString()