vb中1乘2乘3乘4……乘n怎么表示？

就是设一个代码求 n!

2025-12-15 04:17:36

推荐回答（2个）

回答1：

Private Sub Form_Click()  '点击窗体开始运行
Dim n As Integer, i As Integer, s As Double
n = Val(InputBox("请输入一个大于1的整数n"))
s = 1
For i = 2 To n
    s = s * i
Next
MsgBox n & "!的值为" & s
End Sub

回答2：

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