代码:
Private Sub Command1_Click()
Dim i, n As Integer
n = 1
For i = 1 To 5
n = n * i
Next i
Label2.Caption = Str(n)
End Sub
还有源码下载地址: https://pan.baidu.com/s/160wGWX_3pYEYTs-aoNjnzw 提取码: rg3m
Private Sub Command1_Click()
Dim i, n As Integer
n = 1
For i = 1 To 5
n = n * i
Next i
Label2.Caption = Str(n)
End Sub
还有源码下载地址: https://pan.baidu.com/s/160wGWX_3pYEYTs-aoNjnzw 提取码: rg3m