Private Function fact(n As Integer) As Integer fact = 1 Do W
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/01 07:44:04
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,我不太理解
sum=24,我不太理解
我没算出来 这个是vb里的吗
再问: �ǵģ����ȥ ���н����24
再答: ����c �����һ� vb���������� �Ҵ�ѧûѧ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