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 Subsum=24,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 16:22:51
![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](/uploads/image/z/10561541-5-1.jpg?t=Private+Function+fact%28n+As+Integer%29+As+Integer+fact+%3D+1+Do+While+n+%3E+0+fact+%3D+fact+%2A+n+n+%3D+n+-+1+LoopEnd+FunctionPrivate+Sub+Form_Click%28%29+Dim+sum+As+Integer%2Ci+As+Integer+For+i+%3D+4+To+1+Step+-1+sum+%3D+sum+%2B+fact%28i%29+Next+Print+%22Sum%3D%22%3B+sumEnd+Subsum%3D24%2C)
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 Subsum=24,
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,我不太理解
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 Subsum=24,
我没算出来 这个是vb里的吗