Private Sub Cmd1_Click()
Dim a As Integer, s As Long
a = Val(Text1.Text): s = 1
For i = 1 To a
s = s * i
Next i
Text1.Text = s
End Sub
Private Sub Form_Load()
Text1.Text = 12
Cmd1.Caption = "计算"
End Sub
求阶乘？
dim a as integer
dim 结果 as integer
a = inputbox("请输入 12。")
for i as integer = 2 to a
结果 = i * 结果
next i
msgbox(结果)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024