会python真的可以为所欲为0(回)
397天前
这里还有人吗1(回)
582天前这里还有人吗0(回)
582天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
807天前到处都是羊，不想上班0(回)
887天前
鸽子
0(回)
891天前Private Function f(ByVal n As Long) As Long |
Dim i As Integer |
f = 1 |
If n = 0 Or n = 1 Then |
f = 1 |
Else |
For i = 1 To n |
f = f * i |
Next i |
End If |
End Function |
Private Sub Command1_Click() |
Dim n As Long |
n = Val(Text1) |
Text2 = f(n) |
End Sub |
Private Sub Command2_Click() |
Text1 = "" |
Text2 = "" |
End Sub |
Private Sub Command3_Click() |
End |
End Sub |
