返回首页

VB编写程序 计算1*2*3*...*n 找出能使计算结果大于10^6的值

发布时间：2014-04-14 21:56:49

function jc(n as integer) as long dim i as integer jc=1 for i=2 to n jc=jc*i next end function Private sub form_click() dim n as integer, s as long do n=n+1 s=jc(n) loop until s>10^6 print "当n大于等于"; n; "时1*2*3*.

相关内容

最新内容

← 上一条：VB习题 求解答。N=0 J=1 DO Un 下一条：用VB编程实现 计算n的阶乘，找出计算结果大 →

热门栏目