Private Function fact(n As Integer) As Integer fact = 1 Do W

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/13 07:57:33

Private Function fact(n As Integer) As Integer fact = 1 Do While n > 0 fact = fact * n n = n - 1 LoopEnd FunctionPrivate Sub Form_Click() Dim sum As Integer,i As Integer For i = 4 To 1 Step -1 sum = sum + fact(i) Next Print "Sum="; sumEnd Sub
sum=24,我不太理解

我没算出来这个是vb里的吗
再问： �ǵģ��ȥ ��н��24
再答： ��c ��һ� vb�� Ҵ�ѧûѧvb Ҳ�ж�ʱ�� úÿ��Ҳ��˵��

Function fun(a As Integer,n As Integer) As Integer Private Function p1(x As Integer,y As Integer,z As Integer) Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Private Sub Command1_Click() Dim i As Integer,s As Integer,n b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do 麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4 Private Sub Form_Click() Dim a As Integer,b As Integer,k As vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R Private Sub Command1_Click() Dim i,j As Integer For i = 3 To