VB编写A的阶乘
答案:1 悬赏:50 手机版
解决时间 2021-02-24 23:21
- 提问者网友：寂寞梧桐
- 2021-02-24 16:07
VB编写A的阶乘
最佳答案
- 五星知识达人网友：独行浪子会拥风
- 2021-02-24 17:43
private sub command1_click()
a=val(inputbox("请输入A的值"))
b=val(inputbox("请输入B的值"))
c=val(inputbox("请输入C的值"))
s=0
if a>=1 then
k=1
for i=1 to a
k=k*i
next i
s=s+k
else
s=s+1
end if
if b>=1 then
k=1
for i=1 to b
k=k*i
next i
s=s+k
else
s=s+1
end if
if c>=1 then
k=1
for i=1 to c
k=k*i
next i
s=s+k
else
s=s+1
end if
print "s=";s
end sub追问你的VB好NB，可否留过地址油箱Q，指导一下我
a=val(inputbox("请输入A的值"))
b=val(inputbox("请输入B的值"))
c=val(inputbox("请输入C的值"))
s=0
if a>=1 then
k=1
for i=1 to a
k=k*i
next i
s=s+k
else
s=s+1
end if
if b>=1 then
k=1
for i=1 to b
k=k*i
next i
s=s+k
else
s=s+1
end if
if c>=1 then
k=1
for i=1 to c
k=k*i
next i
s=s+k
else
s=s+1
end if
print "s=";s
end sub追问你的VB好NB，可否留过地址油箱Q，指导一下我
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯