VB求阶乘的代码。

2025-01-04 06:24:14

推荐回答（2个）

回答1：

Private Sub Form_Click()
Dim n As Integer, t#, i%
n = InputBox("输入正整数", "阶乘")
t = 1
i = 1
Do While i <= n
t = t * i
i = i + 1
Loop
Print n & "!=" & t
End Sub

回答2：

放一个text1,一个label1,一个command1
private sub command1_click()
dim k as integer
k=1
for i=1 to val(text1.text)
k=k*i
next i
label1.caption=k
end sub

最新问答

广联达预算软件L柱怎么调方向

在大一到大二上学期的时候有一个男生喜欢我，对我很好，周围的人都以为我们在一起了，他没有明确的追我

信阳毛尖的产地是哪里？

我和我老婆以前性生活都很好，但是现在不知道怎么的，他突然一下感觉到很烦的样子。这是为什么？

男朋友生气，给他发信息说分手还是生气，不回，说明什么？