vb阶乘计算查用是固另还老从1到10的和
12345678910来自11121314Pr是万方她父印你题积ivate Sub Co360问答mmand1_Click() For i = 1 To 10 s = s + 脊厅fac(i) Next i 睁昌 Print "Sum="; 樱早隐sEnd Sub Function fac(n) f = 1 For i = 2 To n f = f * i Next i fac = f频最并格况鸡水什约End Func值械本选叶差tion